C:\Windows\SysWOW64\odbcad32.exe里面对应的是32位的驱动程序
C:\Windows\System32\odbcad32.exe里面对应的是64位的驱动程序
QTP认得是32位的
Dim Conn
'建立数据库连接对象
Set Conn=CreateObject("ADODB.Connection")
Const ConnectionString="DSN=MySQL1;DATABASE=mysql;PWD=root;PORT=3306;SERVER=localhost;UID=root"
'Const ConnectionString="Driver={MySQL ODBC 5.1 Driver};DATABASE=mysql;PWD=root;PORT=3306;SERVER=127.0.0.1;UID=root"
Conn.Open ConnectionString
If Conn.State<>0 Then
Reporter.ReportEvent micPass,"testing","连接数据库成功"
'建立记录集对象
Set res = CreateObject("adodb.recordset")
sql = "select * from mysql.user"
res.Open sql, Conn
Dim i
i = 1
Do While Not res.EOF
host = res.Fields("Host")
res.MoveNext
DataTable.Value("Host","user") = host
i = i + 1
DataTable.SetCurrentRow(i)
loop
else
Reporter.ReportEvent micFail,"testing","连接数据库失败"
End If