我在一臺(tái)IP為10.93.157.144的電腦的D盤zhang的文件夾有一個(gè)test.mdb數(shù)據(jù)庫(kù)，我想在另外一臺(tái)電腦上對(duì)這個(gè)數(shù)據(jù)庫(kù)進(jìn)行操作，這臺(tái)電腦的賬號(hào)為zltyjx，密碼為zltyjx123456請(qǐng)問下，怎么連接...

我在一臺(tái)IP為10.93.157.144的電腦的D盤zhang的文件夾有一個(gè)test.mdb數(shù)據(jù)庫(kù)，我想在另外一臺(tái)電腦上對(duì)這個(gè)數(shù)據(jù)庫(kù)進(jìn)行操作，這臺(tái)電腦的賬號(hào)為zltyjx，密碼為zltyjx123456

請(qǐng)問下，怎么連接

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 ‘在這一步出錯(cuò)了！！！！！

DBConnect = True

Cn.CursorLocation = adUseClient

Exit Function

Error_Handle:

DBConnect = False

Exit Function

End Function

展開

總結(jié)

以上是生活随笔為你收集整理的vb局域网连接mysql_VB 用代码进行局域网内数据库的连接的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。