Доброго времени суток!
На компьютере есть установлен сервер. Установил также и ODBS Driver (конектор).
Подключение к серверу из ВБА получается, но вот выполнить запрос - никак.
При этом через консоль сервера или через "Использование источника данных" в эксель, запрос выполняется успешно.
Подскажите пожалуйста, что не так?
ошибка возникает на строке:
Заранее всем спасибо за помощь!
На компьютере есть установлен сервер. Установил также и ODBS Driver (конектор).
Подключение к серверу из ВБА получается, но вот выполнить запрос - никак.
При этом через консоль сервера или через "Использование источника данных" в эксель, запрос выполняется успешно.
Подскажите пожалуйста, что не так?
| Код |
|---|
Dim sSQL As String
Set FConn = New ADODB.Connection
Set pFilter = New ADODB.Recordset
pFilter.CursorLocation = adUseClient
FConn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; USER=root; PASSWORD=MyPassword; Option=3"
sSQL = "SELECT * FROM keep_3.keep"
pFilter.Open sSQL, FConn.ConnectionString, adOpenKeyset, adLockOptimistic
If pFilter.RecordCount > 0 Then
...
|
| Код |
|---|
pFilter.Open sSQL, FConn.ConnectionString, adOpenKeyset, adLockOptimistic |
