ZDbcMySqlMetadata.pas

[JerS]

amigos tengo el siguiente problema mi programa anda bien con mi Zeos y mi Mysql, derrepente me arroja una excepcion

*****Exepcion despues de Asignar Valores de Tipo de Personal: Access violation at address 00402634 in module 'Infocontrol.exe'. Read of address 03D1C5A4

y me dice que tiene problemas con: "ZDbcMySqlMetadata.pas" diciendo que no funciona :S que podria ser?

[Neftali [Germán.Estévez]]

Si no te explicas un poco mejor y das más detalles de tu programa no vamos a poder ayudarte.

Access violation suele ser un error al acceder a memoria incorrecta. Algo liberado o no creado correctamente.

O eso o encontramos la bola de cristal. De otra forma es difícil saber más...

[JerS]

Empezado por Neftali

Si no te explicas un poco mejor y das más detalles de tu programa no vamos a poder ayudarte.

Access violation suele ser un error al acceder a memoria incorrecta. Algo liberado o no creado correctamente.

O eso o encontramos la bola de cristal. De otra forma es difícil saber más...

bueno amigo Neftali aqui te dejo la consulta donde me da el error:

Código Delphi [-]
Try
Z1:=TZQuery.Create(Nil);
 Z1.Connection:=Module.ZConnection1;
 Z1.SQL.Add('Select turno24,antes,agenda,inicioantes,idescanso from DetallePersonal d,TipoPersonal t Where d.cedula='+quotedstr(cedula)+'and d.cod_tipo=t.codigo');
 Z1.Open;
 If Not Z1.EOF then

y el error se produce cuando intenta abrir el Z1 Z1.Open

[JerS]

es muy raro esto que me pasa amigos mios y de verdad necesito que mi aplicacion este activa en todo momento!!

[Casimiro Noteví]

No te tomes a mal lo que voy a decir, pero el problema es que "no somos adivinos".

Neftalí te ha pedido información para ayudarte y has puesto un trocito de código que dice más bien poco, la verdad.
En vez de insistir que necesitas ayuda, que eso ya lo sabemos, lo que debes hacer es dar más información para que podamos ayudarte.

Por ejemplo:

Z1:=TZQuery.Create(Nil);

¿Lo creas en tiempo de diseño por algún motivo?, ¿por qué no pones el componente en el formulario y listo?.

Z1.Connection:=Module.ZConnection1;

Además de asignarle ese ZConnection1, ¿no hay más propiedades que deben ser asignadas o establecerle alguna propiedad?

Z1.Open;

Ahí dices que da error, bien, si sigues el programa paso a paso con el depurador y lo paras en esa línea, en cuanto la ejecutes verás que te dice cuál es el error. Ya sabes, pon un punto de ruptura en esa línea con F5 y ejecutas el programa (desde delphi), éste se detendrá al llegar a esa línea, le das a F8 para que avance a la siguiente y "¡¡¡zasss... !!! el error se te mostrará.

¿Qué más puedo contarte?, pues no sé ahora mismo, pero lo que te he comentado antes, que debes darnos mucha más información

[JerS]

Empezado por Casimiro Notevi

No te tomes a mal lo que voy a decir, pero el problema es que "no somos adivinos".

Neftalí te ha pedido información para ayudarte y has puesto un trocito de código que dice más bien poco, la verdad.
En vez de insistir que necesitas ayuda, que eso ya lo sabemos, lo que debes hacer es dar más información para que podamos ayudarte.

Por ejemplo:

Z1:=TZQuery.Create(Nil);

¿Lo creas en tiempo de diseño por algún motivo?, ¿por qué no pones el componente en el formulario y listo?.

Z1.Connection:=Module.ZConnection1;

Además de asignarle ese ZConnection1, ¿no hay más propiedades que deben ser asignadas o establecerle alguna propiedad?

Z1.Open;

