Mẫu MySQL cho Visual Basic 6.0 - đọc/ghi

Question

Tôi muốn tìm một ví dụ đơn giản về làm việc với cơ sở MySQL từ xa. Tôi biết, có một số hướng dẫn trên internet, giải thích làm thế nào để thiết lập ADODB.Connection và connectionstrings, nhưng tôi couldnt làm cho nó hoạt động. Cảm ơn vì bất kì sự giúp đỡ!

Answer 1

Tải xuống số ODBC connector từ số MySQL download page.

Tìm kiếm ngay connectionstring qua here.

Trong dự án VB6 của bạn, hãy chọn tham chiếu đến Microsoft ActiveX Data Objects 2.8 Library. Có thể bạn cũng có thư viện 6.0 nếu bạn có Windows Vista hoặc Windows 7. Nếu bạn muốn chương trình của mình chạy trên các máy khách Windows XP thì tốt hơn là bạn nên sử dụng thư viện 2.8. Nếu bạn có Windows 7 với SP 1 hơn chương trình của bạn sẽ không bao giờ chạy trên bất kỳ hệ thống nào khác với thông số kỹ thuật thấp hơn do lỗi tương thích trong SP1. Bạn có thể đọc thêm về lỗi này trong KB2517589.

Mã này sẽ cung cấp cho bạn đủ thông tin để bắt đầu với trình kết nối ODBC.

Private Sub RunQuery() 
    Dim DBCon As adodb.connection 
    Dim Cmd As adodb.Command 
    Dim Rs As adodb.recordset 
    Dim strName As String 

    'Create a connection to the database 
    Set DBCon = New adodb.connection 
    DBCon.CursorLocation = adUseClient 
    'This is a connectionstring to a local MySQL server 
    DBCon.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=myDataBase; User=myUsername;Password=myPassword;Option=3;" 

    'Create a new command that will execute the query 
    Set Cmd = New adodb.Command 
    Cmd.ActiveConnection = DBCon 
    Cmd.CommandType = adCmdText 
    'This is your actual MySQL query 
    Cmd.CommandText = "SELECT Name from Customer WHERE ID = 1" 

    'Executes the query-command and puts the result into Rs (recordset) 
    Set Rs = Cmd.Execute 

    'Loop through the results of your recordset until there are no more records 
    Do While Not Rs.eof 
     'Put the value of field 'Name' into string variable 'Name' 
     strName = Rs("Name") 

     'Move to the next record in your resultset 
     Rs.MoveNext 
    Loop 

    'Close your database connection 
    DBCon.Close 

    'Delete all references 
    Set Rs = Nothing 
    Set Cmd = Nothing 
    Set DBCon = Nothing 
End Sub