vb局域网连接mysql_VB 用代码进行局域网内数据库的连接
我在一臺(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)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: SpringBoot+Vue实现前后端分
- 下一篇: SQL学习笔记——数据更新update语