未发现数据源名称并且未指定默认驱动程序

My_duo

为什么连接mysql的在VBSEDIT运行成功，QTP11.5就error了

1. Option explicit
   
2. Dim MysqlConn,adoConn
   
3. MysqlConn = "Driver=MySQL ODBC 5.1 Driver;Server=localhost;UID=root;PWD=123456;Database=test;Port=3306"
   
4. Set adoConn = CreateObject("adodb.connection")
   
5. adoConn.Open MysqlConn
   
6. If adoConn.State<>0 Then
   
7. MsgBox "数据库连接成功"
   
8. Else
   
9. Msgbox "数据库连接失败"
   
10. End If
    
11. adoconn.Close
    
12. Set adoConn = Nothing

复制代码

My_duo

好久了，终于解决这个问题了。
坑爹的64位系统

My_duo

回复 5# 泰然


    保存为VBS的可以运行，连接成功。   
    这个运行成功应该就不是字符串没的问题吧。
    QTP 我也重装了一次，还是不行。
    我准备晚上换个oracle的数据库试下。
    多谢了。

泰然

你把脚本内容保存成test.vbs文件，双击运行这个文件，看看能否提示数据库连接成功。如果能的话，就一定是你QTP的vbs解释器出问题了，重装QTP。如果也不能的话，要么是操作系统自带的vbs解释器坏了，要么是你脚本中调用数据库的连接串写的有问题。vbsedit使用了自己的vbs解释器。

My_duo

回复 2# 泰然


    不知道与系统有没有关系，Win7 64 位，office2010
    Mysql ODBC driver我也换了几个版本试了。

My_duo

回复 2# 泰然


    是一台机器哈。数据库配置没问题，我检查好多遍了。不知道原因在哪。

泰然

我不确定你对mysql数据库的了解有多少，所以可能问题有点初级。

你的脚本在qtp和vbsedit上运行的机器是同一台吗？mysql用户的配置包括哪些你是否清楚？连接串中有哪些设置是否清楚？

我用你的脚本在qtp11.0中运行是没有问题的。