Visual Basic 6 code for connecting to a MySQL database using the MySQL ODBC driver.

© copyright 01.Jan.2002 by Paul Bradley filed under Visual Basic

[Ad] need a break from coding?

This code snippet demonstrates how to connect to a MySQL database from a Windows based application written in Visual Basic 6. By using the MySQL ODBC driver and the Microsoft Remote Data Object it is quite easy to connect and retrieve records from a MySQL database server.

• Download and install the MySQL ODBC driver.
• Set-up a MySQL username and password combination that will allow connections from any host. See MySQLs grant command.
• Start a new Visual Basic project and add the Microsoft Remote Data Object - Using the menus select Project | References and then select the Microsoft Remote Data Object from the list.

Sample Code

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

About the Author
Paul Bradley is a VB.NET software developer living and working in Cumbria. He has over 20 years programming experience. He also produces e-learning videos at Code by Example and Linux by Example

Other Popular Articles

• How to detect a function key has been pressed within a text field.
• Programmatically set the language of a word document using Word's object modal in Visual Basic 2005
• Tiff Splitter Works Under Linux.