Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Работа с Connection

Автор: Leska 22.3.2005, 12:37

Привет!
Проблема: надо выбрать значенния из таблицы, что связанна с другой таблицей
запрос

Код


str_sql1 = "select nmk.nmk_note from nmk, nmk_classif_type  where " & _
"nmk_classif_type.nmk_classif_type_id=nmk.nmk_classif_type_id and " & _
"nmk_classif_type.nmk_classif_type_name=" + "'" + Me.Combo1 + "'"

есть такое соединение с БД

Код


Set MyConn = New ADODB.Connection
  MyConn.Open "DRIVER={INTERSOLV InterBase ODBC Driver (*.gdb)};" & _
" UID=...;PWD=...;DB=....", "...", "..."

и есть

Код


Set MyRec1 = New ADODB.Recordset
MyRec1.Open (str_sql1), MyConn
MyRec.MoveLast
MyRec1.MoveFirst
While Not MyRec1.EOF
s = 
  List1.AddItem s
    MyRec1.MoveNext
Wend

выдает, что MyRec1.Fields.Item(0)=0. И есть такое сообщение <Текущий проводник не поддерживает обновление связанных значений>. Какой проводник мне использовать?
Не ругать, с Connection работать только учусь smile

.
Заранее спасибо.

Автор: Leska 24.3.2005, 10:10

Неужели никто ничего не подскажет?!

Автор: Exception 24.3.2005, 16:07

Может трабл с Recordset'ом?
Попробуй пооткрывать с разными типамии курсоров (adOpenDynaSet, adOpenStatic, adOpenKeySet и т.п.) smile

Автор: Leska 25.3.2005, 10:00

Перепробовала всеми 4-мя, все равно таже история smile

Автор: Leska 25.3.2005, 11:51

Если кого заинтересует:
дело на провайдере ни как не завязано
после как определили содержимое комбобокса вставляете

Код


Me.Combo1.ItemData(Me.Combo1.NewIndex) = CLng(MyRec.Fields(0))

и в запрос

Код


str_sql1 = "select nmk.nmk_note from nmk, nmk_classif_type  where " & _
"nmk_classif_type.nmk_classif_type_id=nmk.nmk_classif_type_id and " & _
"nmk_classif_type.nmk_classif_type_name=" + Format(Me.Combo1.ItemData(Me.Combo1.ListIndex))

и проблема с MyRec1.Fields.Item(0)=0 решена