triger

Question

� o seguinte pessoal tenho uma tabela mestre detalhe so q o detalhe nao pode ter mais de 1 registro intao decidi fazer um triger q vai ser acionada quando adiciona um novo registro e essa triger vai f...

Afarias · Answer

|tenho uma tabela mestre detalhe so q o detalhe nao pode ter mais de 1
|registro

eu n�o chamaria isso de �mestre-detalhe� :)

vc n�o precisa fazer nada n�o, apenas coloque um �ndice �nico na tabela detalhe (na �chave estrangeira�)

T+

Guilherme · Answer

so q qando vai inserir um nov registro da um erro como fa�o para �personalizar� essa mensagen...

Gandalf.nho · Answer

Se s� pode ter um registro no �detalhe�, n�o seria mais simples passar os campos todos para a tabela principal? Da� n�o seria necess�rio se preocupar com essa valida��o....

Guilherme · Answer

certo...mais tem como resolver esse problema q ja criei ????...

Gandalf.nho · Answer

Fa�a como o afarias disse e crie o �ndice �nico, depois intercepte a mensagem de erro (usando o evento OnPostError, por exemplo), teste qual a mensagem de erro retornada e depois passe sua mensagem de erro personalizada pro usu�rio.

Guilherme · Answer

como q eu fa�o porq eu vo la no evento e coloco a mensagen so q ai ele primeiro aparece a mensagen do erro do delphi pra depois a mensagen q personalizei...

Gandalf.nho · Answer

Como vc fez seu c�digo?...

Guilherme · Answer

isso q quero saber como fazer o codigo !!!! o meu ta assim [code:1:5a17a86d05]showmessage(�ERRO !!!�)[/code:1:5a17a86d05]...

Gandalf.nho · Answer

Observe que nos eventos usados para interceptar mensagens de erro existe sempre um par�metro que armazena a mensagem e o c�digo do erro. No caso do evento OnPostError, o par�metro � do tipo EDatabaseError. Geralmente se testa esse par�metro para ver o c�digo do erro e determinar qual � a mensagem de erro. Da� usa-se uma estrutura IF ou CASE para testar os valores esperados e fazer o tratamento do erro. Por exemplo, esse trecho de c�digo pode ser usado com um componente BDE:

var
  iDBIError    : Integer;
begin
   IDBIError := (E as EDBEngineError).Errors[0].Errorcode; //Obtem o c�digo do erro
  case iDBIError of
      eRequiredFieldMissing: //Algum campo requerido n�o preenchido.
       begin
           //Fa�a o tratamento do erro aqui
       end;
   end;
end;

A sintaxe exata depende muito dos componentes de acesso usados e do banco utilizado

Afarias · Answer

se vc estiver depurando o sitema (RUN) a exce��o sempre vai aparecer antes da �mensagem tratada�T+...

Guilherme · Answer

o codigo e nosso amigo gandalf.nho deixou sera os seguintes erros :

[Error] cli_fi.pas(1014): Undeclared identifier: �EDBEngineError�
[Error] cli_fi.pas(1016): Undeclared identifier: �eRequiredFieldMissing�

Gandalf.nho · Answer

S� uma coisa, vc est� usando qual tecnologia de acesso ao dados? Esse exemplo que passei � para usar com BDE....

Afarias · Answer

|codigo e nosso amigo gandalf.nho

AMIG[color=red:11a41867eb][b:11a41867eb]A[/b:11a41867eb][/color:11a41867eb]

|deixou sera os seguintes erros

esse c�digo trata de erros para quem usa BDE, adicione as units relativas ao BDE na uses da unidade.

T+

Guilherme · Answer

mas eu usso o interbase !!!!!!desculpe ai nen sabia q era mulher foi mal galera me desculpa !...

Gandalf.nho · Answer

[quote:fbdf8945e1=�gborges_13�]mas eu usso o interbase !!!!!![/quote:fbdf8945e1]Tudo bem, mas vc usa o que para acessar os seus dados? BDE, IBX, DBExpress, ADO?...

F�rum triger #50016