| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Данные из базы в ComboBox - не получается
Perf2k2 © (2006-05-03 15:14:00)Здравствуйте! Не подскажите, в чем может быть ошибка?
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 не получается...
Плохиш (2006-05-03 15:53:00) [1]
> По логике понятно почему
if DataSource1.DataSet.FindFirst then
repeat
ComboBox1.AddItem(DataSource1.DataSet.FieldByName('account_login').Text,ComboBox 1);
until not DataSource1.DataSet.FindNext;
Sergey13 (2006-05-03 15:48:00) [2]2 [2] Perf2k2 © (03.05.06 15:45)
> Честно говоря не люблю когда много объектов на форме весят.
Это твои проблемы. Можно все и в рантайме создать. Query1 у тебя из воздуха материализуются?
>Придется же под этот комбо еще один datasource и query ставить...
А эти компоненты вообще желательно в ДатаМодуль выносить.
Desdechado (2006-05-03 15:46:00) [3]query.Open;
while( not query.eof )do begin
combo.Add
query.next;
end;
Perf2k2 (2006-05-03 15:45:00) [4]
> А почему не ДБКомбобокс?
Честно говоря не люблю когда много объектов на форме весят. Придется же под этот комбо еще один datasource и query ставить...
Sergey13 (2006-05-03 15:33:00) [5]А почему не ДБКомбобокс?
| |
