Удаление записей

[Arsgun]

Имеется программа на Delphi, работающая с базами FoxPro
Чтобы удалить записи в таблице я пишу Table1.delete, но в данном
случае записи только помечаются к удалению. А как окончательно
удалить записи?? Заранее спасиба!!

[Квэнди]

хм.. не сталкивался, но интуиция подсказывает вариант с commit ? либо если используются транзхакции, то тоже собственно commit

[Баламут]

Честно говоря не помню, есть ли готовые к употреблению методы для этой задачи... Но в любом случае для ФИЗИЧЕСКОГО удаления данных из dbf-ок не обойтись без промежуточной таблицы, куда будут скидываться нужные записи. Одна из причин, кстати, чтобы отказаться от таких баз.

[zetrix]

Имеется программа на Delphi, работающая с базами FoxPro
Чтобы удалить записи в таблице я пишу Table1.delete, но в данном
случае записи только помечаются к удалению. А как окончательно
удалить записи?? Заранее спасиба!!

только ручками, как сказал Баламут.

Одна из причин, кстати, чтобы отказаться от таких баз

А есть такие, чтоб удаляли физически сразу, и без тормозов?

[Баламут]

Согласен, нет. Но по крайней мере можно упаковать базу средствами самой СУБД.

[Мохнатик]

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

Имеется программа на Delphi, работающая с базами FoxPro
Чтобы удалить записи в таблице я пишу Table1.delete, но в данном
случае записи только помечаются к удалению. А как окончательно
удалить записи?? Заранее спасиба!!

Обычно команда Table1.Delete; удаляет запись из БД, проверь не находиться ли в данный момент БД в режиме вставки или поиска - иначе метод Delete вызывает метод Cancel и запись только помечается к удалению.

[KORT]

 
procedure TForm1.btnDeleteAllClick(Sender:TObject);
var n:longint;
begin
Table1.Last;
for n:=table1.recordcount downto 1 do
Table1.delete;
end;

[_SERGEYX_]

В dbf-файлах, действительно, файлы только помечаются на удаление. Физическое удаление происходит при упаковке таблицы

uses  BDE;  
function PackTable(Table: TTable): Boolean;  
var  hDB: HDBIDB;
begin
  with Table do begin
      Close;
      Exclusive := True;
      Open;
      hDB := DBHandle;
      DbiPackTable(hDB,  Handle, nil,  nil, True);
      Result := True;
      Close;
      Exclusive := False;
      Active := True;
    end;
end;