Проблема с recordset (DAO)

[SERG_B]

Столкнулся со странной штукой.
Есть DAO recordset, выбирает 11 полей из базы MySQL.
При переходе на следующую запись теряется значение 11-го поля.
С остальными полями все ОК.
Обнаружил, что оно теряется всегда, при повторном обращении к нему.
(даже если его в MsgBox вывожу)
Кто знает в чем может быть дело, напишите.

[Чудик]

Код бы взглянуть.

[Ennor]

Ммм. А что именно значит - "пропадает"? Это как - выставляется в NULL? И в какой записи - в той, с которой уходишь, или в той, на которую переходишь? И кстати - версия ODBC-дров какая?

[SERG_B]

Вот код:

Public wrkODBC As DAO.Workspace
Public conODBC As DAO.Connection
Public rsGoods As DAO.Recordset
Private Sub Form_Load()
Set wrkODBC = CreateWorkspace(ODBCWorkspace, SERG, "", dbUseODBC)
Set conODBC = wrkODBC.OpenConnection("ConnectODBC", , , "ODBC;DATABASE=planet;UID=SERG;PWD=;DSN=DB")
Set rsGoods = conODBC.OpenRecordset("SELECT good.id_good, good.name, good.id_brand, brand.brand, good.id_type, type.type, good.id_sport, sport.sport, good.id_season, season.season, good.description FROM good, brand, type, sport, season WHERE good.id_brand=brand.id_brand AND good.id_type=type.id_type AND good.id_sport=sport.id_sport AND good.id_season= season.id_season ORDER BY good.id_good", dbOpenDynamic)
With rsGoods
.MoveFirst
Do While Not .EOF
MsgBox .Fields(10)
MsgBox .Fields(10)
.MoveNext
Loop
End With
End Sub

При загрузке в первом msgbox - нужный текст, второй - пустой. Все остальные тоже пустые.
Версия драйвера: 2.5

[Чудик]

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

Public wrkODBC As DAO.Database
Public rsGoods As DAO.Recordset
Public sSQL As String


Private Sub Form_Load()
Set wrkODBC = DAO.OpenDatabase(App.Path & "\ dbUseODBC.mdb")

sSQL ="SELECT good.id_good, good.name, good.id_brand, brand.brand, good.id_type, type.type, good.id_sport, sport.sport, good.id_season, season.season, good.description FROM good, brand, type, sport, season WHERE good.id_brand=brand.id_brand AND good.id_type=type.id_type AND good.id_sport=sport.id_sport AND good.id_season= season.id_season ORDER BY good.id_good"

    Set rs = wrkODBC.OpenRecordset(sSQL)

With rsGoods
.MoveFirst
Do While Not .EOF
MsgBox .Fields(10)
MsgBox .Fields(10)
.MoveNext
Loop
End With
End Sub


Если правильно понял dbUseODBC - твоя БД, если нет, поставь вместо dbUseODBC имя твоей БД. не забудь в Reference поставить ссылку на Microsoft DAO Object Library.
Попробуй, авось заработает.

[SERG_B]

С соединением все ок. Там бы иначе другие ошибки возникали бы.
И DAO естественно подключен!

Дело было в типе данных!!!
MyODBC глючил при работе с полями типов: tinytext и text.
Поставил varchar и все ок!