0

QTP (HP QuickTest Pro) にデータベース チェックポイントがあります。このチェックポイントは、静的クエリを渡すと機能しますが、パラメーターを渡すか、プログラムでクエリを作成できる必要があります。QTP からプログラムでデータベースをクエリする方法も知っていますが、その結果に基づいてチェックポイントを作成する方法がわかりません。

具体的には、返された RecordCount = 0 の場合に FAIL を発生させ、>= 1 の場合に PASS を発生させたいと考えています。私は開発者であり、テスターではありません。QTP フォーラムが応答しません - 助けてください!

これは私が試したコードです - これは機能しますが、チェックポイントがありません:

Dim con, rs,strSQL, Param1, Param2
Param1 = DataTable("B", dtGlobalSheet)
Param2 = DataTable("A", dtGlobalSheet)
Set con=Createobject("ADODB.Connection")
Set rs=Createobject("ADODB.recordset")
rs.CursorLocation = 3
rs.CursorType =3
connSTR= "Driver={SQL Server};Server=vsql0001;Database=DB0001;Dsn=myRegistryName"
con.open connSTR
strSQL= "select Field1, Field2 from dbo.Table1 where Field1 in (select Field1 from     dbo.Table2 where Param2 like '%"+Param2+"%' and active = 1) and (Field2     = '"+Param1+"' or Field2 like '"+Param1+" %' or Field2 like '%*"+Param1+"' or Field2     like '%*"+Param1+"*%')"
rs.open strSQL, con
msgbox rs.recordcount   ' want the CP to go here
rs.close
con.close
4

1 に答える 1

1

とった。静的クエリを指定し、評価する前に変更します。

strSQL= "select [...]"
DbTable("DbTable").SetTOProperty "Source", strSQL
DbTable("DbTable").Check CheckPoint("DbTable")
于 2009-02-09T23:04:56.453 に答える