51Testing软件测试论坛

标题: QTP连接数据库提示“ODBC驱动程序不支持所需的属性” [打印本页]

作者: vera_zhangx 时间: 2014-10-14 16:12
标题: QTP连接数据库提示“ODBC驱动程序不支持所需的属性”
Dim Conn
Set Conn=CreateObject("ADODB.Connection")
Const ConnectionString="Driver={Mysql ODBC 3.51 Driver};DATABASE=***

WD=i***

ORT=0;SERVER=***;UID=***"
Conn.Open ConnectionString
If Conn.State<>0 Then
Reporter.ReportEvent micPass,"testing","连接数据库成功"
else
Reporter.ReportEvent micFail,"testing","连接数据库失败"
End If

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

'查询数据库
sql="SELECT CODE , PASSWORD FROM `user_infomation` WHERE TYPE = '1' AND state = '1'"
str.Open sql,conn,1,1 '1,1表示只读;1,3表示插入数据;2,3表示修改数据
str.MoveFirst'使游标指向第一个记录
sum=""
While Not  str.EOF
'msgbox str.Fields("username")
For i=0 to str.Fields.Count-1'str.Fields.Count表示字段个数
sum=sum & str(i) & " " '把整个记录显示出来
Next
Print sum & vbCRLF'打印所有查询的记录
str.MoveNext'使游标进入下一个
Wend

str.Close    '关闭数据集实例
Set str=Nothing
Conn.Close  '关闭数据库实例
Set Conn=Nothing

每次到SQL语句下一行就跑步下去，提示ODBC不支持，是上面的查询语句有问题吗？求解答，急求！

作者: 赵佳乐SMILE 时间: 2014-10-14 16:21
用代码那个按钮再发一遍吧要不不好看

作者: vera_zhangx 时间: 2014-10-15 09:46

赵佳乐SMILE 发表于 2014-10-14 16:21
用代码那个按钮再发一遍吧要不不好看

数据库连接是成功的，就是下面的操作无法跑下去了（附截图）
C:\Users\us\Desktop\实例[attach]92491[/attach]

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)