我在一台IP为10.93.157.144的电脑的D盘zhang的文件夹有一个test.mdb数据库,我想在另外一台电脑上对这个数据库进行操作,这台电脑的账号为zltyjx,密码为zltyjx123456请问下,怎么连接...
我在一台IP为10.93.157.144的电脑的D盘zhang的文件夹有一个test.mdb数据库,我想在另外一台电脑上对这个数据库进行操作,这台电脑的账号为zltyjx,密码为zltyjx123456
请问下,怎么连接
db_host="10.93.157.144"
db_data="\\10.93.157.144\zhang\test.mdb"
db_user=zltyjx
db_pass=zltyjx123456
Public sub dbConn()
On Error GoTo Error_Handle
Dim sql As String
Dim Strcn As String
Strcn = "DRIVER={MySQL ODBC 5.1 Driver};" & _
"SERVER=" & db_host & ";" & _
"DATABASE=" & db_data & ";" & _
"UID=" & db_user & ";PWD=" & db_pass & ";" '& _
'"OPTION=3;stmt=SET NAMES utf8"
Debug.Print Strcn
Cn.Open Strcn ‘在这一步出错了!!!!!
DBConnect = True
Cn.CursorLocation = adUseClient
Exit Function
Error_Handle:
DBConnect = False
Exit Function
End Function
展开