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

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

Форум программистов > VB6 > Из базы данных в ListBox

Автор: Nephrit 24.8.2007, 04:47

Я использую такой вот код:
    frmAdd.listbox.Clear
        frmAdd.Data1.Recordset.MoveFirst
    While Not frmAdd.Data1.Recordset.EOF
        frmAdd.listbox.AddItem ("" & frmAdd.Data1.Recordset.Fields("Name"))
        frmAdd.Data1.Recordset.MoveNext
    Wend

НО этот код просто тупо добавляет все записи в ListBox.
А какой должен быть код, что бы добавлялось только, то ч то мне нужное. Через запрос к базе данных.
Типа:
   frmAdd.Data1.Recorsource="SELECT * FROM basa WHERE Name='" & то что мне нужно & " ' "
и далее то что найдёт, добавляется в ListBox.

Спасибо.

Автор: Akina 24.8.2007, 08:43

Это что, теперь принято - задавать вопрос и тут же давать на него ответ?

PS. После смены RecordSource необходимо выполнить Requery

Автор: Nephrit 24.8.2007, 19:03

Так что мне дальше-то писать?

Автор: Akina 26.8.2007, 18:06

Так сначала

Код


frmAdd.Data1.Recorsource="SELECT * FROM basa WHERE Name='" & то что мне нужно & " ' "

потом

Код


frmAdd.Data1.requery

и уже затем

Код


    frmAdd.listbox.Clear
        frmAdd.Data1.Recordset.MoveFirst
    While Not frmAdd.Data1.Recordset.EOF
        frmAdd.listbox.AddItem ("" & frmAdd.Data1.Recordset.Fields("Name"))
        frmAdd.Data1.Recordset.MoveNext
    Wend