Question

VB 用代码进行局域网内数据库的连接

我在一台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

Answer 1

可以先像其他文件一样设置共享，你可以设置成有密码的共享。如果希望修改，还要给予相应的权限。在连接字符串中给的是数据库的密码，而不是要访问对方机器的那个密码。

Answer 2

{MySQL ODBC 5.1 Driver}--这是连接mysql数据库的驱动,test.mdb是access数据库,哪能成功呢

另外,电脑账户不等于数据库用户.

追问

给下代码哈

追答

从来没这么做过,没有代码,不好意思.

access驱动用Microsoft.Jet.OLEDB

追问

Strcn = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source = \\10.93.157.144\zhang\test.mdb"

我这么写了之后然后在关机开机之后，好像又连接不上了，在 运行\\10.9.3157.144中输入账号密码之后连接又正常了……

追答

先shell调用net use 连接共享主机,在联数据库
参考 http://bbs.csdn.net/topics/360225896