QTP中连接MYSQL数据库

moguikumogui

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,可是系统老是提醒我"未发现数据源名称并且未指定默认驱动程序",我不明白这是为什么?

高手们,请赐教

blizzardlyk

数据源没有配置好吧?

moguikumogui

数据源怎么配置?我之前也是这样写的链接,是可以的啊

blizzardlyk

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