TA的每日心情 | 开心 2016-10-21 07:32 |
---|
签到天数: 3 天 连续签到: 1 天 [LV.2]测试排长
|
现在想设置个数据库的检验点,是这样做的!请大家指教一下
测试的是个应用程序,是向数据库添加数据的操作(通过datatable设置的数据),然后利用QTP连接上操作的数据库,查询数据库中添加记录是否成功。现在想得到datatable中的数据,用来执行SQL语句,并且判断是否能够添加成功,为什么执行SQL语句 查询不到结果呢,代码如下:
VbWindow("frmMain").WinMenu("Menu").Select "Customer;Add"
VbWindow("frmMain").VbWindow("frmCustTabNew").VbEdit("Text1").Set DataTable("account", dtGlobalSheet)
VbWindow("frmMain").VbWindow("frmCustTabNew").VbButton("ThunderRT6CommandButton").Click
VbWindow("frmMain").VbWindow("frmCustTabNew").VbButton("ThunderRT6CommandButton_2").Click
VbWindow("frmMain").VbWindow("frmCustTabNew").VbButton("Set Status").Click
VbWindow("frmSetCustStstus").VbButton("OK").Click
VbWindow("frmMain").VbWindow("frmCustTabNew").VbEdit("txtBaseInfo(1)").Set "dswang"
VbWindow("frmMain").VbWindow("frmCustTabNew").VbToolbar("tbr").Press "Apply"
VbWindow("frmMain").VbWindow("frmCustTabNew_2").Close
isAccount = DataTable("account", dtGlobalSheet)
set con=createobject("adodb.connection")
con.open "DRIVER=SQL Server;SERVER=DSWANG;UID=sa;"&_
"PWD=sa;APP=Microsoft Office 2003;WSID=DSWANG;DATABASE=demodata"
MsgBox "sdf"&isAccount&"sdf"
'access方式:con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\test.mdb"
'Orocle方式:con.open "DRIVER={Oracle in OraHome92};SERVER=CESHI;UID=CND_TEST;PWD=CND;DBQ=CESHI;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;"
set rs=createobject("adodb.recordset")
sql="select * from tblcustomer where Acctnum='&isAccount'"
rs.open sql,con
If ( Not Rs.eof ) then
Rs.MoveFirst
msgbox("The Account Number " &Rs(0)&" is added successfull")
else msgbox("The account is not find")
'end if
End If
rs.close
set rs=nothing
con.close
set con=nothing
还有想问下 这样设置 算不算数据库检验点 ,在问下有没有其他的方法设置! 谢谢 |
|