Share via

_DBRecNo( ) (Rutina de biblioteca API)

  • Artículo

Devuelve el número del registro actual de la tabla abierta en el área de trabajo especificada.

long _DBRecNo(int workarea)
int workarea;               /* Work area. */

Observaciones

Si no hay ninguna tabla abierta en el área de trabajo especificada, _DBRecNo( ) devuelve un número entero negativo cuyo valor absoluto corresponde a un número de error de Visual FoxPro. Si el puntero de registro está al final del archivo, _DBRecNo( ) devuelve un número que es una unidad mayor que el número que devuelve _DBRecCount( ).

Para obtener más información acerca de cómo crear una biblioteca API e integrarla con Visual FoxPro, vea Acceso a la API de Visual FoxPro.

Ejemplo

El siguiente ejemplo proporciona una funcionalidad similar a la que proporciona la función RECNO( ) de Visual FoxPro.

Código Visual FoxPro

SET LIBRARY TO DBRECNO 
DO CreateTest
GO 3
? DBRECNO()
GO 6
? DBRECNO()
USE
? DBRECNO()  && returns -119

PROCEDURE CreateTest
   CREATE TABLE test (ABC C(20))
   APPEND BLANK
   REPLACE ABC WITH "This is record 1"
   APPEND BLANK
   REPLACE ABC WITH "This is record 2"
   APPEND BLANK
   REPLACE ABC WITH "This is record 3"
   APPEND BLANK
   REPLACE ABC WITH "This is record 4"
   APPEND BLANK
   REPLACE ABC WITH "This is record 5"
   APPEND BLANK
   REPLACE ABC WITH "This is record 6"
   GO TOP
RETURN

Código C

#include <pro_ext.h>

FAR Example(ParamBlk FAR *parm)
{
   _RetInt(_DBRecNo(-1), 10);
}

FoxInfo myFoxInfo[] = {
   {"DBRECNO", (FPFI) Example, 0, ""},
};
FoxTable _FoxTable = {
   (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
};

Vea también

_DBRecCount( ) | Acceso a la API de Visual FoxPro | Trabajar con registros | Registros | Trabajar con campos y con registros