Ahí dices que da error, bien, si sigues el programa paso a paso con el depurador y lo paras en esa línea, en cuanto la ejecutes verás que te dice cuál es el error. Ya sabes, pon un punto de ruptura en esa línea con F5 y ejecutas el programa (desde delphi), éste se detendrá al llegar a esa línea, le das a F8 para que avance a la siguiente y "¡¡¡zasss... !!! el error se te mostrará.

¿Qué más puedo contarte?, pues no sé ahora mismo, pero lo que te he comentado antes, que debes darnos mucha más información

de verdad lo estoy creando en tiempo de ejecucion nose por que!! y en cuanto a las propiedades adicionales de Zquery no le he colocado ninguna, que me recomiendas que agregue el objeto al form y que le coloque algun tipo de caracteristica especial adicional???

[Casimiro Noteví]

Te aconsejo que para ir aprendiendo vayas a la paleta de componentes zeos y
pongas un tzquery en el formulario, en sus propiedas le asignas el tzconection con
los datos oportunos de la base de datos, etc.
luego, tu código (según lo que has puesto antes) sería algo así:

Código SQL [-]
Z1.Close;
Z1.SQL.Text:='Select turno24,antes,agenda,inicioantes,idescanso from DetallePersonal d,TipoPersonal t Where d.cedula='+quotedstr(cedula)+'and d.cod_tipo=t.codigo';
Z1.Open;

[JerS]

Empezado por Casimiro Notevi

Te aconsejo que para ir aprendiendo vayas a la paleta de componentes zeos y
pongas un tzquery en el formulario, en sus propiedas le asignas el tzconection con
los datos oportunos de la base de datos, etc.
luego, tu código (según lo que has puesto antes) sería algo así:
Código SQL [-]Z1.Close; Z1.SQL.Text:='Select turno24,antes,agenda,inicioantes,idescanso from DetallePersonal d,TipoPersonal t Where d.cedula='+quotedstr(cedula)+'and d.cod_tipo=t.codigo'; Z1.Open;

Casimiro ya he echo esto anteriormente y me sigue presentando el mismo problema, y sobre todo el problema radica es que no pasa de una vez puede pasar 10 veces seguido o mas por esa parte del codigo sin generar ningun tipo de error pero en cierto momento me bota la excepcion que muestro al principio de este Hilo y se enfoca en el objeto Metadata de Zeos

[Casimiro Noteví]

Pero si no das más pistas... es difícil ayudarte.

Si no es mucho código, ponlo aquí le echemos un vistazo.

[Neftali [Germán.Estévez]]

¿Puedes poner el código completo? me refiero a un trozo más amplio.
No aparece cómo destruyes ese objeto.

¿Lo estás ejecutando en un bucle? ¿Utilizas Timers?

Comentas que falla al cabo de X repeticiones, por lo tanto se deduce que el error no está en el Open, puesto que si no fallaríaen la primera vuelta.

Falla en el Open, pero está claro que interviene algun otro factor, que hace que falle al cabo de un rato.

Comenta algo más del bucle, ¿cómo se lanza, cada cuanto, quien lo lanza,...?

[JerS]

Empezado por Neftali

¿Puedes poner el código completo? me refiero a un trozo más amplio.
No aparece cómo destruyes ese objeto.

¿Lo estás ejecutando en un bucle? ¿Utilizas Timers?

Comentas que falla al cabo de X repeticiones, por lo tanto se deduce que el error no está en el Open, puesto que si no fallaríaen la primera vuelta.

Falla en el Open, pero está claro que interviene algun otro factor, que hace que falle al cabo de un rato.

Comenta algo más del bucle, ¿cómo se lanza, cada cuanto, quien lo lanza,...?

