Lenguaje de programación Borland Delphi
A veces es interesante borrar todos los registros de una tabla, dejando tan sólo su estructura.
NOTA: No funcionará con el Delphi abierto, pues es necesario abrir la tabla en modo exclusivo:
procedure TForm1.Button2Click(Sender: TObject);
begin
{Abrimos la tabla en modo exclusivo (si se puede)}
Try
With Table1 Do
Begin
Active:=False;
Exclusive:=True;
Active:=True;
try
EmptyTable;
except
ShowMessage( 'No se ha podido vaciar la base de datos.');
end;
End
Except
ShowMessage('No se ha podido abrir la tabla en modo exclusivo, compruebe que no hay usuarios accediendo a ella.');
End
end;
Publicado el: 2003-09-17