Autor Tema: Posición De Un Registro (Leído 2751 veces)

Anonymous · « **en:** Miércoles 10 de Noviembre de 2004, 02:56 »

Cómo puedo determinar la posición de un registro en la tabla, sabiendo que estoy utilizando TTable para acceder a la base de datos. Algo como: Se encuentra en la posición 3 de 17 registros

Ayla

Una solución un poco cutre, a mi ver ....

. Es recorrer la tabla con un while hasta que encuentres la posición correcta. Ej:

Código: Text

 
 i := 1;
 table.First;
 while i &#60; 3 do begin
    table.Next;
    i=i+1;
 end;
 
 

Supongo que el TTable lo tienes asociado a un TDataSet, así que mírate en la ayuda la propiedad BookMark del DataSet. No recuerdo bien pero creo que mediante esa propiedad podías colocarte en una posición determinada de la tabla. A ver si tengo un hueco y te lo confirmo.

Espero que te sirva.

Anonymous

Que tal Ayla, gracias por la respuesta, pero lo que yo necesito es la posición absoluta del registro actual, algo que en Visual Basic sería como:

Código: Text

 
Dim posicion as Integer
posicion = DataEnvironment1.rsCommand1.AbsolutePosition
label1 = &#34;posicion &#34; + Str(posicion) + &#34; de ... registros&#34;

Entonces en n tendría la posición absoluta del registro actual para ponerla en una label y saber en que posición me encuentro en el momento, yo ya he probado con recorrer toda la tabla así:

Código: Text

 
var
  buscamos:String;
  posicion:Integer;
begin
  buscamos := DBEdit1.Text;
  posicion := 1;
  Table1.First;
  while (DBEdit1.Text &#60;&#62; buscamos) do begin
    posicion := posicion + 1;
          Table1.Next;
     end;
  Label1.Caption := 'Estamos en la posición ' + IntToStr(posicion) + ' de ' + IntToStr(Table1.REcordCount);
end;
 
 

Pero el gran problema es que la base de datos es una encuesta y no hay un campo que sirva para diferenciar un registro de otro, mejor dicho pueden haber varios registros con la misma información. He pensado en ponerle un campo de autoincremento para diferenciar un registro de otro y poder recorrer la tabla buscando el valor de este campo con el codigo anterior y determinar la posición actual. Pero son demasiados registros para estar recorriendolos cada momento. Bueno, ... la pregunta es la siguiente. Hay alguna forma de determinar la posición absoluta del registro actual?.

makio

Espero quen esto te ayude para lo que quieres hacer.

La propiedad RecNO, te devuelve en que registro te encuentras.
El ejemplo que te pongo hace lo siguiente: primero busco en mi tabla (propiedad Locate) supongamos clientes al que tenga el nombre que empieze por FER me pondra el el primer registro que encuentre con esta especificacion, al tener localizado al cliente, para saber en que numero de registro se encuentra se utiliza la función RecNO y listo.

procedure TForm1.Button1Click(Sender: TObject);
var
regAct:integer;
begin
table1.Locate('nombre','FER',[loPartialKey]);
regAct:=table1.RecNo;
end;

Espero haberte resuelto tu duda

Anonymous

Gracias por el dato makio, no se me había ocurrido, justo lo que necesitaba.

SoloCodigo

Autor Tema: Posición De Un Registro (Leído 2751 veces)

Anonymous

Posición De Un Registro

Ayla

Re: Posición De Un Registro

Anonymous

Re: Posición De Un Registro

makio

Re: Posición De Un Registro

Anonymous

Re: Posición De Un Registro