Limpar uma tabela----------urgente
20/03/2003
0
Ola pessoal, estou usando uma TABLE, tem algum comando que que limpe todos os valores de todos os campos de uma so vez?
Tsilva
Curtir tópico
+ 0
Responder
Posts
20/03/2003
Aroldo Zanela
Ola pessoal, estou usando uma TABLE, tem algum comando que que limpe todos os valores de todos os campos de uma so vez?
Qual banco de dados?
Responder
20/03/2003
Anonymous
Vê se serve!!!
Esse procedimento exclui todos os registros de uma tabela
procedure tbDBDeleteAll(const DataSet: TDataSet);
begin
with DataSet do
while RecordCount > 0 do
Delete;
end;
{ Chame-a como nos exemplos abaixo: }
tbDBDeleteAll(Table1);
ou
tbDBDeleteAll(Query1);
Observações
Se houver um filtro ou range ativo, somente os registros filtrados serão excluídos. Portanto é diferente de Table1.EmptyTable. Esta função poderá ser chamada no evento BeforeDelete do Table (ou Query) principal em um formulário mestre-detalhe para excluir os itens (da parte detalhe).
Até mais!!!
Se quiser entrar em contado joao@funape.org.br
Esse procedimento exclui todos os registros de uma tabela
procedure tbDBDeleteAll(const DataSet: TDataSet);
begin
with DataSet do
while RecordCount > 0 do
Delete;
end;
{ Chame-a como nos exemplos abaixo: }
tbDBDeleteAll(Table1);
ou
tbDBDeleteAll(Query1);
Observações
Se houver um filtro ou range ativo, somente os registros filtrados serão excluídos. Portanto é diferente de Table1.EmptyTable. Esta função poderá ser chamada no evento BeforeDelete do Table (ou Query) principal em um formulário mestre-detalhe para excluir os itens (da parte detalhe).
Até mais!!!
Se quiser entrar em contado joao@funape.org.br
Responder
20/03/2003
Henry
Da pra tentar tambem...
table1.first
while not table1.eof do
table1.delete
table1.next
end
table1.first
while not table1.eof do
table1.delete
table1.next
end
Responder
Clique aqui para fazer login e interagir na Comunidade :)
