vb+MySql фатальная ошибка при запросе

[Penumbra]

есть БД MySQL
подключаюсь к ней так

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

...
Dim cnMySql As ADODB.Connection
Dim rsMySql As ADODB.Recordset
Set cnMySql = New ADODB.Connection
Set rsMySql = New ADODB.Recordset

sCn = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=test; User=admin;Password=admin;Option=3;"
cnMySql.CursorLocation = adUseServer
cnMySql.CommandTimeout = 120
cnMySql.ConnectionTimeout = 120
cnMySql.Open sCn
With rsMySql
            .ActiveConnection = cnMySql
            .LockType = adLockOptimistic
            .CursorType = adOpenStatic
            .Source = "select * from `meter_options` where `id`=5 "
            .Open
End With
...
SerialNumber = rsMySql.Fields(1)
MeterName = rsMySql.Fields(2)

при выполнении этого кода сам VB6 падает с фатальной ошибкои на строке SerialNumber = rsMySql.Fields(1)
хотя если вместо запроса .Source = "select * from `meter_options` where `id`=5 "
сделать .Source = "select * from `meter_options` " то все норм проходит
вопрос, почему при использовании в "where `id`=5" VB6 падает с фатальной ошибкои ?

[iGrok]

при выполнении этого кода сам VB6 падает с фатальной ошибкои на строке SerialNumber = rsMySql.Fields(1)
хотя если вместо запроса .Source = "select * from `meter_options` where `id`=5 "
сделать .Source = "select * from `meter_options` " то все норм проходит
вопрос, почему при использовании в "where `id`=5" VB6 падает с фатальной ошибкои ?

Ты бы хоть номер ошибки привёл, а то у нас телепатов мало..

Пока могу предположить, что для первой записи в наборе второе(или первое? Не помню, как там индексация начинается) поле у тебя не NULL, а для записи с ID=5 - NULL.
И ты этот NULL пытаешься присвоить строковой переменной.

Если так - делай перед присвоением проверку

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

If Not IsNull (rsMySql.Fields(1)) Then SerialNumber = rsMySql.Fields(1)

[Penumbra]

у меня VB6 падает с фатальной ошибкои

error.JPG (83.5 Кб) Просмотров: 377

[Денис]

На 97% уверен в том, что ошибка здесь:

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

Driver={MySQL ODBC 5.1 Driver}

драйвер мусклы шалит. Попробуй другую версию драйвера.

[Penumbra]

спс, грохнул {MySQL ODBC 5.1 Driver}, поставил MySQL ODBC 3.51 все заработало)))