Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   MySQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=21)
-   -   TRaduzir Key Violation ZEOS (https://www.clubdelphi.com/foros/showthread.php?t=8505)

WaRRanT 24-03-2004 20:21:17

TRaduzir Key Violation ZEOS
 
Ola amigos,


Alguém sabe como traduzir "Key Violation" no ZEOS?

Gracias,

WaRRanT

Abraços a todos!

guillotmarc 24-03-2004 20:39:20

Hola.

Un Key Violation no es un error propio de un determinado componente. Usualmente se da por intentar utilizar propiedades o métodos de una instancia inexistente de un objeto. Ya sea porqué esa instancia aún no ha sido creada, ya ha sido liberada, etc. ...

Tienes que seguir el código con el debugger, y en la linea que da el error, comprobar que problema puede tener el objeto en el que falla la llamada.

Saludos.

roman 24-03-2004 20:45:13

Cita:

Empezado por guillotmarc
Un Key Violation no es un error propio de un determinado componente. Usualmente se da por intentar utilizar propiedades o métodos de una instancia inexistente de un objeto.

Marc, me parece que te confundiste entre Access Violation y Key Violation. Esto suele pasar :rolleyes:

Un saludo

WaRRanT 24-03-2004 20:49:13

"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 24-03-2004 21:53:03

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

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 24-03-2004 22:03:20

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..... :confused:

guillotmarc 24-03-2004 22:11:27

Mira a ver si tienes disponible la propiedad IsEmpty.

Código:

If not QyPesqVales.IsEmpty then
Saludos.

roman 24-03-2004 22:13:37

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 24-03-2004 23:31:20

Gracias amigos!

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

Abraços!

WaRRanT 25-03-2004 11:54:41

Roman,

Gracias! O problema era mesmo o EXECSQL...

Abraços!


La franja horaria es GMT +2. Ahora son las 09:20:55.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi