[firebase-br] KEY VIOLATION

[Siro Costa Marques]

Em delphi....
Procedure TForm.Log(Sender: TObject; E: Exception);
begin
        if pos (UpperCase('violation of primary or unique key 
constraint'), UpperCase(e.Message)) > 0 then
        begin
        ShowMessage('O valor digitado para o campo já existe nesta tabela');
        end
        ELSE
       if pos (UpperCase('violation of FOREIGN KEY constraint '), 
UpperCase(e.Message)) > 0 then
        begin
       ShowMessage('Este registro não pode ser removido, outros arquivos 
precisam dele.');
        end
        else
          if UpperCase(copy(e.Message,1,13))='KEY VIOLATION' THEN
          BEGIN
          ShowMessage('Registro já existe na tabela');
          END
          else
          begin
          MessageDlg(e.Message + #10+#10, mtError,[mbOK],0);
        end;
      
etc..etc.etc....
end;





[]s.


GOOGLE escreveu:
> PESSOAL,
>
>  
>
> COMO FAÇO PARA CRIAR UMA CHAVE PRIMÁRIA NA MINHA TABELA SQL/FIREBIRD
>
> PARA QUE QUANDO NO MEU PROJETO EU ESTIVER DIGITANDO UM NOME NA TABELA DE
> DADOS
>
> O PROGRAMA RETORNE COM MENSAGEM DE "KEY VIOLATION" (MAS COM A MENSAGEM EM
> PORTUGUÊS)
>
> NO DELPHI 6.0 E 7.0  ????
>
>  
>
>  
>
>  
>
> Obrigado! 
>
> Dorival Bonancéa Junior 
>
> http://geocities.yahoo.com.br/dorival_br ==> ## 
>
> dorivalbr em gmail.com 
>
> dorival_br em yahoo.com.br 
>
> dorivalbonancea em ig.com.br 
>
> bonnasystems em oi.com.br 
>
> dorival_br em hotmail.com 
>
> Dorivalvarginha (Skype - VOIP)
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
>