在vb连接mysql数据库_vb链接mysql数据库

本地需要安装

MySQL ODBC

驱动

,

在网上找

MySQL ODBC

驱动下载安装即可

.

以下代码完

整可用

Dim Conn As New ADODB.Connection

'

创建数据库对象

Dim rs As New ADODB.Recordset

'

创建表对象

Dim strCn As String

'

连接字符串

Dim db_host As String

Dim db_user As String

Dim db_pass As String

Dim db_data As String

db_host = ""

'

服务器

IP

地址

db_user = ""

'

登陆服务器时的“用户名”

db_pass = ""

'

登陆服务器时的“密

码”

db_data = ""

'

数据库的库名称

sqlname

(不是表名称)

StrConn = "DRIVER={MySQL ODBC 5.1 Driver};" & _

"SERVER=" & db_host & ";" & _

"DATABASE=" & db_data & ";" & _

"UID=" & db_user & ";PWD=" & db_pass & ";" & _

"OPTION=3;stmt=SET NAMES GB2312"

Conn.Open StrConn

'

打开数据库

Conn.CursorLocation = adUseClient

rs.Open "select * from table order by id desc", Conn, 3, 1

'Me.Text1.Text = rs("sl")

If Not rs.EOF Then

Do While Not rs.EOF

Set Me.VSFlexGrid1.DataSource = rs

//

查询数据将数据显示在列表中

rs.MoveNext

Loop

End If