Numero de registro en un TQuery

ramiretor · #1 26-09-2003

Hola foro:
Tengo un problema que se me ha presentado varias veces nunca he sabido la causa y quiza a alguno de ustedes también se le ha presentado algo igual.

Trabajo en una aplicación con Oracle 8, BDE con driver nativo y delphi 7 ( aunque esto se me ha presentado tb en delphi6). Bueno la cuestión es que abro el cursor y el número del registro siempre me da -1 y RecordCount = -1 , por ejemplo si Consulta es el TQuery, las expresiones:

Consulta.RecNo
Consulta.RecordCount

Siempre regresan -1. Lo he arreglado con anterioridad haciendo esto:

Consulta.Last;
....Consulta.RecordCount;

Pero ahora no puedo saltar hasta el último registro para contar el total de registros ya que me interesa conocer el número del registro en el que estoy actualmente. Sé que hay otras maneras para solucionarlo pero se me hacen de la era de las cavernas.

Si alguien puede ayudarme se lo agradeceré un saludo y un abrazo a todos los foristas

marcoszorrilla · #2 26-09-2003

Prueba con:
select count(*)
from Clients

Un Saludo.

roman · #3 26-09-2003

No todos los datasets dan la información acerca del número de registros ya que no lo saben sino hasta que se recorren todos ellos como haces cuando usas Last. Esto es ineficiente ya que obligas al servidor a recorrer todos los registros.

Si consultas la ayuda de Delphi verás que por default TDataSet regresa -1.

Lo que te indica marcoszorrilla me parece que es lo más adecuado.

// Saludos

ramiretor · #4 26-09-2003

Hola:
Muchas gracias por contestar. El problema es que el número de registros que trae el cursor es fácil de saber pero si tengo un componente TDBNavigator el usuario recorre el cursor y le debo marcar el número del registro en el que se encuentra a parte del número de registros totales.

A ver si me pueden ayudar

Muchas gracias de todas maneras

Saludos

delphi.com.ar · #5 27-09-2003

Porqué no agregas el RowNum a tu consulta... de esta manera sabrás en que registro estas parado, si tener que inmiscuirte en el código de tu componente de conexión!

Código:

SELECT ROWNUM, APELLIDO, NOMBRE
FROM USUARIO
...

Saludos!

ramiretor · #6 27-09-2003

Hola:
Gracias por contestar, fijate que hice lo que me aconsejaste y sigue el mismo problema, el valor de rownum en cualquier registro en el que esté parado me regresa -1, creo que no hay manera de solucionarlo excepto hacerlo a pie.

Muchas gracias de todos modos
Un abrazo

delphi.com.ar · #7 27-09-2003

Mmmmmm... algo hiciste diferente!!!
¿Pusiste la consulta y luego accedes al rownum de forma similar a esta?:

Código:

iRegistro := Query1.FieldByName('ROWNUM').AsInteger;

ramiretor · #8 29-09-2003

Pues se supone que asi debería de ser o no?

Saludos

delphi.com.ar · #9 29-09-2003

Si, esa sería la forma. Pero si eso te falla, desconfiaría terriblemante de tu herramienta de conexión. Prueba que valor trae cuando haces una consulta a una tabla que tiene campos numéricos.

Saludos!

ramiretor · #10 29-09-2003

Lo voy a probar como me dices y luego te digo gracias

Saludos