ここでは、フォルダのすべてのテストケースとそのサブフォルダQuoting
のフィールドts_user_04
を更新する簡単なOTAコードを示します。
必要に応じて列名を変更してください。アクセスできる場合は、[管理]タブに移動してHP ALMの任意のフィールドのDB列を簡単に見つけることができます。それ以外の場合でも、OTAを使用してすべてのマッピングを取得できます。
INORDER OTAコードを実行するために(私はあなたが必要なアクセス権を持っていることを望みます)、あなたはALM接続アドインあなたのALMのホームページで[ツール]セクションから
をそれを得ることができたをインストールする必要があります
Public TDconnection
Public reqPath
Public testPath
'Call the main Function
updateAllTests
Public Function login()
Dim almURL, almUserName, almPassword, domain, project
almURL = "https://.saas.hp.com/qcbin/"
almUserName = ""
almPassword = ""
domain = ""
project = ""
testPath = "Subject\Automated" ' Change it as per your folder structure
Set TDconnection = CreateObject("tdapiole80.tdconnection")
TDconnection.ReleaseConnection
TDconnection.InitConnectionEx almURL
TDconnection.login almUserName, almPassword
TDconnection.Connect domain, project
End Function
Public Function updateAllTests()
login
Set TreeMgr = TDconnection.TreeManager
Set TestTree = TreeMgr.NodeByPath(testPath)
If Err.Number = 0 Then
Set comm = TDconnection.Command
comm.CommandText = "update test set ts_user_04='Quoting' where ts_test_id in (select ts_test_id from test, all_lists where ts_subject in (select al_item_id from all_lists where al_absolute_path like (select al_absolute_path from all_lists where al_item_id=" & TestTree.NodeID & ") || '%') and ts_subject = al_item_id)"
comm.Execute
End If
logout
MsgBox "Flag Update successful", vbInformation
End Function
Public Function logout()
TDconnection.Disconnect
TDconnection.logout
TDconnection.ReleaseConnection
Set TDconnection = Nothing
End Function
1つの値を別の値に置き換えたとすると、詳細セクションのフィールドまたは設計ステップまたは設計パラメータですか? – Barney
ショート:詳細セクションのフィールド更新。 Long:テスト計画 - >複数のフォルダのテストケース - >詳細 - >影響モジュールこのリストには、テストケースの影響を受けるモジュールを識別する一連の "値"(文字列)が含まれています。この値を変更したい変更したい値がリストに存在します。 例:影響を受けるモジュールでは、2つの値がチェックされます。 「限定」と「標準」。私はそれが "反応的"と "標準的"であることを望んでいます。 「影響を受けるモジュール」のリストで「制限付き」から「応答型」に変更する方法 – MSJ