Подключение VB к MySQL

Question

Я хотел бы попросить некоторую помощь по подключению VB6 к MYSQL? Просьба также предоставить ссылки.

Большое спасибо

Answer 1

ссылка: http://paulbradley.tv/37/

Этот фрагмент кода показывает, как подключиться к базе данных MySQL из приложения на основе Windows, написанной на Visual Basic 6. С помощью драйвера MySQL ODBC и удаленных данных Microsoft Объект довольно легко подключить и извлечь записи с сервера базы данных MySQL.

■ Загрузите и установите драйвер MySQL ODBC.

■ Настройте комбинацию имени пользователя и пароля MySQL, которая позволит подключаться к любому хосту. См. Команду grants MySQLs.

■ Запустите новый проект Visual Basic и добавьте объект Microsoft Remote Data - с помощью меню выберите Project | Ссылки, а затем выберите Microsoft Remote Data Object из списка.

Пример кода

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

Google означает, что вы можете использовать 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 

Строка подключения ODBC для MySQL от here.

Предупреждение: air code. Я никогда не делал этого сам.