4 replies to this topic

[discorf1978]

Hola a todos, tengo un problema tengo una cantidad de registros en el dbgrid, pero no se como si seleciono uno de ellos me diga en que registro estoy.  Tengo este codigo pero me actualiza siempre hasta el ultimo registro, pero si me muevo dentro de la grilla no me actualiza en que registro se encuentra

delphi

  registroact := 0;
  totalreg     := 0;
  registroact := M.ZTlibro.RecNo;
  totalreg     := M.ZTlibro.RecordCount;
  Fregistro.Lregistro.Caption :=  IntToStr(registroact )+' - '+IntToStr(totalreg);

[Rolphy Reyes]

Saludos.

La propiedad RecNo siempre se actualiza cada vez que te mueves dentro del DataSet; debes revisar donde tienes puesto el código que muestras.

[Faust]

En algunas bases de datos SQL la lectura de la posición del registro actual es imprecisa o simplemente es siempre cero aunque la consulta devuelva un conjunto de filas, esto es porque al ejecutar la consulta por el servidor nunca sabe la cantidad de registros que devolverá ya que el cursor que se usa es unidireccional, al menos en SQL Server y Access utilizando los componentes ADO si muestra de manera fidedigna la posición del registro actual, no he intentado esto con firebird, interbase o algún otro tipo de servidor de bases de datos pero esperemos que alguien con más experiencia en esto nos lo comente, saludos.

Acabo de leer detenidamente tu pregunta y creo que es lo que te comento... por eso cuando llegas al final del grid si te muestra la posición del registro. Sospecho que estás usando MySQL y los componentes Zeos...

[enecumene]

Hola, a mí me pasó algo similar con los recordcounts en Firebird con IBX, siempre daba 1 habiendo miles de registros, el truco estaba en ir al último registro y luego volver al primero:

delphi

Tabla.Last;
Tabla.First;

Así sí da el registro total y el RecNo trabaja de manera correcta.

Saludos.

PD.: Gracias a Egostar el Tip

[Delphius]

El problema no es de IBX necesariamente... el problema proviene desde TCustomDataSet que define a RecNo como virtual y por defecto no hace nada. Resulta que por esto, casi ninguna suite de componentes se digna de redefinir el comportamiento para devolver el valor como corresponde.

Saludos,