Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Julianop

como fazer

Recommended Posts

é bom testar para ver c jah está vazia a tabela, pq senaum pode dar erro tentar deletar tabela vazia

begin   //testa se está vazia a tabela (no meu caso do firebird)	if DM_Conexao.Zqry_Produtos.isempty then	begin		 application.MessageBox('Tabela Vazia', 'Impossivel excluir', Mb_OK);		 EXIT	end;	if application.MessageBox(	'Deseja excluir o Registro?',	'Responda com atenção',	Mb_YesNo+Mb_IconQuestion	+ Mb_defButton2)=mryes then	//deleta	DM_Conexao.Zqry_Produtos.Delete;	//confirma e atualiza	Dm_Conexao.Zqry_Produtos.ApplyUpdates; Dm_Conexao.Zqry_Produtos.CommitUpdates;	Dá um commit na CONEXÃO;	Dm_Conexao.ZConnection.Commit;end;

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.