Delphi ADO Access

[Blackadder6]

I want delete all the records in an Access table.
The code below does not work.

procedure TForm1.Emptytable2Click(Sender: TObject);
begin
AdoQuery1.SQL.Add('DELETE from dupmaster');
AdoQuery1.ExecSQL;
end;

If I use 'DELETE * from dupmaster

I still get the same error message which is "exception class EOleException with message Syntax error in FROM clause.

Can anyone hlp me. I wonder if I need to close the database or something like that.

Terry

 

[amateursRus]

Hi,

Below is a variation of some code I'm using which works -

with AdoQuery1 do begin
Active:= False;
SQL.Clear;
SQL.Add('DELETE * from dupmaster');
Prepared:= True;
ExecSQL;
end;

Regards

 

[LucieLastic]

Is your database using replication? If not, you could also use TRUNCATE <tablename>. This is extremely fast but dirty because it doesn't write anything to the transaction log so you can not roll back if something goes wrong. If rolling back is not important and it's not replicated I'd be tempted to use this (assuming you have privileges as well ).