ZDbcMySqlMetadata.pas

[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;