Cita:
Empezado por pape19
...
Hay alguna forma de vaciar las tablas por código desde delphi; o bien, lo que conviene es eliminar tales tablas, y utilizar los scripts para recrear estas tablas?.
|
No sé que componentes usas para conectarte, pero con IBX, podrías hacer:
Código Delphi
[-]
procedure ExecCommand(const Command: string; qy: TIBQuery);
begin
qy.Close;
qy.SQL.Text := Command;
qy.ExecSQL;
qy.Transaction.CommitRetaining;
end;
LLamada de ejemplo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ExecCommand('DELETE FROM DETALLE', IBQuery1);
ExecCommand('DELETE FROM MAESTRO', IBQuery1);
ExecCommand('ALTER SEQUENCE G_DETALLE RESTART WITH 0', IBQuery1);
ExecCommand('ALTER SEQUENCE G_MAESTRO RESTART WITH 0', IBQuery1);
end;
Saludos