Скачать: CL | DM;

Данные из базы в ComboBox - не получается   Найти похожие ветки 

← →
Perf2k2 ©   (2006-05-03 15:14) [0]

Здравствуйте! Не подскажите, в чем может быть ошибка?

 
 Query1.SQL.Text := "SELECT * FROM credit_accounts";
 Query1.Active := True;

 DataSource1.DataSet.FindFirst;
 while DataSource1.DataSet.FindNext = True do
  begin
  ComboBox1.AddItem(DataSource1.DataSet.FieldByName("account_login").Text,ComboBox 1);
  DataSource1.DataSet.FindNext;
  end;

В комбо должны выдаваться все пользователи, однако первого нет. По логике понятно почему, но вот кроме FindNext как еще перебрать все элементы? Eof не получается...

---

← →
Sergey13 ©   (2006-05-03 15:33) [1]

А почему не ДБКомбобокс?

---

← →
Perf2k2 ©   (2006-05-03 15:45) [2]

> А почему не ДБКомбобокс?

Честно говоря не люблю когда много объектов на форме весят. Придется же под этот комбо еще один datasource и query ставить...

---

← →
Desdechado ©   (2006-05-03 15:46) [3]

query.Open;
while( not query.eof )do begin
combo.Add
query.next;
end;

---

← →
Sergey13 ©   (2006-05-03 15:48) [4]

2 [2] Perf2k2 ©   (03.05.06 15:45)
> Честно говоря не люблю когда много объектов на форме весят.
Это твои проблемы. Можно все и в рантайме создать. Query1 у тебя из воздуха материализуются?

>Придется же под этот комбо еще один datasource и query ставить...
А эти компоненты вообще желательно в ДатаМодуль выносить.

---

← →
Плохиш ©   (2006-05-03 15:53) [5]

> По логике понятно почему


if DataSource1.DataSet.FindFirst then
repeat
 ComboBox1.AddItem(DataSource1.DataSet.FieldByName("account_login").Text,ComboBox  1);
until not DataSource1.DataSet.FindNext;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c