5

Вопрос по mysql – Пример MySQL для Visual Basic 6.0 - чтение / запись

Я хотел бы найти простой пример работы с удаленной базой MySQL. Я знаю, в Интернете есть учебник, объясняющий, как настроить ADODB.Connection и строки подключения, но я не смог заставить его работать. Спасибо за любую помощь!

  • Error: User Rate Limit Exceeded

    от f1nn
  • Error: User Rate Limit Exceededtinyurl.com/mysqlerror-12Error: User Rate Limit Exceeded

    от f1nn
  • Error: User Rate Limit Exceeded

    от f1nn
  • Error: User Rate Limit Exceeded

    от f1nn
  • Error: User Rate Limit Exceeded

    от
  • 6

    Скачать

    ODBC connector отСтраница загрузки MySQL.

    Ищите правоconnectionstring надВот.

    В вашем проекте VB6 выберите ссылку наMicrosoft ActiveX Data Objects 2.8 Library, Возможно, у вас также есть библиотека 6.0, если у вас Windows Vista или Windows 7. Если вы хотите, чтобы ваша программа работала и на клиентах Windows XP, лучше, чем ваша библиотека 2.8. Если у вас Windows 7 с пакетом обновления 1 (SP1), ваша программа никогда не будет работать в любой другой системе с более низкими характеристиками из-за ошибки совместимости в пакете обновления 1 (SP1). Вы можете прочитать больше об этой ошибке вKB2517589.

    Этот код должен дать вам достаточно информации, чтобы начать работу с соединителем 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