假設(shè)你的vb要連接到遠(yuǎn)程服務(wù)器的MySQL專用數(shù)據(jù)庫上，可以用以下代碼：

Private Sub Form_Load()

Dim cn As New ADODB.Connection '創(chuàng)建數(shù)據(jù)庫對象

Dim rs As New ADODB.Recordset '創(chuàng)建表對象

Dim strCn As String '連接字符串

Dim db_host As String '服務(wù)器IP地址

Dim db_user As String '用戶名

Dim db_pass As String '密碼

Dim db_data As String '數(shù)據(jù)庫名稱

Dim db_table As String '表名稱

db_host = "100.9.88.100" '服務(wù)器IP地址

db_user = "zhangsan" 'Mysql數(shù)據(jù)庫登陸用戶名

db_pass = "zhangsan" 'Mysql數(shù)據(jù)庫登陸密碼

db_data = "zhangsansql" '數(shù)據(jù)庫的庫名稱

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 '打開數(shù)據(jù)庫

cn.CursorLocation = adUseClient

If cn.State = adStateOpen Then MsgBox "打開遠(yuǎn)程MySQL數(shù)據(jù)庫成功"

'下面開始對具體表(假設(shè)"zhansanTable")進(jìn)行操作

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

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

MsgBox "遠(yuǎn)程數(shù)據(jù)表中的記錄數(shù)量 = " & rs.RecordCount

rs.Close '關(guān)閉表

cn.Close '關(guān)閉數(shù)據(jù)庫

End Sub

其他相關(guān)

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

Option Explicit

'需要安裝 MySQL 的 ODBC 驅(qū)動(dòng)，官網(wǎng)上有，我的是 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驅(qū)動(dòng)版本號(hào)，現(xiàn)在最新的 MySQL 5.4 + ODBC 5.1

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

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

conn.Open

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient???'游標(biāo)位置(數(shù)據(jù)集存在服務(wù)器內(nèi)存還是客戶端內(nèi)存)

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')"

'??執(zhí)行查詢

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

'??讀取數(shù)據(jù)集

'??Debug.Print rs.RecordCount '數(shù)據(jù)集數(shù)量

'??rs.MoveFirst

'??For Each fld In rs.Fields

'????Debug.Print fld.Name,??'列標(biāo)題

'??Next

'??Debug.Print

'??Do Until rs.EOF

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

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

'????Next

'????rs.MoveNext

'????Debug.Print

'??Loop

總結(jié)

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

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