怎样用vb访问mysql数据库？

Question

比如连接？查询？

Answer 1

用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

Answer 2

连接字符串如下：（其他细节请看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;"

Answer 3

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的登陆密码"

Answer 4

用二楼的这个吧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