qtp连接mysql数据库_QTP如何连接/查询数据库

完整的连接脚本代码：

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