Удалить всё

[Sergius X]

Привет, знатоки. Хочу для удобства сделать кнопочку. Чтобы при нажатии на неё из базы(а это несколько таблиц) она удалила все записи
Помогите осуществить, если это возможно...

[Neeter]

А подключается через ADO?
Если да, то:

procedure TForm1.Button1Click(Sender: TObject);
var
 i, j: integer;
begin
 for i := 0 to ADOConnection1.DataSetCount - 1 do
 begin
  //Из тех таблиц, где не надо удалять записи в свойстве Tag выставьте 1
  if ADOConnection1.DataSets[i].Tag <> 1 then
  begin
   if ADOConnection1.DataSets[i].RecordCount <> 0 then
   begin
    ADOConnection1.DataSets[i].First;
    for j := ADOConnection1.DataSets[i].RecordCount - 1 do
    begin
     ADOConnection1.DataSets[i].Delete;
     ADOConnection1.DataSets[i].Next;
    end;  //for j...
   end;  //if ... RecordCount ...
  end;  //if ... Tag ...
 end;  //for i...
end;

[Sparky]

Привет, это возможно, только зачем? Нужно просто в нажатии кнопки:
Query1.SQL.text:='delete from t_one';
Query1.execSQL;
и т.д.
Только нужно учитывать ограничения внешнего ключа

[Stilet]

она удалила все записи

Методом EmptyTable Если он есть в наличии можно.

[Sergius X]

Сообщение от Neeter

через ADO?

Просто через Table. Подойдет?

[Stilet]

Просто через Table

Тогда EmptyTable подойдет.

[Sergius X]

Сообщение от Stilet

EmptyTable подойдет.

А можно про это по подрбнее? Не понемаю даже что это...

[maLoy*508]

Table1.EmptyTable;

делает таблицу пустой..

[mihali4]

И самое главное - все эти методы описаны в хэлпе, заглянуть в который вам почему-то лень...