TRaduzir Key Violation ZEOS

[WaRRanT]

"SQL Error: Duplicate entry '11111111' for key 1."

Isso não é equivalente ao "KEY VIOLATION"?

Não tem como eu tratar este erro?

Gracias,

WaRRanT

Abraços!

[guillotmarc]

Jejeje, tienes toda la razón Román (que verguenza, vaya lapsus)

En efecto WaRRanT, ese error es un KEY VIOLATION. ¿ No lo puedes capturar en un try .. except ?. Aunque desconozco como se accede a la información del Error en las Zeos.

Saludos.

[WaRRanT]

Eu fiz da seguinte maneira:


procedure TFrmConfSimples.QyMovValesBeforePost(DataSet: TDataSet);
begin
QyPesqVales.Active := False;
QyPesqVales.SQL.Clear;
QyPesqVales.SQL.Add('Select * from MovVales Where Numero = "'+DbEdit3.Text+'"');
QyPesqVales.Active := True;
QyPesqVales.ExecSQL;
If not QyPesqVales.Eof then
begin
Sound(3000,1000);
MessageDlg('Este Vale já existe!'+#13+'Favor Conferir o Vale '+#13+' nº '+FrmConfSimples.Dbedit3.text,
MtError,[Mbok],0);
Abort;
Dbedit3.SetFocus;
Dbedit3.Clear;
end;
end;

end.




Mas acontece que existindo ou não o registro, o EOF sempre aparece TRUE.....

[guillotmarc]

Mira a ver si tienes disponible la propiedad IsEmpty.

If not QyPesqVales.IsEmpty then

Saludos.

[roman]

No uses ExecSql para consultas SELECT. Por otra parte creo qe simplemente puedes usar QyPesqVales.RecordCount para saber si la consulta regresó o n o resultados.

// Saludos

[WaRRanT]

Gracias amigos!

Mas o EOF não teria tambiem que funcionar neste caso?

Abraços!

[WaRRanT]

Roman,

Gracias! O problema era mesmo o EXECSQL...

Abraços!