Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как перебрать все записи, полученные из запроса?


Perf2k2 ©   (2006-01-12 13:54:00) 

И добавть каждую к имеющейся переменной? То есть я выбрал всех пользователей, что on-line

 
QueryMain.SQL.Text:='SELECT * FROM crm_accounts WHERE account_active=1';
QueryMain.ExecSQL;


А теперь надо каждого из них (поле "account_fio") добавить поочередно к переменной. Я так понимаю тут надо использовать FindNext и цикл, а вот как записать цикл не совсем понятно.
Спасибо.


Ega23   (2006-01-12 14:02:00) [1]


>
> Во-первых, QueryMain.Open;
> А дальше
> while not QueryMain.EoF do
> begin
>   ...
>   QueryMain.Next;
> end;


Я бы ещё добавил QueryMain.First


stone   (2006-01-12 14:00:00) [2]


> QueryMain.ExecSQL;

Во-первых, QueryMain.Open;
А дальше
while not QueryMain.EoF do
begin
  ...
  QueryMain.Next;
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо