假設你的vb要連接到遠程服務器的MySQL專用數據庫上，可以用以下代碼：

Private Sub Form_Load()

Dim cn As New ADODB.Connection '創建數據庫對象

Dim rs As New ADODB.Recordset '創建表對象

Dim strCn As String '連接字符串

Dim db_host As String '服務器IP地址

Dim db_user As String '用戶名

Dim db_pass As String '密碼

Dim db_data As String '數據庫名稱

Dim db_table As String '表名稱

db_host = "100.9.88.100" '服務器IP地址

db_user = "zhangsan" 'Mysql數據庫登陸用戶名

db_pass = "zhangsan" 'Mysql數據庫登陸密碼

db_data = "zhangsansql" '數據庫的庫名稱

db_table = "zhansanTable" '表名稱

strCn = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=" & db_host & ";" & "DATABASE=" & db_data & ";" & _

"UID=" & db_user & ";PWD=" & db_pass & ";" & "OPTION=3;stmt=SET NAMES GB2312"

cn.Open strCn '打開數據庫

cn.CursorLocation = adUseClient

If cn.State = adStateOpen Then MsgBox "打開遠程MySQL數據庫成功"

'下面開始對具體表(假設"zhansanTable")進行操作

rs.Open db_table, cn, adOpenKeyset, adLockOptimistic '打開表

'這里你可以對打開的表進行操作【增加、刪除和修改等】

MsgBox "遠程數據表中的記錄數量 = " & rs.RecordCount

rs.Close '關閉表

cn.Close '關閉數據庫

End Sub

其他相關

用VB連接MySQL數據庫模塊(詳解)

Option Explicit

'需要安裝 MySQL 的 ODBC 驅動，官網上有，我的是 Connector ODBC 5.1

'先引用 Microsoft ActiveX Data Objects 6.0 Library 我的是 6.0，用最新的就行

Public conn As ADODB.Connection

Public rs As ADODB.Recordset

Public fld As ADODB.Field

Public Sub connOpen()

Set conn = New ADODB.Connection

conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & _

"SERVER=localhost;" & "UID=用戶名;PWD=密碼;OPTION=3"

'注意ODBC驅動版本號，現在最新的 MySQL 5.4 + ODBC 5.1

'另外可以有 DATABASE=XX，或者在程序里使用 use database 語句

'OPTION是什么作用不知道，我這里可以不寫

conn.Open

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient???'游標位置(數據集存在服務器內存還是客戶端內存)

End Sub

Public Sub connClose()

rs.Close

conn.Close

End Sub

'??常用語句

'??conn.Execute "drop database db_vb"

'??conn.Execute "create database db_vb"

'??conn.Execute "use db_vb"

'??conn.Execute "create table test (id int primary key,name char(8) not null)"

'??conn.Execute "insert into test value (1,'abc')"

'??conn.Execute "insert into test value (2,'xyz')"

'??執行查詢

'??rs.Open "select * from test", conn

'??讀取數據集

'??Debug.Print rs.RecordCount '數據集數量

'??rs.MoveFirst

'??For Each fld In rs.Fields

'????Debug.Print fld.Name,??'列標題

'??Next

'??Debug.Print

'??Do Until rs.EOF

'????For Each fld In rs.Fields

'??????Debug.Print fld.Value,

'????Next

'????rs.MoveNext

'????Debug.Print

'??Loop

總結

以上是生活随笔為你收集整理的vb 服务器mysql_VB 连接mysql网络数据库的代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。