vaciar una tabla

[arc22]

Hola, para vaciar una tabla he visto este código:

if MessageDlg ('Se va a borrar la tabla. ¿Continuar?', mtConfirmation, mbOKCancel, 0)=mrok then
begin
table1.Close;
table1.exclusive := True;
table1.EmptyTable;
table1.exclusive := False;
table1.Open;
end
else abort

pero me levante la excepción: "table is busy", ¿alguien me podría decir a que se debe esto ?. Desde ya muchas gracias.
Andrés

[hogol]

Hola

Para poder vaciar la tabla debes poder acceder a ella en modo exclusivo, osea que solo tu proceso debe utilizar la tabla en ese momento.
El mensaje table is busy te está diciendo que la tabla está ya siendo utilizada y que no puede ponerse en modo exclusivo.
Puede que algún otro usuario u otro programa tenga abierta la tabla mientras tú estés tratando de vaciarla.

Saludos
Hogol

[cbrrr]

puedes arreglarlo con una sentencia SQL de delete

Código SQL [-]
 delete from tabla

[marcoszorrilla]

Si haces pruebas desde el "Ide" de Delphi no te funciona porque éste es un usuario más. Compila el programa, cierra Delphi y ejecuta el Exe resultante y verás como te funciona.

Un Saludo.

[roman]

Empezado por marcoszorrilla

Compila el programa, cierra Delphi y ejecuta el Exe resultante y verás como te funciona.

O bien desactiva la tabla en el IDE antes de ejecutarlo.

// Saludos