[Resolvido] Tratamento de erro no insert!

[PedroInfoTec 0]

Olá, Boa tarde sou iniciante em delphi estou querende fazer um tratamento de erro (Violation Primary Key) usando o Try,except.

alguém poderia me ajudar?? Agradeço http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

segue o código do insert , estou usando ADO..

procedure TFrmCadCliente.BSALVARClick(Sender: TObject);
begin
with DM.QueryGeral do
Begin
  Close;
  SQL.Clear;
  SQL.Add('Insert into Cliente (CodCliente,Nome,CPF_CNPJ,RG,TipodePessoa,Estado,Endereco,'+
  'Complemento,Cidade,Bairro,CEP,Telefone,Telefone_2,DTCadastro,Email,Anotacoes)values'+
  '(:CodCliente,:nome,:CPF_CNPJ,:RG,:TipodePessoa,:Estado,:Endereco,:Complemento,:Cidade,'+
  ':Bairro,:CEP,:Telefone,:Telefone_2,:DTCadastro,:Email,:Anotacoes)');
  Parameters.ParamByName('CodCliente').Value:=ECODIGO.Text;
  Parameters.ParamByName('nome').Value:=EDTNOME.Text;
  Parameters.ParamByName('CPF_CNPJ').Value:=EDTCPF.Text;
  Parameters.ParamByName('RG').Value:=EDTRG.Text;
  Parameters.ParamByName('TipodePessoa').Value:=CBTP.Text;
  Parameters.ParamByName('Estado').Value := CBESTADO.Text;
  Parameters.ParamByName('Endereco').Value := EDTENDERECO.Text;
  Parameters.ParamByName('Complemento').Value := EDTCOMPLEMENTO.Text;
  Parameters.ParamByName('Cidade').Value := EDTCIDADE.Text;
  Parameters.ParamByName('Bairro').Value := EDTBAIRRO.Text;
  Parameters.ParamByName('CEP').Value := MECEP.Text;
  Parameters.ParamByName('Telefone').Value := METELEFONE.Text;
  Parameters.ParamByName('Telefone_2').Value := METELEFONE2.Text;
  Parameters.ParamByName('DTCadastro').Value := EDTDATA.Text;
  Parameters.ParamByName('Email').Value := EDTEMAIl.Text;
  Parameters.ParamByName('Anotacoes').Value := MANOTACOES.Text;
  execSQL;
  Showmessage('Registro Efetuado Com Sucesso');
end;
// Limpa os Campos
	ECODIGO.Clear;
	EDTNOME.Clear;
	CBTP.Text :='';
	EDTCPF.Clear;
	EDTRG.Clear;
	EDTENDERECO.Clear;
	EDTCOMPLEMENTO.Clear;
	EDTBAIRRO.Clear;
	EDTCIDADE.Clear;
	MECEP.Text :='00000-000';
	CBESTADO.Text :='';
	EDTEMAIL.Clear;
	METELEFONE.Text :='(00)0000-0000';
	METELEFONE2.Text :='(00)0000-0000';
	EDTDATA.Clear;
	MANOTACOES.Clear;
   end;

[port3r 0]

try

// comando de insert

except

on E: Exception do

ShowMessage(E.Message);

end;

 

Funciona mais ou menos assim.

[PedroInfoTec 0]

Uhm.. eu peguei esse exemplo... Mais de que forma eu trataria o erro de Violação de Chave Primaria???,mais vlw pela dica...

[PedroInfoTec 0]

Consegui... http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif Vlw Pela Dica ficou assim...

 

Try
......
except
	on E: Exception do
   if (Pos('VIOLATION', UpperCase(E.Message)) > 0) then
	MessageDlg('Já Existe um Cliente Cadastrado com Esse Código!', mtInformation, [mbOk], 0);