Foros Club Delphi - ZDbcMySqlMetadata.pas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - ZDbcMySqlMetadata.pas (https://www.clubdelphi.com/foros/showthread.php?t=67565)

JerS	23-04-2010 04:49:51

ZDbcMySqlMetadata.pas

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]

23-04-2010 11:07:36

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	23-04-2010 15:11:28

Cita:

Empezado por Neftali (Mensaje 361677)

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	24-04-2010 03:59:04

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

Casimiro Noteví

24-04-2010 13:16:12

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:

Código:

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?.

Código:

Z1.Connection:=Module.ZConnection1;

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

Código:

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	24-04-2010 20:43:17

Cita:

Empezado por Casimiro Notevi (Mensaje 361792)

Código:

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?.

Código:

Z1.Connection:=Module.ZConnection1;

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

Código:

Z1.Open;

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í

24-04-2010 22:12:48

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	24-04-2010 23:12:07

Cita:

Empezado por Casimiro Notevi (Mensaje 361818)

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í

25-04-2010 00:19:20

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]

26-04-2010 11:55:04

¿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	27-04-2010 00:35:14

Cita:

Empezado por Neftali (Mensaje 361890)

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	27-04-2010 00:40:47

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;

La franja horaria es GMT +2. Ahora son las 22:15:21.