51Testing软件测试论坛

标题: QTP中连接MYSQL数据库 [打印本页]

作者: moguikumogui 时间: 2009-5-25 18:22
标题: QTP中连接MYSQL数据库
Dim Conn,Str,MyRs
Set Conn = CreateObject("ADODB.Connection")
Str = "DRIVER = {MySQL ODBC 5.1 Driver}; SERVER = Localhost; DATABASE = musb; User = root; Password = root"
Conn.Open Str
Set MyRs = CreateObject("ADODB.RecordSet")
Set MyRs = Conn.execute("select max(idUser) from User")
msgbox MyRs(0)
MyRs.close
MyStr.close
Conn.close

我是这样写的,之前都成功过,也安装了MySQL ODBC 5.1 Driver,可是系统老是提醒我"未发现数据源名称并且未指定默认驱动程序",我不明白这是为什么?
[attach]52319[/attach]
高手们,请赐教

作者: blizzardlyk 时间: 2009-5-25 18:25
数据源没有配置好吧?

作者: moguikumogui 时间: 2009-5-25 18:27
标题: 回复 2# 的帖子
数据源怎么配置?我之前也是这样写的链接,是可以的啊

作者: blizzardlyk 时间: 2009-5-25 18:33
控制面板 -> 管理工具里面有个数据源在里面添加吧,如果数据源测试连接成功,应该不会出问题了
不过MYSQL 没尝试过,无法提供更多帮助了

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