Вниз
Скачать: CL | DM;

Удаление всех записей при помощи ADOQuery   Найти похожие ветки 

← →
Dyusha ©   (2005-02-22 18:48) [0]

Здравствуйте Уважаемые Мастера!!! Как удалить все записи из таблицы базы данных, используя компонент ADOQuery, перед удалением некой переменной (s:string) надо присвоить общее количество записей в базе. Заранее благодарен….за оказанную помощь


← →
XMAN ©   (2005-02-22 19:24) [1]

может есть и другие способы но я делал так:
удалял по очередно каждую строку в цикле


← →
Fin ©   (2005-02-22 19:32) [2]

1) в переменную s:=inttostr(твоя_таблица.recordcount)
2) delete from твоя_таблица


← →
kivadim   (2005-02-22 19:33) [3]

общее кол-во НЕ В БАЗЕ, а в какой-либо таблице БД можно узнать след. образом:
ADOQuery1.text:="select count(*) as kol_vo from ИМЯ_ТАБЛИЦЫ ";
ADOQuery1.Open;

присваивание переменной кол-во записей:
s:=ADOQuery1.FieldByName("kol-vo").AsInteger;

ну и удаление....
ADOQuery1.text:="delete from ИМЯ_ТАБЛИЦЫ ";
ADOQuery1.ExecSQL;


← →
kivadim   (2005-02-22 19:36) [4]

вернее
s:=ADOQuery1.FieldByName("kol-vo").AsString;


← →
XMAN ©   (2005-02-22 19:44) [5]

while adoquery.recordcount<>0 do
begin
 adoquery.first; // эта строка может быть не обязательна
 adoquery.delete;
end;

поидее должно прокатить
я удалял когдато по очередно все записи, непомню только этим способом или нет


← →
XMAN ©   (2005-02-22 19:48) [6]

или
n:=adoquery.recordacount;
for i:=1 to n do adoquery.delete;


← →
Desdechado ©   (2005-02-22 20:26) [7]

2 XMAN
не самый лучший способ...
зачем тянуть на клиента записи, если ты их хочешь удалить? дай команду серверу, и все.


← →
Fin ©   (2005-02-22 20:28) [8]


> XMAN ©

ну уж ежели использоватьнавигационный метод, то
конструкция типа:
while not твоя_таблица.eof do
    begin
      твоя_таблица.delete;
    end;
наиболее предпочтительна.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c
1-1110489591
GL00m
2005-03-11 00:19
2005.03.27
Не могу сконвертить 01Dec04 в TDate...


3-1109408889
fess
2005-02-26 12:08
2005.03.27
Ошибка в инструкции INSERT INTO


8-1102352715
vnavigator
2004-12-06 20:05
2005.03.27
Как правильно отображать в TListView 32 -битные иконки


9-1103463963
Dic
2004-12-19 16:46
2005.03.27
PowerDraw3 vs Asphyre.


6-1106157242
-=RUST=-
2005-01-19 20:54
2005.03.27
Про TServerSocket &amp; TClientSocket




   Наверх