VBNet - Форум - Вопрос по Adodc1!

Вопрос: Вопрос по Adodc1! Добавлено: 27.01.03 18:54

Автор вопроса: Gagarin

cn.Open

Set rs = cn.Execute("SELECT * FROM TABL")

Combo1.Clear

For i = 12 To rs.Fields.Count - 1

Stolb = rs.Fields(i).Name

Combo1.AddItem Stolb

Next i

cn.Close

Главная.Adodc1.Recordset("Combo1.Text") = 6

Adodc1.Recordset.Update

Выдаёт ощибку:

Неудаёться найти объект в семействе, соответствующий требуемому имени или порядковому номеру.

Подскажите как это сделать правильно если имя столбца задаётся из ComboBox

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

SHDZ

ICQ: 209382104

Вопросов: 39
Ответов: 244

Профиль | | #1

Добавлено: 28.01.03 10:58

cn.Open

Set rs = cn.Execute("SELECT * FROM TABL")

im i%
For i = 1 To rs.RecordCount

If rs.EOF Then
    rs.MoveFirst
    If rs.EOF Then
        Combo1.Text = "НЕТ ДАННЫХ"
    Else
        Combo1.ListIndex = 0
    End If
    Exit For
Else
Combo1.AddItem rs.Fields(1).Value
Combo1.ItemData(Combo1.NewIndex) = rs.Fields _(0).Value
    rs.MoveNext
    Combo1.Text = "Выбрать?"
End If
Next i

Ответить

Номер ответа: 2
Автор ответа:

SHDZ

ICQ: 209382104

Вопросов: 39
Ответов: 244

Профиль | | #2

Добавлено: 28.01.03 11:07

Извини, может я не правильно понял, но что должно получиться?

Adodc1.Recordset("Combo1.Text") = 6 ?? - для какой цели?

Ответить

Номер ответа: 3
Автор ответа: