18 respuestas en este tema

[jdepaz]

hola foreros,

Resulta que estoy trabajando con PostgreSQL 8.X y estoy utilizando los componentes de la paleta SQLdb respectivamente, entonces en un bloque try..except, tengo el codigo para la insercion de un registro, pero cuando se ingresa un ID que ya existe, salta la exepcion, pero la variable que captura el error, solo me muestra el mensaje o el nombre de la clase, aqui el codigo:

delphi

Function TDataModule2.dmInsert_Cliente(Registro:TClient):boolean;
 begin
 try
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('INSERT INTO tbl_cliente (id,nombre,apellido,telefono) ');
  SQLQuery1.SQL.Add('VALUES (:A,:B,:C,:D);');
  SQLQuery1.Params.ParamByName('A').AsInteger:=Registro.Id;
  SQLQuery1.Params.ParamByName('B').AsString:=Registro.Nombre;
  SQLQuery1.Params.ParamByName('C').AsString:=Registro.Apellido;
  SQLQuery1.Params.ParamByName('D').AsString:=Registro.Telefono;
  SQLQuery1.ExecSQL;
  dmconexion.DataModule1.PQConnection1.Transaction.Commit;
  Result:=true;
 except
  on E: EDataBaseError Do
  begin
     ShowMessage(E.Message);
  end;
 end;
 end;     

Ahora bien, lo que quisiera es obtener el codigo del error, en este caso, el codigo de error cuando se intenta grabar un ID ya existente.

Revisando la unit db.pas, esta lo siguiente:

delphi

{ Exception classes }
 
  EDatabaseError = class(Exception);
  EUpdateError   = class(EDatabaseError)
  private
    FContext           : String;
    FErrorCode         : integer;
    FOriginalException : Exception;
    FPreviousError     : Integer;
  public
    constructor Create(NativeError, Context : String;
      ErrCode, PrevError : integer; E: Exception);
    Destructor Destroy; override;
    property Context : String read FContext;
    property ErrorCode : integer read FErrorcode;
    property OriginalExcaption : Exception read FOriginalException;
    property PreviousError : Integer read FPreviousError;
  end;

Observando, veo que esta clase tiene la property "ErrorCode",

Entonces, como hago para obtener el ErrorCode?

Espero haberme explicado

Saludos

[egostar]

Hola

No es E.HelpContext ¿?

Salud OS

[jdepaz]

Gracias por responder,

Probe con E.HelpContext y bueno al intentar grabar un registro existente,
me muestra el codigo 0, y al provocar alguna otra exception, siempre me muestra el codigo 0.


Saludos

[German]

delphi

Function TDataModule2.dmInsert_Cliente(Registro:TClient):boolean;
 begin
 try
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('INSERT INTO tbl_cliente (id,nombre,apellido,telefono) ');
  SQLQuery1.SQL.Add('VALUES (:A,:B,:C,:D);');
  SQLQuery1.Params.ParamByName('A').AsInteger:=Registro.Id;
  SQLQuery1.Params.ParamByName('B').AsString:=Registro.Nombre;
  SQLQuery1.Params.ParamByName('C').AsString:=Registro.Apellido;
  SQLQuery1.Params.ParamByName('D').AsString:=Registro.Telefono;
  SQLQuery1.ExecSQL;
  dmconexion.DataModule1.PQConnection1.Transaction.Commit;
  Result:=true;
 except
  on E: EUpdateError Do
  begin
     ShowMessage(Format('Error de actualizacion codigo: %d', [E.ErrorCode]));
  end;
  on A: EDataBaseError Do
  begin
     ShowMessage('Error que no se que es!!');
  end;
 end;
 end; 

   

[jdepaz]

Gracias por la respuesta,
pero necesariamente necesito el codigo de error cuando se intenta ingresar un ID existente,
ya que no quiero que se muestre el mensaje de error por default,

Saludos

[Delphius]

Gracias por la respuesta,
pero necesariamente necesito el codigo de error cuando se intenta ingresar un ID existente,
ya que no quiero que se muestre el mensaje de error por default,

Saludos

Pues no entiendo, el código de German ilustra el caso: se captura la excepción adecuada y se muestra un mensaje personalizado. En el ejemplo incluso hace uso de la lectura de la propiedad ErrorCode.
Ahora quizá, la excepción para el caso de un ID ya existente no sea de tipo EUpdateError sino otra pero el ejemplo de mostrar otro mensaje que no sea por defecto al de la excepción y el uso de ErrorCode está.

O quizá tu te refieres a otra cosa. ¿Podrías aclararnos mejor el panorama?

Saludos,

[jdepaz]

Bueno,

Puede ser cualquier error, y creo que cada error tiene su ErrorCode, entonces,
especificamente necesito evaluar cuando por ejemplo suceda el error 100, que seria la violación a una regla de llave primaria, etc., o el error 101 que seria cuando se intenta guardar cierta cantidad de caracteres, digamos 35 en un campo varchar(30), por citar algunos ejemplos.

La cuestion en si, es que estoy haciendo una presentación de una aplicación de 3 capas en un nivel utilizando Lazarus y los componentes que me brinda, sino tendria que utilizar los componentes ZeosLib,

saludos

[German]

delphi

Function TDataModule2.dmInsert_Cliente(Registro:TClient):boolean;
 begin
 try
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('INSERT INTO tbl_cliente (id,nombre,apellido,telefono) ');
  SQLQuery1.SQL.Add('VALUES (:A,:B,:C,:D);');
  SQLQuery1.Params.ParamByName('A').AsInteger:=Registro.Id;
  SQLQuery1.Params.ParamByName('B').AsString:=Registro.Nombre;
  SQLQuery1.Params.ParamByName('C').AsString:=Registro.Apellido;
  SQLQuery1.Params.ParamByName('D').AsString:=Registro.Telefono;
  SQLQuery1.ExecSQL;
  dmconexion.DataModule1.PQConnection1.Transaction.Commit;
  Result:=true;
 except
  on E: EUpdateError Do
  begin
     if(E.ErrorCode = 100)then
       ShowMessage('Es un error 100!!')
     else if(E.ErrorCode = 101)then
       ShowMessage('Es un error 101!!')
     else then
       ShowMessage('Es un error, pero no 100 ni 101!!');
  end;
  on A: EDataBaseError Do
  begin
     ShowMessage('Error que no se que es!!');
  end;
 end;
 end;

[Delphius]

Hola,

German, es el segundo código que te edito para añadir las etiquetas DELPHI y dar el formato adecuado. Por favor te agradecería que empezaras a utilizarlas. Aquí tienes una lista de las etiquetas disponibles y cómo usarlas.

Saludos,

[jdepaz]

Bueno,

Lo que German acaba de postear es correcto, eso lo entiendo, lo que pasa es que
la variable tipo exception no arroja ningun codigo de error,
utilizando E.HelpContext, solo arroja un valor cero (0), suceda lo que suceda, solo eso un valor 0,
Además, no existe ninguna propiedad "ErrorCode", yo lo escribe para aplicar como ejemplo.


Saludos

[Delphius]

Hola jdepaz,
A ver si te explicas mejor porque no termino de comprender que es lo que quieres hacer.

¿Existe si o no la propiedad ErrorCode? Unos posts antes nos mostrabas un ejemplo de una clase que SI lo tiene pero ahora resulta que dices que no?

¿Como es eso?  Está muy confuso...

¿A que te refieres cuando dices "yo lo escribe para aplicar como ejemplo"? ¿Esa clase la escribiste como ejemplo? ¿A eso te refieres?

Por favor, claridad en tus palabras... no por ser breve uno termina de explicando lo que en realidad desea hacer.
Prefiero unos párrafos que describan objetivamente el problema, que se comenten los errores y/o advertencias textuales que aparecen, una muestra del código exacto que se se está utilizando.

Esto no es un reproche, es que hay algo que no me cierra con todo esto. Por favor explícate bien.

Saludos,

[jdepaz]

Buenas noches,

Creo que mi error esta, en que por decirlo así, pensé que todos estaban en mi sintonia,

Bien ahí voy, caso contrario a Delphi, pero para Lazarus, se tiene la ventaja de poseer los fuentes de FreePascal, entonces como este es un foro sobre Lazarus, pense que se tenia el conocimiento sobre la unit "db.pas", por tal motivo cite parte del fuente de esta, donde se declara parte de la clase EDatabaseError, en este caso la clase EUpdateError que deriva de EDatabaseError.

Ahora bien, quizas lo que queria, era como extraer esa propiedad de la clase EDatabaseError, pero cuando suceda otro tipo de excepcion que no sea un EUpdateError (pero creo que no esta implementado).

Bien, entonces en otros lenguajes, para el manejo de excepciones, estos arrojan un mensaje, un numero de error, etc., pero resulta que esta clase encierra todos los errores en EDatabaseError, cosa que no sucede (creo) con otros componentes, por decirlo asi, (por ejemplo) para Interbase, existe la excepcion EIBDatabaseError, la cual deriva de EDatabaseError, etc.

Creo que voy bien, 

Entonces, vuelvo, lo que necesitaba era obtener el numero de error cuando se viola una regla de llave primaria, pero la variable tipo EDatabaseError no tiene esa propiedad que me indique que código de error sucedió.

Entonces al probar con E.HelpContext, que devuelve un Integer, por cualquier error usando la excepcion EDatabaseError, siempre me arroja un valor 0.

Ya listo, si no me explico, por favor sepan entenderme.


Saludos 

Al final ya me di por vencido.

[German]

delphi

Function TDataModule2.dmInsert_Cliente(Registro:TClient):boolean;
 begin
 try
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('INSERT INTO tbl_cliente (id,nombre,apellido,telefono) ');
  SQLQuery1.SQL.Add('VALUES (:A,:B,:C,:D);');
  SQLQuery1.Params.ParamByName('A').AsInteger:=Registro.Id;
  SQLQuery1.Params.ParamByName('B').AsString:=Registro.Nombre;
  SQLQuery1.Params.ParamByName('C').AsString:=Registro.Apellido;
  SQLQuery1.Params.ParamByName('D').AsString:=Registro.Telefono;
  SQLQuery1.ExecSQL;
  dmconexion.DataModule1.PQConnection1.Transaction.Commit;
  Result:=true;
 except
  on E: EDataBaseError Do
  begin
     if(E is EUpdateError)then
       begin
       if((E as EUpdateError).ErrorCode = 100)then
         ShowMessage('Es un error 100!!')
       else if((E as EUpdateError).ErrorCode = 101)then
         ShowMessage('Es un error 101!!')
       else then
         ShowMessage('Es un error, pero no 100 ni 101!!');
       end
     else   
       ShowMessage('Es un error pero no se cual');
  end;
 end;
 end;

Con etiquetas y todo!!!

Como recomendacion para jdepaz, podrias empezar por aqui http://www.freepascal.org/docs.var, en especial por aqui http://www.freepasca...#x178-18500014.

[enecumene]

Agregando lo dicho por los demás compañeros, la propiedad HelpContext nunca te mostrará un error, esa propiedad es para el manejo de los archivos de ayuda (sea *.hlp, *.chm. etc.), la solución ya te lo ha dado Germán.

Saludos.

[jdepaz]

Gracias,

La solución que plantea German, es cuando suceda una excepcion del tipo Update, pero lo que busco es el tratamiento para cualquier excepcion cuando se requiera hacer un INSERT, pero viendo mas a fondo las excepciones que derivan de EDatabaseError (en FPC) son:

EDdfError
EDbfWriteError
EIBDatabaseError
EUpdateError

Definitivamente al probar el código sugerido, en caso de un INSERT, la ejecución se va a esta parte:

delphi

else   
       ShowMessage('Es un error pero no se cual');

Entonces no hay solución para lo que deseo hacer.


PD: para MySQL si hay varias excepciones derivada de la clase Excepcion

