將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。我從來沒有做過這件事。