Ayuda con Access Violation

[JerS]

Empezado por Caral

Hola

Código Delphi [-]
  ZQuery2.Close;
  ZQuery2.SQL.Clear;
  ZQuery2.SQL.Add('Select antes from DetallePersonal Inner Join TipoPersonal on cedula = :Num0 and cod_tipo = :Num1 and antes <> :Num2 ');
  ZQuery2.Params[0].Value:= quotedstr(cedula);
  ZQuery2.Params[1].Value:= codigo; // que es ????
  ZQuery2.Params[2].Value:= "00:00:00";
  ZQuery2.Open;
  IF Not ZQuery2.Eof Then
  cadenaantes:= ZQuery2.FieldbyName('Antes').AsString
  Else
  cadenaantes:='00:00';

Saludos
PD: Tienes dos tablas, que campo es de que tabla???????

Todos los campos son de la tabla TipoPersonal y el campo código es la relación entra la tabla de TipoPersonal con DetallePersonal

[JerS]

Utilizando Parámetros que diferencia tiene??

[[Caral]]

Hola
A la hora de depurar, de ver que o cuales problemas se tiene el programa hace un recorrido, con parametros se puede identificar el problema con exactitud.
Otra cosa, los datos se envian en su correcta forma, sea integer, string, etc, etc.
Saludos

[rrf]

Hola.

No tengo muy claro si esto te puede ayudar; pero te comento que hace poco tuve un problema bastante parecido, al menos en lo referente a "Access Violation" (no recuerdo el número que le acompañaba).

Fue usando Firebird 2.0.5 . Casi me vuelvo loco porque no daba con la posible causa del problema.

Finalmente, opté por cambiar a Firebird 2.1.3 (incluido el archivo fbclient.dll) y desaparecieron los "fantasmas" del "Access Violation". Supongo que era un error de las Zeos con esa versión de Firebird.

Saludos

[JerS]

Empezado por rrf

Hola.

No tengo muy claro si esto te puede ayudar; pero te comento que hace poco tuve un problema bastante parecido, al menos en lo referente a "Access Violation" (no recuerdo el número que le acompañaba).

Fue usando Firebird 2.0.5 . Casi me vuelvo loco porque no daba con la posible causa del problema.

Finalmente, opté por cambiar a Firebird 2.1.3 (incluido el archivo fbclient.dll) y desaparecieron los "fantasmas" del "Access Violation". Supongo que era un error de las Zeos con esa versión de Firebird.

Saludos

Muchas Gracias rrf pero estoy utilizando Zeos 6.6.6, Mysql 4.1 y Delphi 7

[JerS]

Nadie ha pasado por un problema como este??? tambien me esta pasando en la siguiente parte del codigo

Código Delphi [-]
      Try
        Hora.Close;
        Hora.SQL.Clear;
        Hora.SQL.Add('Select (time_format(Current_time,"%H:%i"))as Hora, (time_format(Current_time,"%h:%i %p"))as HoraAMPM ');
        Hora.Open;
        label25.Caption:=Hora.Fields[0].AsString;
        label8.Caption:=Hora.Fields[1].AsString;
        Application.ProcessMessages;
      Except on e:exception do
        Escribir('*****Exepcion al Actualizar la Hora: '+label25.Caption+' en el Timer Hora');
      End;

Arrojandome esta Excepcion: *****Exepcion al Actualizar la Hora: 10:33 en el Timer Hora

este codigo esta en un TTimer el cual tiene un intervalo de 10000

[waly2k1]

Si no siempre te da el error es porque a veces tienes abierta la consulta
con lo cual con Hora.Close la cierras y cuando no está abierta con
Hora.Close te va a generar el problema. No es un problema de parametros
sino te sería mas claro el error y no algo que haga referencia a una
posición de memoria o un objeto inexistente.

Además usando parametros con ParamByName queda mucho mas prolijo
el codigo y no debes estar usando apóstrofes ni convirtiendo cadenas a
nros o viceversa, simplemente mandas el valor, te evita ademas
problemas de configuración regional en fechas y numeros.

Y sobre todo codigo mas legible para que puedan analizarlo y echarte una
mano. No es web, no mezquines caracteres ni lineas hehe.
Saludos