步骤:
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
<!--[if !supportLineBreakNewLine]-->
<!--[endif]-->