Вниз
Скачать: 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.045 c
1-1110813628
John
2005-03-14 18:20
2005.03.27
локально-поисковая система


9-1104767109
FRick
2005-01-03 18:45
2005.03.27
GLScene_манипуляция ланшавтом!


3-1109046780
DelphiN!
2005-02-22 07:33
2005.03.27
Присвоение значения IbQuery.RecNo


1-1111045453
серж
2005-03-17 10:44
2005.03.27
передать параметры приложению


1-1111001345
Sphinx
2005-03-16 22:29
2005.03.27
Пример работы с ZLib




   Наверх