Limpar uma tabela----------urgente
Ola pessoal, estou usando uma TABLE, tem algum comando que que limpe todos os valores de todos os campos de uma so vez?
Tsilva
Curtidas 0
Respostas
Aroldo Zanela
20/03/2003
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?
GOSTEI 0
Anonymous
20/03/2003
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
GOSTEI 0
Dor_poa
20/03/2003
table1.empytable;
GOSTEI 0
Dor_poa
20/03/2003
Mas cuidado.. Ela apaga todos os registros...
GOSTEI 0
Henry
20/03/2003
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
GOSTEI 0