Olá amigos da lista!
Estou com um problema que é o seguinte:
estou tentando usa a seguinte rotina para a exclusão de meus registros:
begin
if MessageDlg('Deseja realmente excluir o'+#13+
'Cliente: '+DBEdit3.Text,
mtConfirmation,[mbYes, mbNo],0) = mrYes then
begin
DmOS.CliDsCli.Delete;
DmOS.CliDsCli.ApplyUpdates(-1);
ShowMessage('Cliente excluído;');
end
else
begin
DmOS.CliDsCli.Cancel;
end;
end;
Até aí tudo bem!
Mas se o meu cliente é chave estrangeira em uma tabela eu não consigo excluílo
devido à integridade referencial.
Vamos ao problema.
Em tempo de execução (assim que compilo o programa) se tento excluir o referido
cliente me mostar o EDatabaseError OK! Tratei o erro com om Try e um Except,
daí o problema. Quando vou excluir esse cliente simplesmente não valida o try
except exclui o registro e me apresenta a mensagem contida no ShowMessage:
Cliente excluído. Navego pelos registros dos clientes e esse cliente não existe
(bom nem deveria ter excluído mas tudo bem), saio e entro no programa novamente
e o registro que supostamente fora excluído está lá.
Alguém sabe o que está acontecendo? Podem me ajudar
Uso componentes de conexão DBexpress na seguinte ordem SQLConnection >
SQLDataSet > DataSetProvider > ClientDataset > DataSource.
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo!
agora.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
