Key Violation

[tocotaura]

Boa Tarde!!!!

já testei tudo o que podia e não consigo elimiar ou pelo menos tratar a mensagem de erro do key violation.

Tenho um DataModule com um SQLConnection, um SQLDataSet, um DataSetProvider e um ClientDataSet e no form um DataSource.

já Coloquei o seguinte código no ClientDataSet no evento onPostError:

Var

ErroMens :String;

begin

ErroMens := E.Message;

if ErroMens = 'Key violation.' then begin

ShowMessage('Chave Primária Inválida !');

action := daAbort;

end;

não sei mais o que fazer!!!!

Agradeço qualquer ajuda!!!!!!!

Estevan.

[D31v1d1]

Olá,

e se você quizer evitar a mensagem de erro, insira o código abaixo no evendo OnPostError do componente Table ou Query.

Procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;var Action: TDataAction); 
Var 
ErroMens :String;
begin 
ErroMens := E.Message; 
if ErroMens = 'Key violation.' then begin 
   ShowMessage('Chave Primária Inválida !'); 
   action := daAbort; 
end;
end; 

Abs. Progr'amador.

tbein tive esse errro o progr'amador me ajudo ta ai oh ve se te ajuda em algo

falou

[tocotaura]

como citado na pergunta, ESTE CODIGO não FUNCIONA NO CLIENTDATASET!!!!!!