Preciso de uma ajuda de Voc�s...

Question

� o seguinte eu preciso fazer uma verifica��o de quando uma tabela esta vazia, para eu poder criar minha pr�pria janela de erro se o usu�rio tentar deletar mesmo sem ter um registro. Como fa�o essa verifica��o?

Uso Delphi6, um componente chamado Halcyon para fazer a conex�o com banco de dados dBase.

Agrade�o desde j�

C-t · Answer

Cara deve ser algo assim ..

no bot�o deleta vc coloca isso mais ou menos assim

IF IBQcliente.RecordCount = 0 THEN
begin
ShowMessage(�N�o ha registro�);
exit;
end
else
BEGIN
query.Close;
query.SQL.Clear;
query.SQL.Add(�DELETE FROM NomedaTabela�);
query.SQL.Add(�WHERE ChavePrimaria=:ChavePrimaria�);
query.ParamByName(�ChavePrimaria�).asstring:=Edit_ChavePrimaria.Text;
dm.query.ExecSQL;
dm.IBTransaction1.COMMIT;

cara � mais ou menos assim ..isso foi o que eu entendi ..falow

Wagnerps · Answer

Cara,Sua pergunta est� Confusa.Como que o usuario vai deletar um Registro sea tabela est� vazia ?mas acho que e algo assim.Oque vc pode fazer e ao abrir a tabela cheque a qtd de registrosif componente.recordcount = 0 then   botaoexcluir.enabled := False;falou espero ter ajudadowagnerps  :?:...

Inutaishou · Answer

[quote:86496473dd=�wagnerps�]Cara,Sua pergunta est� Confusa.Como que o usuario vai deletar um Registro sea tabela est� vazia ?mas acho que e algo assim.Oque vc pode fazer e ao abrir a tabela cheque a qtd de registrosif componente.recordcount = 0 then   botaoexcluir.enabled := False;falou espero ter ajudadowagnerps  :?:[/quote:86496473dd]� assim, a tabela esta vazia e o usuario, ao tentar deletar, recebe uma menssagem de erro que aparece em uma janela padr�o do Delphi6 que explica o erro em ingles, o que eu queria era fazer uma verifica��o que, quando o usuario apertar o bot�o de deletar na tabela vazia o erro fosse uma janela que eu fiz. S� que n�o consigo fazer a verifica��o. E esse c�digo acima s� funciona se ja foi feito o pack na tabela depois de haver deletado os itens....

Inutaishou · Answer

Consegui fazer a verifica��o, � uma coisa bem simples, e para quem queria saber � assim:If Tabela.IsEmpty then  ShowMessage(�Tabela Vazia!!!�);Else  Tabela.Delete;...

F�rum Preciso de uma ajuda de Voc�s... #149885