Доброго времени суток!
На компьютере есть установлен сервер. Установил также и 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 |