Форум: "Начинающим";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];
Вниз
Данные из базы в 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.014 c