[enecumene]

Pues claro amigo, es que tú mismo debes llamar cada una de las excepciones:

delphi

on E: EDataBaseError Do
  begin
     if(E is EUpdateError)then
       begin
       if((E as EUpdateError).ErrorCode = 100)then
         ShowMessage('Es un error 100!!')
       else if((E as EUpdateError).ErrorCode = 101)then
         ShowMessage('Es un error 101!!')
       else then
         ShowMessage('Es un error, pero no 100 ni 101!!');
       end
     else if (E is EDdfError) then ...
     else if (E is EDbfWriteError) then ...
     else if (E is EIBDatabaseError) then.. //Y así sucesivamente

Saludos.

[jdepaz]

Si es cierto, pero especificamente no hay una excepcion para lo que pueda ocurrir con un INSERT, (estoy trabajando con PostgreSQL) ,
las demás excepciones las cite porque son las únicas que están en la clase EDatabaseError.


Saludos

[Delphius]

Hola jdepaz,

Como te han dicho, debes indicar el listado de excepciones que deseas capturar:

delphi

On E: Tipo1 do
On E: Tipo2 do
On E: TipoN do

Y en caso de no tener interés de capturar alguna de listado y ofrecer algún texto para el caso general ya no queda otra que tratarlo con la clase general y por la parte else. Espero que se me entienda.

Para comprobar si existe alguna clase de excepción puntual para ese tipo de error lo que puedes hacer es propagarla o elevarla mediante raise. Con ello debería ser suficiente para que aparezca el cuadro de diálogo con el mensaje del nombre de la excepción. Intuyo que Lazarus será similar a Delphi en este sentido.

Luego vas a tu código y agregas a la lista dicha excepción.

Por otro lado déjame preguntarte, ¿Cuál es el propósito de mostrar el número de error? ¿Tendrá algún interés o funcionalidad alguna aparte de mostrar el número? Si el objetivo es llevar a modo de documentación los posibles errores que pueden detectarse en el sistema lo habitual es llevar una numeración propia para el proyecto y no "propagar" o mostrar el error propio de la excepción. Un método que suele ser utilizado es este:

NroLineaCodigo x LimiteNroErrorExcepcion + NroErrorExcepcion

LimiteNroErrorExcepcion es una constante. Supongamos que el número de error de la excepción mayor consta de 3 dígitos (el rango esperado entonces sería 0 a 999). Entonces LimiteNroErrorExcepcion tendrá el valor 1000.
Luego, hagamos de cuenta que en la línea 123 deseamos capturar un error 101. entonces los cálculos serían:

123 x 1000 + 101 = 123001

De este modo es más fácil localizar un error. Hay quienes suelen agregar un prefijo (sea números o letras) a sus errores para distinguir los módulos. Esto es útil cuando se tienen varias unidades o módulos y existe el riesgo de que en un mismo nro de línea de 2 o más unidades tengamos que detectar un error.

¿Porqué te comento esto? Porque poco uso y utilidad tiene estar mostrando un número de error si después no se le dará seguimiento o interés a ello. El usuario que reciba el número poca importancia la dará... para el será un simple número, o siglas en algunos casos, que no tiene sentido... un error para el será un error como cualquier otro. Por más cartelito bien explicado que tenga. ¿Me explico?

Saludos,

[jdepaz]

Bueno,

Lo que estoy haciendo es una presentación/tutorial muy didáctica, entonces, evaluando la inserción de un registro, esta no se podrá llevar a cabo si suceden estos errores (capturados con una excepcion tipo EDatabaseError):








Entonces, creo que cada error tiene su sqlcode.

Lo que veo al final es que la clase EDatabaseError carece de la excepcion para un error de inserción.

Pero bueno, creo que daré por resuelto.

Saludos y gracias a todos


Edito: Hola jdpaz, para las imagenes puedes utilizar la etiqueta de imagen la cual muestra la imagen en lugar de la url, o también puedes usar la funcion Adjuntar que está disponible en las Opciones Adicionales