Форум: "Базы";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Вниз

Как заполнить ComboBox из Дата сета???   Найти похожие ветки 

← →
Relaxxx   (2004-09-23 01:26) [0]

Вернее как заполнить я знаю
 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!

---

← →
Defunct ©   (2004-09-23 01:35) [1]

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

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

---

← →
Relaxxx   (2004-09-23 01:39) [2]

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

---

← →
GanibalLector ©   (2004-09-23 01:41) [3]

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

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

---

← →
Defunct ©   (2004-09-23 02:29) [4]

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

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

---

← →
КаПиБаРа ©   (2004-09-23 07:56) [5]

F1 - TDBComboBox

---

← →
stud ©   (2004-09-23 09:16) [6]

лучше dblookupcombobox

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.035 c