QTP连接数据库进行增删改查脚本
上一篇 /
下一篇 2009-12-04 18:20:53
/ 个人分类：QTP
步骤：
1、首先创建数据源
2、在QTP的Exper View中开发脚本如下脚本
增删改脚本为：
Dim conn,strSql '定义变量
set conn = CreateObject("ADODB.Connection") '创建连接
conn.ConnectionString="DSN=test_access_odbc;DBQ=E:\test.mdb;DriverId=25;FIL=MS
Access;MaxBufferSize=2048;PageTimeout=5;" '设置连接字符串
conn.open '开启连接
'strSql="insert into email_value values(11,'123')" '设置插入语句
'strSql="update email_value set email_value='tester' where ID=11"
strSql="delete from email_value where ID=11"
If conn.state=0 Then '如果连接状态为0，表示连接失败，写入reporter对象中，否则表示连接成功
Reporter.ReportEvent micFail,"testing","数据库连接失败"
conn.close
Set conn = nothing
else
Reporter.ReportEvent micPass,"testing","数据库连接成功"
conn.execute strSql '执行更新语句
conn.close
Set conn = nothing
End If
查询脚本为：
Dim conn,res,strSql '定义变量
set conn = CreateObject("ADODB.Connection") '创建连接
conn.ConnectionString="DSN=test_access_odbc;DBQ=E:\test.mdb;DriverId=25;FIL=MS
Access;MaxBufferSize=2048;PageTimeout=5;" '设置连接字符串
conn.open '开启连接
Set res = CreateObject("ADODB.RecordSet") '创建一个记录集对象
strSql="select * from email_value" '设置查询雨具
If conn.state=0 Then '如果连接状态为0，表示连接失败，写入reporter对象中，否则表示连接成功
Reporter.ReportEvent micFail,"testing","数据库连接失败"
res.close '关闭结果集和连接，并且置为空
Set res = nothing
conn.close
Set conn = nothing
else
Reporter.ReportEvent micPass,"testing","数据库连接成功"
res.open strSql,conn '执行查询语句
res.MoveFirst '将记录集游标指到记录集的最开始
Do
Reporter.ReportEvent micPass,"file",cstr(res(0))+"
: "+cstr(res(1)) '循环遍历查询结果，并且保持到reproter对象中，直到记录集到达末尾，循环结束
res.MoveNext
Loop until res.eof = true
res.close
Set res = nothing
conn.close
Set conn = nothing
End If
收藏
举报
TAG:
