VPF::Очистка буфера - Форум программистов

shtopor

Дата 13.7.2005, 15:39 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Всем привет!!!
Возник такой вопрос:
Есть: adoquery1
выполняю-

Код


adoquery1.Active:=false;
s:='select num from table1'
adoquery1.sql.add(s);
adoquery1.Open;
try
if adoquery1.Eof then
    begin
    showmessage('нет записей');
    end
else
    showmessage('ура, запись есть');
finally
    adoquery1.active:=false;
end;

Вопрос: как мне после выполнения запроса очистить буфер?
программа набирает в весе 3 Mb до 8 Mb, а нужно просто узнать есть там запись или нет

Это сообщение отредактировал(а) Alex - 14.7.2005, 00:44

~FoX~

Дата 14.7.2005, 11:01 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68

shtopor, А чем не устраивает RecordCount?

Код


 i := ADOQuery1.Recordset.RecordCount;
  if i > 0 then showmessage('ура, запись есть')
  else showmessage('В рекордсете голяк');

Например так:

Код


adoquery1.Active:=false;    
s:='select num from table1'    
adoquery1.sql.add(s);    
try    
  adoquery1.Active := true;    
  adoquery1.FindFirst;
  if ADOQuery1.Recordset.RecordCount <> 0 then showmessage('ура, запись есть');
  else    showmessage('В рекордсете голяк (((');
finally    
  adoquery1.active:=false;    
end;

Это сообщение отредактировал(а) ~FoX~ - 14.7.2005, 11:12

--------------------

…множественность никогда не следует полагать без необходимости…

Vit

Дата 14.7.2005, 14:53 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Хей! Вы что?!!! А если таблица на много гигабайт а вы такой монстр запускаете? Такого нельзя делать никогда!

Код


Function isTableEmpty:boolean;
begin
  adoquery1.Active:=false;
  adoquery1.sql.text:='select count(*) from table1';
  adoquery1.Open;
  result:=adoquery1.fields[0].asInteger=0;
  adoquery1.active:=false;
end;

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »