Tratar Erro de MSG do ORACLE

Question

Gostaria de Saber como posso tratar um erro acontecido no oracle e eu mesmo filtar este erro na minha aplica��o e traduz�-lo. Tem algun exemplos na Internet, mas todos usando a conex�o com BDE. utilizo o ADO(EOleException) � a classe da excess�o.
Agrade�o desde j�.

Motta · Answer

Eu capturo a msg de erro e fa�a o tratamento usando s Function Pos

Que tipo de erro retorna ? Viola��o de constraint ? Triggers ?

Algo assim :

var s:string;
begin
...
exception
  one:exception do
  begin
      s := e.message;
      if Pos(�chk_valor�,s) > 0 then
        ShowMessage(�Valor Inv�lido�);
      if Pos(�ora-00001�,s) > 0 then
        ShowMessage(�Chave duplicada�);
      // etc 
  end;
end;

Cabal · Answer

N�o estou conseguindo entender este trecho...

Devo inserir um TRY cert?
Fiz assim, mas ocorreu um erro:
[Error] Form_Principal.pas(81): Missing operator or semicolon
� entendi o ONE e o EXCEPTION...

Procedure tform1.teste;
var
s:string;
e:Exception;
begin
TRY
Adoconnection1.Open;
except
exception
one:exception do
begin
s := e.message;
if Pos(�chk_valor�,s) > 0 then
ShowMessage(�Valor Inv�lido�);
if Pos(�ORA-01017:�,s) > 0 then
ShowMessage(�Chave duplicada�);
// etc
end;
end;

Valeu amigo Obrigad�o....

Motta · Answer

foi mal :[code:1:c1611b444a]var s:string; try ... // faz alguma opera��o no bancoexception on e:exception do // <<==== begin s := e.message; if Pos(�chk_valor�,s) > 0 then ShowMessage(�Valor Inv�lido�); if Pos(�ora-00001�,s) > 0 then ShowMessage(�Chave duplicada�); // etc end; end; [/code:1:c1611b444a]...