怎样用vb访问mysql数据库？

[lmdeo]

比如连接？查询？

[heruzhi]

用ADODC控件。或者用代码（ADO）实现：
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim str As String
Dim connstr As String
connstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & "Persist Security Info=False;Initial Catalog=" _
& DATABASE_NAME & ";Data Source=" & SERVER_NAME
conn.Open connstr
rs.Open TABLE_NAME,conn, adOpenStatic, adLockOptimistic

[of123]

连接字符串如下：（其他细节请看MSDN文档）
ODBC Driver for MySQL (via MyODBC)
　
To connect to a local database

Conn.Open "Driver={mySQL};" & _
　　　　　　　　　 "Server=MyServerName;" & _
　　　　　　　　　 "Option=16834;" & _
　　　　　　　　　 "Database=mydb;"

To connect to a remote database

Conn.Open "Driver={mySQL};" & _
　　　　　　　　　 "Server=db1.database.com;" & _
　　　　　　　　　 "Port=3306;" & _
　　　　　　　　　 "Option=131072;" & _
　　　　　　　　　 "Stmt=;" & _
　　　　　　　　　 "Database=mydb;" & _
　　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　　 "Pwd=myPassword;"

[Alicky]

Dim conn As New ADODB.Connection
Dim connstr As String
connstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog= 数据库名;Data Source=服务器名
Conn.Open connstr,"sa","sa的登陆密码"

[zwbhyy]

用二楼的这个吧

Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim str As String
Dim connstr As String
connstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & "Persist Security Info=False;Initial Catalog=" _
& DATABASE_NAME & ";Data Source=" & SERVER_NAME
conn.Open connstr
rs.Open TABLE_NAME,conn, adOpenStatic, adLockOptimistic