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

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

展开

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值