(Resolvido) Tratamento De Erro No Ado Acessando O Postgres

[Samuelsjn]

Amigos,

Estou com dúvidas em relação ao tratamento de exceção gerada pelo SGBD Postgres. alguém possui um exemplo que possa compartilhar?

Estou utilizando a conexão através do componente, ADOConnection e ADOQuery, e ODBC....

alguém poderia me ajudar?

Obrigado

Abraço

[Mayron Cachina]

Amigos,

Estou com dúvidas em relação ao tratamento de exceção gerada pelo SGBD Postgres. alguém possui um exemplo que possa compartilhar?

Estou utilizando a conexão através do componente, ADOConnection e ADOQuery, e ODBC....

alguém poderia me ajudar?

Obrigado

Abraço

Qual a exceção???

todas???

ou so os erros mesmo quando o query ta retornando o except?

[Samuelsjn]

So o retorno de exeção do banco, como duplicidade de chave estrangeira, etc....

ou caso se você tiver todas pode memandar tb, ficarei muito grato....

meu email é samuelsjn@yahoo.com.br

Se você tiver vou ficar muito agradecido

Abraço

[Mayron Cachina]

você quer saber como se trata ou quais os códigos??/

eu tinha os do FB... postgres eu n tenho...

é isso que você quer?

[Samuelsjn]

Ola Mayron Cachina,

Como vai?

Quero saber na verdade, em qual evento que faço isso no componente ADOConnection.

Os erros gerados pelo Postgres eu descubro quando for ocorrendo.

Eu tenho um tratamento de exeção do InterBase. Mas os eventos são diferentes e como nunca usei o ADOConnection estou um pouco perdido.

Abraço e obrigado

[Mayron Cachina]

Olha eu faço desse jeito...

digamos que eu tenha um dbgrid e dele eu tenha q pegar o id do registro no evento oncell click...

try
   data_cliente := FormatDateTime('yyyy-mm-dd',dbgManutencao.DataSource.DataSet.FieldValues['data']);
   id_da_manutencao := dbgManutencao.DataSource.DataSet.FieldValues['idtb_manutencao'];
except
On E: Exception Do
    begin
      ShowMessage(E.Message);
    end;
end;

dai você pode pegar uma procedure pra tratar em cima desse E.Message....

é isso que você queria saber???

ou eu me enganei?

[Samuelsjn]

Entaum voce trata o erro na hora que você chama o banco, e não no DataModule.

Eu tratava o erro diretamente no DataModule, por isso q fiquei perdido....

Obrigado, vou tentar isso aqui...

[Micheus]

Entaum voce trata o erro na hora que você chama o banco, e não no DataModule.

É o mais usual. Há um componente (não lembro qual) que até tem um evento para quando ocorrem erros no banco. Mas o usual é isto: utilizar um try..except..end

Veja também este post.

Há diferenças em tratar o try..except e utilizar um ShowMessage para mostrar a mensagem. Como a exceção não ocorrerá, o programa continua a execução após o "end" do try..except. Isto não ocorre no exemplo que postei: o raise fará com que a execução pare naquele ponto. (normalmente é o desejável). Vai do caso.

[Samuelsjn]

Ola pessoal,

Tentei utilizar o try exceptio end, mais não obtive sucesso. Abaixo a parte do código q estou utilizando.

alguém poderia me ajudar?

try
      dtmdlCIM.QueryPrincipal.ExecSQL;
    except
      on E: EDatabaseErro do
      begin
        if Pos('ERROR: insert or update on table "item" violates foreign key constraint "item_idcategoria_fkey";Error while executing the query.', UpperCase(E.Message)) > 0 then
        begin
          ShowMessage('Dados importantes não foram preenchidos!');
          raise;
        end;
     end;
   end;

Obrigado

Editado Outubro 22, 2007 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)

[Micheus]

Samuelsjn, o seu problema reside no fato de que você está querendo comparar a mensagem "normal" (com maiúsculas e minúsculas) com a mensagem original da exceção em maiúscula (você está utilizando UpperCase):

if Pos('ERROR: insert or update on table "item" violates foreign key constraint "item_idcategoria_fkey";Error while executing the query.', UpperCase(E.Message)) > 0 then

Mas a título de garantir o resultado, o correto seria realmente testar tudo (os dois lados) em maiúscula ou minúscula (tanto faz), então a sugestão seria deixar como você verá abaixo.

Sugiro ainda que deixe o tratamento um pouco mais gernérico - não precisa colocar todos os detalhes da mensagem, apenas aquilo que a identifica (no seu caso a violação da chave estrangeira). Também é interessante observar que, se você vai permitir o RAISE (que abortará a continuidade da execução de sua procedure), então fica mais lógico você modificar a mensagem original da exceção e não utilizar a função ShowMessage:

...
  try
    dtmdlCIM.QueryPrincipal.ExecSQL;
  except
    on E: EDatabaseErro do
    begin
      if Pos('violates foreign key constraint', LowerCase(E.Message)) > 0 then
      begin
        E.Message := 'Dados importantes não foram preenchidos!'#10#10'Erro: ' +E.Message;
        raise;
      end;
    end;
  end;

Voce pode apenas atribuir a sua mensagem para a propriedade Message, mas por questões de "segurança", eu costumo agregar ao final da mesma a mensgem original (fica a seu critério).

[Guest Visitante]

Caro Micheus,

Deu certo, muito obrigado pela explicação!!!

Abraço