QTP如何连接/查询数据库

1、定义一个变量名为Conn的变量，通过set方法创建一个数据库实例

Dim Conn

Set Conn=CreateObject("ADODB.Connection")        '创建数据库实例

通过mysql ODBC5.1 Driver数据源连接Mysql数据库，并配置mysql数据库的通行证

Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=datebase_name;PWD=password;PORT=3306;SERVER=192.178.***。** ;UID=user_name"

校验数据库是否已经成功连接，Reporter.ReportEvent micPass,"testing"，这条语句的结果是最后显示在运行后结果的，平时在调试的时候可以使用 msgbox "连接数据库成功"，就是弹出一个框，打印引号中的字。

Conn.Open ConnectionString    '打开数据库

If Conn.State<>0Then

Reporter.ReportEvent micPass,"testing","连接数据库成功"         '校验数据库是否成功连接

msgbox "连接数据库成功"

else

Reporter.ReportEvent micFail,"testing","连接数据库失败"

End If

Set str=CreateObject("ADODB.Recordset")'使用set方法创建数据集实例

通过sql语句查出需要的数据，然后通过for循环，循环读取数据库中的内容，并将所需要的数据打印出来。

'查询数据库

sql="SELECT shop_id FROM taobao_shop" '这条语句是对数据库的查询命令，这条语句是查询一个表名为taobao_shop的数据，但是只显示shop_id字段

str.Open sql,conn,1,1'1,1表示只读;1,3表示插入数据;2,3表示修改数据

str.MoveFirst'使游标指向第一个记录

sum=""

 While Not str.EOF

  msgbox str.Fields("shop_id")  '测试数据库中某一个字段的数据获取是否正确

  For i=0to str.Fields.Count-1'str.Fields.Count表示字段个数

     sum=sum & str(i) &""'把整个记录显示出来

  Next

     Print sum & vbCRLF'打印所有查询的记录

     sum=""  '清零

     str.MoveNext'使游标进入下一个，这里其实就是一个循环，循环去读取SQL语句查询到的数据，然后打印出来。

Wend

在完成脚本查询以后不要忘记关闭和释放数据库和实例集。

str.Close '关闭数据集实例

Set str=Nothing '释放数据集

Conn.Close '关闭数据库实例

Set Conn=Nothing '释放数据库连接

完整的连接脚本代码：

Dim Conn

Set Conn=CreateObject("ADODB.Connection")                             '创建数据库实例

'Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=test;PWD=root;PORT=3306;SERVER=localhost;UID=root"              '配置数据库通行证

Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=datebase_name;PWD=password;PORT=3306;SERVER=192.178.***。** ;UID=user_name"

Conn.Open ConnectionString

If Conn.State<>0Then

Reporter.ReportEvent micPass,"testing","连接数据库成功"         '校验数据库是否成功连接

msgbox "连接数据库成功"

else

Reporter.ReportEvent micFail,"testing","连接数据库失败"

End If

Set str=CreateObject("ADODB.Recordset")'创建数据集实例

'查询数据库

sql="SELECT shop_id FROM taobao_shop"

str.Open sql,conn,1,1'1,1表示只读;1,3表示插入数据;2,3表示修改数据

str.MoveFirst'使游标指向第一个记录

sum=""

 While Not str.EOF

  msgbox str.Fields("shop_id")  '测试查询得到的数据

  For i=0to str.Fields.Count-1'str.Fields.Count表示字段个数

     sum=sum & str(i) &""'把整个记录显示出来

  Next

     Print sum & vbCRLF'打印所有查询的记录

     sum=""  '清零

     str.MoveNext'使游标进入下一个

Wend

str.Close '关闭数据集实例

Set str=Nothing

Conn.Close '关闭数据库实例

Set Conn=Nothing