将VB连接到MySQL

Question

我想问一些关于如何将VB6连接到MYSQL的帮助？请提供参考。

非常感谢

Answer 1

链接：http://paulbradley.tv/37/

这段代码演示了如何从Visual Basic编写6.使用MySQL的ODBC驱动程序和Microsoft远程数据基于Windows的应用程序连接到MySQL数据库对象很容易从MySQL数据库服务器连接和检索记录。

■下载并安装MySQL ODBC驱动程序。

■设置一个MySQL用户名和密码组合，允许来自任何主机的连接。请参阅MySQL授予命令。

■启动一个新的Visual Basic项目并添加Microsoft远程数据对象 - 使用菜单选择Project |引用，然后从列表中选择Microsoft远程数据对象。

示例代码

Private Sub cmdConnectMySQL_Click() 

Dim cnMySql As New rdoConnection 
Dim rdoQry As New rdoQuery 
Dim rdoRS As rdoResultset 

' set up a remote data connection 
' using the MySQL ODBC driver. 
' change the connect string with your username, 
' password, server name and the database you 
' wish to connect to. 

cnMySql.CursorDriver = rdUseOdbc 
cnMySql.Connect = "uid=YourUserName;pwd=YourPassword; 
    server=YourServerName;" & _ 
    "driver={MySQL ODBC 3.51 Driver}; 
    database=YourDataBase;dsn=;" 
cnMySql.EstablishConnection 

' set up a remote data object query 
' specifying the SQL statement to run. 

With rdoQry 
    .Name = "selectUsers" 
    .SQL = "select * from user" 
    .RowsetSize = 1 
    Set .ActiveConnection = cnMySql 
    Set rdoRS = .OpenResultset(
      rdOpenKeyset, rdConcurRowVer) 
End With 

' loop through the record set 
' processing the records and fields. 

Do Until rdoRS.EOF 
    With rdoRS 

    ' your code to process the fields 
    ' to access a field called username you would 
    ' reference it like !username 

     rdoRS.MoveNext 
    End With 
Loop 

' close record set 
' close connection to the database 

rdoRS.Close 
cnMySql.Close 

End Sub 

Answer 2

谷歌表示，你可以使用ADO和MySQL ODBC驱动程序。

Dim strConnection$, conn As Connection 

'Fill in the placeholders with your server details' 
strConnection = "Driver={MySQL ODBC 3.51 Driver};Server=myServerAddress;" & _ 
    "Database=myDataBase;User=myUsername;Password=myPassword;Option=3" 

Set conn = New Connection 
conn.Open strConnection 

MySQL的连接字符串从here。

警告：air code。我从来没有做过这件事。