Первые шаги в VB & MySQL

[MadChild]

Здравствуйте.
Прошу сильно ногами не пинать.
Подскажите, что делаю не так.
На один комп в сети установил MySQL сервер.
На другом компе пишу программу для работы с базой mysql.
1. Подключил Microsoft DAO 3.51. Object Library
Вот код:

Код: Выделить всё

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sConn As String
Dim sSQL As String
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

sConn = "Driver={SQL Server};Server=Adminnb;Database=test;Uid=root;Pwd=1;"
cn.Open sConn

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing


При попытке подключится вовыодит:
"Общая ошибка сети. ... и т.д. и т.п."

Сторонний софт для администрирования MySQL базы работает превосходно.

[alibek]

1. Если подключил DAO, зачем создаешь объекты ADODB?
2. Если используешь MySQL, то почему применяешь драйвер от MSSQL?
3. «Копать» пишется через «о».

[VVitafresh]

ODBC Connector для подключения к базе можешь скачать этот: http://dev.mysql.com/downloads/connector/odbc/5.1.html
или этот: http://dev.mysql.com/downloads/connector/odbc/3.51.html
Строку подключения посмотреть здесь: http://connectionstrings.com/mysql#p31

Вот примерный код подключения:

Код: Выделить всё

Public Sub OpenCnMySQL(sUID As String, sPwd As String)
    Dim sCn As String
    Dim cnMySql As ADODB.Connection      'MySQL Connection
   
    On Error GoTo ErrorHandler
   
    sCn = "Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.7;Database=dbname; User=" & _
        sUID & ";Password=" & sPwd & ";Option=3;"
       
    Set cnMySql = New ADODB.Connection
   
    cnMySql.CursorLocation = adUseClient     'Cursor Location
    cnMySql.CommandTimeout = 300
    cnMySql.ConnectionTimeout = 300
   
    cnMySql.Open sCn                         'Open Connection
   
    ....
   
    cnMySql.Close
    Set cnMySql = Nothing
   
Exit Sub
ErrorHandler:
        MsgBox "Error = " & Err.Number & vbCrLf & _
            "Description: " & Err.Description, vbCritical, "Error"
    End If
End Sub

[MadChild]

VVitafresh, большое спасибо за подробный ответ.
Что касается клиентской части, вроде всё понятно, буду пробовать.
Что можете посоветовать относительно серверной части. Я поставил Microsoft SMyQL Server 5. Но меня смутил объемпрогаммы, не уверен, что это полноценный сервер и будет полноценно работать. Можете подсказать, какую лучше использовать серверную часть (ОС Windows).

[alibek]

Я поставил Microsoft SMyQL Server 5.

Такой программы не существует.

[MadChild]

Я поставил Microsoft SMyQL Server 5.

Такой программы не существует.

Простите, MySQL Server 5.0
Попутал.

[iGrok]

Я поставил Microsoft SMyQL Server 5.

Такой программы не существует.

Простите, MySQL Server 5.0
Попутал.

Угу. И Microsoft тут совсем ни при чём.
Объём порядка 70 Метров, да?

Если это: http://dev.mysql.com/downloads/mysql/5.0.html#win32
То всё в порядке, и нормально будет работать.