| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как заполнить ComboBox из Дата сета???

Relaxxx ©   (2004-09-23 01:26:00) 

Вернее как заполнить я знаю
 CustQ.Close;
 CustQ.SQL.Clear;
 CustQ.SQL.Add('SELECT Key_pole, Name_cust FROM CUSTOMERS ORDER BY Name_cust');
 CustQ.Open;

 CustQ.First;
 E13.Clear;
 while not CustQ.Eof do
  begin
    E13.Items.Add(CustQ.Fields[1].AsString);
    CustQ.Next;
  end;

но мне нужно еще к этим записям прикрепить и уникальный номер(key_pole), как это сделать, и как потом его считать????

Нужно сделать с помощью стандартного ComboBox!

---

stud   (2004-09-23 09:16:00) [1]

лучше dblookupcombobox

---

КаПиБаРа   (2004-09-23 07:56:00) [2]

F1 - TDBComboBox

---

Defunct   (2004-09-23 02:29:00) [3]

> а как читать???

key field := Integer(Items.Objects[..])

---

GanibalLector   (2004-09-23 01:41:00) [4]

Дык...еще один Query и всперед.
запрос: SELECT  Name_cust FROM CUSTOMERS where Key_pole=:pa1

Query.ParamByName('pa1').value:=Combobox.Text;

---

Relaxxx   (2004-09-23 01:39:00) [5]

а как читать???

---

Defunct   (2004-09-23 01:35:00) [6]

Items.AddObject( CustQ.Fields[1].AsString,  ...тут key field);

или так Items.Objects[..] := TObject( Integer key field value );

---

Наверх