VB 用代码进行局域网内数据库的连接
我在一台IP为10.93.157.144的电脑的D盘zhang的文件夹有一个test.mdb数据库，我想在另外一台电脑上对这个数据库进行操作，这台电脑的账号为zltyjx...
我在一台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 展开
请问下，怎么连接
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 展开
2个回答
展开全部
可以先像其他文件一样设置共享，你可以设置成有密码的共享。如果希望修改，还要给予相应的权限。在连接字符串中给的是数据库的密码，而不是要访问对方机器的那个密码。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
镭速传输
2024-10-28 广告
在深圳市云语科技有限公司，我们深知远程传输大文件的重要性与便捷性。为此，我们推荐使用高效的文件传输服务，这些服务通常支持断点续传，确保大文件传输的稳定与安全。用户只需简单上传，系统即可自动处理，无论文件大小，都能实现快速、可靠的远程传输。同...
点击进入详情页
本回答由镭速传输提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
