FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problemas al cerrar-destruir Tquery, o al hacer segunda consulta
Hola, este es mi caso (Delphi5 con access):
Bucle: Selecciono datos Proceso datos Fin Bucle La primera vez lo hace bien: Código:
query.active:=false; query.SQL.text:=('SELECT * FROM Datos WHERE Historico=No'); query.active:=true; If query.RecordCount>0 then Procesar Datos La solución temporal que he adoptado es que el query sea una variable local a la función de modo que cuando se llega al final de la funcion destruyo el query Código:
query.Destroy; ¿Ideas? ¿Soluciones? |
#2
|
|||
|
|||
Hola...
Puedes intentar con este código:
De esta forma dentro de la función creas, usas y destruyes el objeto... Ahora, si te fijas, usé el método Free para destruir el objeto, no Destroy... Saludos... |
#3
|
|||
|
|||
No funciona, casca al hacer el close y no libera memoria. Este es el mensaje:
Project xxx.exe raised exception class EOleException with message 'El valor de BOF o EOF es True, o el actual registro se eliminó: la operación solicitada requiere un registro actual' Código:
while true do begin Prueba(); end; Código:
Procedure Prueba(); Var difAnt:real; i:integer; error:boolean; query:TADOQuery; begin Try query :=TADOQuery.create(nil); query.Connection:=AC1; query.SQL.text:=('SELECT * FROM Datos WHERE Historico=No'); query.Open(); For i:=1 to query.recordcount do begin query.next; end; query.close; query.Free; Except error:=true; end; end; Código:
Procedure Prueba2(); Var difAnt:real; i:integer; error:boolean; query:TADOQuery; begin Try query :=TADOQuery.create(nil); query.Connection:=AC1; query.SQL.text:=('SELECT * FROM Datos WHERE Historico=No'); query.active:=true; For i:=1 to query.recordcount do begin query.next; end; query.Destroy; Except error:=true; end; end;
|
#4
|
|||
|
|||
Hola...
Para que siempre te libere el objeto TADOQuery, usa la construcción try..finally, ya que esta siempre ejecuta la parte del finally haya o no haya excepción... Y te repito de nuevo, no uses el método Destroy para liberar objetos, ese método es de uso interno de Delphi, usa el método Free... Sobre tu código de prueba, si haces un while True do, lo único que vas a lograr es un loop infinito, ya que True siempre va a ser True... Puedes probar lo siguiente:
Sobre TADOQuery, la verdad no sabría decirte si tiene algún tipo de error o limitante en Delphi 5, sería investigar un poco al respecto... Saludos... |
#6
|
|||
|
|||
El while true lo puse yo para que se ejecutara infinitas veces y así ver si no liberaba la memoria, y efectivamente la memoria ocupada crece y crece y crece...
No funciona el close si el query tiene EOF = true, salta una excepcion. Ahora voy a reiniciar el ordenador pq con tanta prueba ya ni funciona... |
#7
|
||||
|
||||
Por experiencia, cuando algo no sale, miramos las cosas más absurdas y nos emperramos en que hay un virus en el ordenador que no lo deja funcionar bien.
Ese momento es el idóneo para dejar el puñetero ordenador y hacer otra cosa que no tenga nada que ver con el trabajo ni con ordenador. El fallo es la propia consulta sql, ya que debe decir: where Historico = 'No' (¿ves las comillas simples? pues faltan en tu sql).
Una observación: Yo he usado QuotedStr que añade comillas simples alrededor de la palabra. Pero no sé lo que espera Access (o ADO), puede que espere comillas dobles... la que está encima del número 2. Saludos y descansa un poco amigo fonx, te lo mereces.
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#8
|
|||
|
|||
Jajaja, descansar...gracias por el consejo Lepe pero soy programador a tiempo completo, de Delphi en horario laboral y de .Net en mi tiempo libre.
Buen intento pero no. Te explico, la base de datos es access y tiene un tipo de dato que es Si/No. Desde el access lo puedes manejar como un checkbox, para dejarlo en Si o en No, pero accediendo mediante consultas sql lo consultas/manejas dando los valores Si y No, no es una cadena de texto. ¿Me explique? Gracias por la intencion , como este programa lo tengo q entregar en un plazo determinado voy a seguir avanzándolo y ya volveré a este error más adelante. No obstante seguid aportando lo que se os pueda ocurrir. Gracias y un saludo |
#9
|
|||
|
|||
Probá con...
Manejá el campo booleano con 0 o -1, en access -1, SQL Server 1
el campo de tipo bit. Depende si es 0 falso o distinto de 0 (1 o -1) es true El error que te daba anteriormente se debe a que todas las opciones de campos/arrays, colecciones, etc. comienzan en 0, a no ser que especifiques lo contrario, lo cual en VB es posible, pero desconozco si en Delphi está permitido Además si pones active := false a veces te da problema pq nunca lo abrió, a vos te fallaba directamente la consulta no te traia nada con la condicion = 'No' dicho de otra manera: for i = 0 to query.Recordcount -1 si ponés solo .Recordcount es logico que te de error porque quieres posicionarte en un registro inexistente ya q al arrancar en 0, pretendes avanzar uno mas del ultimo y aborta la operacion. Y no te rindas tan facil, ponele el pecho a las balas!!! Código:
procedure prueba(); Var difAnt:real; i:integer; error:boolean; begin query.SQL.Clear; query.SQL.text := 'SELECT * FROM Datos WHERE Historico=-1'; query.Open(); while not query.Eof do begin MessageBox( Handle, PChar( 'WOW Tengo algo' ), PChar( '¡ A T E N C I O N !' ), MB_ICONWARNING + MB_OK + MB_APPLMODAL); query.next; end; query.close; end; Última edición por waly2k1 fecha: 28-09-2007 a las 05:17:38. |
#10
|
|||
|
|||
Tampoco waly2k1. Por un lado for i:=1 to query.recordcount es lo mismo que for i:=0 to query.recorcount-1, porque no utilizo el iterador i como índice de acceso a nada sino como contador de iteraciones, y en los dos casos es el mismo número de iteraciones.
El while not query.eof tampoco soluciona nada porque el caso de fallo es el siquiente, centraos en el caso de fallo: CASO DE FALLO Cuando quiero cerrar o liberar un query y tiene la propiedad EOF = true no puedo, me da el mensaje: Project xxx.exe raised exception class EOleException with message 'El valor de BOF o EOF es True, o el actual registro se eliminó: la operación solicitada requiere un registro actual' Si hago una consulta que no devuelve registros entonces query.EOF es true siempre, siempre, siempre, y entonces no puedo cerrar o liberar ese query. Si la consulta devuelve datos entonces estoy obligado a hacer un query.first o mover el registro actual del query para que query.EOF sea false. ¿Entendeis el fallo? |
#11
|
|||
|
|||
Parece ser que puede q esté en lo cierto y es un bug del motor ADO del Delphi 5, y probablemente se solucionase con las actualizaciones disponibles en la web:
http://info.borland.com/devsupport/delphi/downloads/ Pero no puedo saberlo porque los vínculos a los archivos de actualización que hay en esa página están rotos ...El Delphi Enterprise Update Pack lo pude conseguir aquí en la oficina, pero el Update Pack 2, que es el que actualiza el motor ADO, pues no se de donde lo puedo sacar. ¿Alquien me lo puede facilitar? Solo son 1,7Mb que en un email se pueden enviar sin problema...les mandé un mail a Borland España a ver si ellos pueden conseguirmelo. El Update Pack 2 es el archivo d5adoupdate2.exe, por si a alguien le suena en su disco duro. Última edición por fonx fecha: 28-09-2007 a las 11:05:55. |
#12
|
|||
|
|||
Reinstala ADO
lo que podes hacer es reinstalar ADO, mediante los MDAC q los bajas de la pagina de Microsoft, en caso de que estes seguro de tu problema.
Me hace ruido que el error de cierre es porque nunca lo abrio ya que no podes preguntar por ='No' ya que es un formato de 'muestra', internamente almacena un Nro en el campo booleano. Te da .eof si no trajo registros, pero si la consulta falló no te da nada y no podés hacer referencia al query como intentas hacerlo. Al .recordcount no lo podés hacer ya que este te da un nro. por ej 5 cuando tenes 5 registros, pero si comienza en 0 va el for de 0 a 4 (.recordcount-1) y en total si son 5. y no de 1 a 5, ya que la posicion 5 No Existe. Saludos y espero despejar un poco tus dudas |
#13
|
|||
|
|||
Hola...
Cita:
Cita:
Así que el loop de fonx: for I := 1 to RecordCount do es correcto, ya que es un equivalente a while not Eof do... Saludos... |
#14
|
|||
|
|||
Efectivamente mis sospechas eran correctas. Es un fallo del motor ADO, se soluciona con el d5adoupdate2.exe, que es el Update Pack 2. Gracias a todos por la colaboración. El delphi 5 está un poco anticuado pero si alguien pasa por este fallo espero q le sirva este hilo
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
[Pregunta] Cerrar o destruir ventana | Kpoch | API de Windows | 2 | 27-04-2007 19:26:48 |
problemas al actualizar por segunda vez | @-Soft | Tablas planas | 2 | 07-09-2006 19:53:22 |
Sincronizar DBLookupComboBox con Tquery al hacer locate en la tabla | ronalg | Conexión con bases de datos | 1 | 27-05-2006 15:58:06 |
consulta en sus propiedades de Tquery | jorgito | Conexión con bases de datos | 9 | 31-01-2006 15:57:35 |
consulta en sus propiedades de Tquery | jorgito | Conexión con bases de datos | 1 | 20-01-2006 23:06:32 |
|