Código Delphi [-]
  IF permiso=0 Then // persmiso = 0 entonces tiene permiso y puede entrar
    Begin
        escribir('Tiene permiso para entrar');
                  Try
                    escribir('B1');
                    ZRead.Close;
                    escribir('B2');
                    ZRead.SQL.Clear;
                    escribir('B3');
                    ZRead.SQL.Add('Select turno24,antes,agenda,inicioantes,idescanso from DetallePersonal d,TipoPersonal t Where d.cedula='+quotedstr(cedula)+'and d.cod_tipo=t.codigo');
                    escribir('B4');
                    ZRead.Open;
                    escribir('B8');
                    If Not ZRead.RecordCount>0 then
                      Begin
                        escribir('Despues de ejecutar Consulta TipoPersonal');

amigos miren el se mete por esta parte del codigo cuando la persona pasa una tarjeta ( cabe destacar que pueden pasar 50 personas seguidas en un periodo de 10 min) y tiene permiso para entrar, y luego hace esta simple consulta para ver segun la cedula de la persona cuales son las caracteristicas que posee dicha persona!! en realidad el codigo que esta antes no tiene nada de especial y el que sigue son puras asignaciones de variables, lo raro es que ahora cambie el objeto por el ZReadyOnlyQuery para ver si solventaba el problema y sigue..

lo documente con esa pequeña funcio de "escribir()" la cual me genera un archivo de texto que utilizo como tipo Log, para ver donde falla la aplicacion, por lo general el log se queda en "B4" o en "Tiene permiso para entrar", de verdad esto me esta volviendo loco porque nose que puede ser.

[JerS]

Código Delphi [-]
///////////////////////////////////////////Verificar Si tiene Permiso o Vacaciones y puede o no entrar

  Adodataset1.Close;
escribir('Despues de Cerrar el Dataset');

  Adodataset1.CommandText:=('Select acceso from permisos p,detallepermisos d where cedula='+Quotedstr(cedula)+' and p.codigo=d.codigo and fecha=current_date');

escribir('Despues de Asignar Valor al Dataset');
  Adodataset1.Open;
  If Not Adodataset1.Recordset.EOF Then
    Permiso:=Adodataset1.Recordset.Fields.Item[0].Value
  Else
    Permiso:=0;

escribir('Despues de Abrir y Asignar Valor a Permiso');

  IF permiso=0 Then // persmiso = 0 entonces tiene permiso y puede entrar
    Begin
        escribir('Tiene permiso para entrar');
                  Try
                    escribir('B1');
                    ZRead.Close;
                    escribir('B2');
                    ZRead.SQL.Clear;
                    escribir('B3');
                    ZRead.SQL.Add('Select turno24,antes,agenda,inicioantes,idescanso from DetallePersonal d,TipoPersonal t Where d.cedula='+quotedstr(cedula)+'and d.cod_tipo=t.codigo');
                    escribir('B4');
                    ZRead.Open;
                    escribir('B8');
                    If Not ZRead.RecordCount>0 then
                      Begin
                        escribir('Despues de ejecutar Consulta TipoPersonal');

                        H24:=inttostr(ZRead.fieldbyname('turno24').AsInteger);
                        escribir('H24: '+H24);

                        cadenaantes:=ZRead.FieldbyName('Antes').AsString;
                        escribir('Cadenaantes: '+cadenaantes);

                        HorarioP:=ZRead.fieldbyname('agenda').AsInteger;
                        escribir('HorarioP: '+inttostr(HorarioP));

                        if ZRead.fieldbyname('inicioantes').AsString<>'' Then
                          inicioantes:=strtotime(ZRead.fieldbyname('inicioantes').AsString)
                        else
                          inicioantes:=strtotime('00:00');
                        escribir('Inicioantes: '+timetostr(inicioantes));

                        if ZRead.fieldbyname('idescanso').AsString<>'' Then
                          idescanso:=strtotime(Z1.fieldbyname('idescanso').AsString)
                        else
                          idescanso:=strtotime('00:00');
                        escribir('Idescanso: '+timetostr(inicioantes));

                      End;

Except on e: exception do
 Begin
 escribir('*****Exepcion despues de Asignar Valores de Tipo de Personal: '+e.Message);
H24:=0;
  End;
End;