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

Question

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

0

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

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

akosidarna 18 янв. 2010, в 08:35

Источник

0

Вы можете использовать ODBC или OleDB. Для этого вам нужен соответствующий драйвер или поставщик ole db для MySQL.
shahkalpesh 18 янв. 2010, в 07:06

Теги:

mysql

vb6

2 ответа

Ещё вопросы

Вы можете использовать ODBC или OleDB. Для этого вам нужен соответствующий драйвер или поставщик ole db для MySQL.

MarkJ · Answer 1 · 2010-01-18T10-56-00.000Z

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 из здесь.

Предупреждение: воздушный код. Я никогда не делал этого сам.

Я использовал код, похожий на этот, и я могу засвидетельствовать, что он работает.

Haim Evgi · Answer 2 · 2010-01-18T05-21-00.000Z

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

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

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

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

■ Запустите новый проект 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

Удаленные объекты данных были объявлены Microsoft устаревшими. Я бы предложил попробовать ADO вместо этого. msdn.microsoft.com/en-us/library/...