51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1663|回复: 2
打印 上一主题 下一主题

[求助] QTP连接数据库提示“ODBC驱动程序不支持所需的属性”

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2014-10-14 16:12:33 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
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不支持,是上面的查询语句有问题吗?求解答,急求!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2014-10-15 09:46:08 | 只看该作者
赵佳乐SMILE 发表于 2014-10-14 16:21
用代码 那个按钮再发一遍吧 要不不好看

数据库连接是成功的,就是下面的操作无法跑下去了(附截图)
C:\Users\us\Desktop\实例

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2024-10-4 10:34
  • 签到天数: 1208 天

    连续签到: 1 天

    [LV.10]测试总司令

    2#
    发表于 2014-10-14 16:21:29 | 只看该作者
    用代码 那个按钮再发一遍吧 要不不好看
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-11 20:31 , Processed in 0.064668 second(s), 24 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表