Данные из базы в 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;

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

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

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

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

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