在机器 Windows10 64 位上将 MySQL ODBC 连接到 VBScript 中的 32 位的正确方法是什么?
What is the correct way to connect MySQL ODBC to a 32bit in VBScript on machine Windows10 64bit?
我最近在 Windows 10 x64 上安装了 MySQL 社区服务器。
现在,我的一个使用 ODBC 连接 32 位的脚本 VBScript 不再有效。
但 ODBC 相同的驱动程序在 Microsoft Visual Studio Professional 2013 上正常工作。
ODBC x86
ODBC x64
错误是:
Error 1918. Error installing ODBC driver MySQL ODBC
5.3 ANSI Driver, ODBC error 13: The setup routines for
the MySQL ODBC 5.3 ANSI Driver ODBC driver could
not be loaded due to system error code 126: The
specified module could not be found. ...\myodbc5S.dll...
我试过this suggestion没有成功。
下面是我的代码。
Start_Time = Timer
Set cn = CreateObject("ADODB.Connection")
cn.Open "DRIVER={MySQL ODBC 5.3 ANSI Driver};SERVER=XXX;PORT=3306;DATABASE=XXX;USER=XXX;PASSWORD=XXX;OPTION=3;"
cn.CommandTimeout = 10000
cn.Close()
Set cn = Nothing
End_Time = Timer
Total_Time = FormatNumber(End_Time - Start_Time, 2)
If Err.Number <> 0 Then
MsgBox(Date() & vbcrlf & " " & Err.Number & vbcrlf & Err.Description)
Else
CreateObject("WScript.Shell").Popup "OK! " & vbcrlf & Now() & vbcrlf & "Total Time : " & Total_Time, 10, "OK"
END If
On Error GoTo 0
WScript.Quit
我最近在 Windows 10 x64 上安装了 MySQL 社区服务器。
现在,我的一个使用 ODBC 连接 32 位的脚本 VBScript 不再有效。
但 ODBC 相同的驱动程序在 Microsoft Visual Studio Professional 2013 上正常工作。
ODBC x86
ODBC x64
错误是:
Error 1918. Error installing ODBC driver MySQL ODBC
5.3 ANSI Driver, ODBC error 13: The setup routines for
the MySQL ODBC 5.3 ANSI Driver ODBC driver could
not be loaded due to system error code 126: The
specified module could not be found. ...\myodbc5S.dll...
我试过this suggestion没有成功。
下面是我的代码。
Start_Time = Timer
Set cn = CreateObject("ADODB.Connection")
cn.Open "DRIVER={MySQL ODBC 5.3 ANSI Driver};SERVER=XXX;PORT=3306;DATABASE=XXX;USER=XXX;PASSWORD=XXX;OPTION=3;"
cn.CommandTimeout = 10000
cn.Close()
Set cn = Nothing
End_Time = Timer
Total_Time = FormatNumber(End_Time - Start_Time, 2)
If Err.Number <> 0 Then
MsgBox(Date() & vbcrlf & " " & Err.Number & vbcrlf & Err.Description)
Else
CreateObject("WScript.Shell").Popup "OK! " & vbcrlf & Now() & vbcrlf & "Total Time : " & Total_Time, 10, "OK"
END If
On Error GoTo 0
WScript.Quit