在VB中可以使用ADO数据控件实现对MySQL数据库的访问,但ADO控件不能直接访问MySQL,需要安装MyODBC(可以在网上下载)并在ODBC中注册一个用户DSN(控制面板/管理工具/数据源),这样就能使VB顺利连接到MySQL数据库了。连接上了还需要执行SQL查询操作并能取得查询结果,可以使用ADODB的Command对象和RecordSet对像。实现VB对MySQL的访问的具体代码如下:
Private Sub connect_Click()
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
'connect to MySQL server using MySQL ODBC 3.51 Driver
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=localhost;" & _
"DATABASE=bs;" & _
"UID=root;PWD=;OPTION=3"
conn.Open
cmd.CommandText = "select * from student"
cmd.ActiveConnection = conn
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenStatic, adLockBa
Private Sub connect_Click()
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
'connect to MySQL server using MySQL ODBC 3.51 Driver
"SERVER=localhost;" & _
"DATABASE=bs;" & _
"UID=root;PWD=;OPTION=3"
conn.Open
cmd.CommandText = "select * from student"
cmd.ActiveConnection = conn
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenStatic, adLockBa