1、安装 Connector/ODBC

2、查看数据源名称

『控制面板』- 『管理工具』- 『数据源(ODBC)』-『添加』

3、连接数据库

Dim Conn,ConnString

'创建数据库实例

Set Conn=CreateObject("ADODB.Connection")

'连接字符串

ConnString="Driver={Mysql ODBC 5.2w Driver};DATABASE=mysql;UID=root;PWD=root;PORT=3306;SERVER=localhost;"

'打开数据库连接

Conn.Open ConnString

If Conn.State<>0 Then

Msgbox "连接数据库成功"

Else

Msgbox"连接数据库失败"

End If

'关闭数据库实例

Conn.Close

Set Conn = Nothing

4、数据库查询实例

Dim Conn,ConnString,strSQLString,strRecordset,i,sum

Set Conn=CreateObject("ADODB.Connection")

ConnString="Driver={Mysql ODBC 5.2w Driver};DATABASE=mysql;UID=root;PWD=root;PORT=3306;SERVER=localhost;"

Conn.Open ConnString

If Conn.State<>0 Then

Call Query()

else

Msgbox "连接数据库失败"

End If

Function Query()

'创建数据集实例

Set strRecordset = CreateObject("ADODB.Recordset")

'查询数据库

strSQLString = "Select * from db"

'1,1表示只读;1,3表示插入数据;2,3表示修改数据

strRecordset.Open strSQLString,conn,1,1

'使游标指向第一个记录

strRecordset.MoveFirst

sum=""

While Not strRecordset.EOF

For i=0 to strRecordset.Fields.Count-1

sum=sum & strRecordset(i) & " "

Next

Msgbox sum & vbCRLF

'使游标进入下一个

strRecordset.MoveNext

Wend

'关闭数据集实例

strRecordset.Close

Set strRecordset=Nothing

End Function

'关闭数据库实例

Conn.Close

Set Conn=Nothing