用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