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