Fórum Como Apagar todos os registros de uma tabela ? #174911
14/08/2003
0
tenho o seguinte comando :
table1.open;
if MessageDlg(´Tem certeza que deseja apagar este registro?´,
mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
table1.delete;
table1.edit;
end
isso faz com que o registro atual seja apagado.
´´ COMO FAZER COM QUE TODOS OS REGISTROS SEJA APAGADOS ? ´´´
WESLEY - PARACATU-MG
table1.open;
if MessageDlg(´Tem certeza que deseja apagar este registro?´,
mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
table1.delete;
table1.edit;
end
isso faz com que o registro atual seja apagado.
´´ COMO FAZER COM QUE TODOS OS REGISTROS SEJA APAGADOS ? ´´´
WESLEY - PARACATU-MG
Wesleygoncavles
Curtir tópico
+ 0
Responder
Posts
14/08/2003
Okama
Com Table
Com Query
While not Table1.isEmpty do
Table1.Delete;Com Query
Query1.SQL.Text := ´Delete from Tabela´; Query1.ExecSQL;
Responder
Gostei + 0
14/08/2003
Dr. Interbase
coloque um componente tquery no form e faça assim
qrydeleta.sql. clear;
qrydelete.sql.add(´delete from tabela´);
qrydelete.execsql;
Pronto todos os registros serão apagados
qrydeleta.sql. clear;
qrydelete.sql.add(´delete from tabela´);
qrydelete.execsql;
Pronto todos os registros serão apagados
Responder
Gostei + 0
14/08/2003
Vmotta
use isso:
table1.EmptyTable;
t+
Vitor <vmotta@eep.br>
table1.EmptyTable;
t+
Vitor <vmotta@eep.br>
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)