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

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

ADOQUERY - Где я не прав? [D7]


Страницы:   1 2

Vitaliy12 ©   (2007-05-25 12:22:00) 

Здравстуйте Мастера!

Помогите, заклинило. Не могу найти ошибку. В таблице ADOTable1 есть записи. ADOQuery1 делает запрос, но на выходе количество записей на одну меньше реально существующих. Фрагмент кода:

  ADOTable1.TableName:= 'Temp_Start_70';
  ADOTable1.ConnectionString:= ReadIni('Options', 'Con_Str_ADOT1');
  if ADOTable1.Active= False then ADOTable1.Open;
  ADOQuery1.ConnectionString:= ReadIni('Options', 'Con_Str_Q1');
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='select * from Temp_Start WHERE N_TEL BETWEEN "700000" AND "799999"';
  ADOQuery1.Open;
  try
   while not ADOQuery1.Eof do
     begin
        ADOTable1.Insert;
       for i:=0 to ADOQuery1.Fields.Count - 1  do
        begin
         ADOTable1.FieldByName(ADOQuery1.FieldDefs[i].name).Value :=
         ADOQuery1.Fields[i].Value;
       end;
     ADOTable1.Post;
     ADOQuery1.Next
    end;
   finally
 //  ADOQuery1.Close;
  end;

Где, что не так посоветуйте!

Всем спасибо!


ЮЮ   (2007-05-25 12:28:00) [21]

но на выходе количество записей на одну меньше реально существующих
реально существующих где? в Temp_Start или в ADOQuery1? Может из-за BETWEEN "700000" AND "799999" они в запрос не попали?


Страницы:   1 2

Наверх

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