Contar total de registros de una tabla libre

Me pueden ayudar con este código en un botón.
direccion = GETFILE() 
direccion = ALLTRIM(direccion)
thisform.txt_archivoentrada.Value=direccion
SELECT direccion
count
nota:
direccion= "D:\tabla\103388E.DBF"
Lo que este botón hace es capturar la ruta del archivo 103388E.DBF (tabla libre) y colocarlo en la variable dirección. Lo que quiero hacer es contar el número total de registros que contiene esta tabla y colocarlo en un textbox, pero aun no logro hacerlo.
Lo he intentado de muchas maneras.

1 respuesta

Respuesta
1
Prueba:
LOCAL lcPathFileName, lcFileName as String
lcPathFileName=GETFILE("dbf","Escoja una Tabla","Abrir")
IF NOT EMPTY(lcPathFileName)
    USE (lcPathFileName) SHARED IN 0 ALIAS MisDatos
    SELECT MisDatos
    thisform.text1.Value=RECCOUNT()
    Use
Endif

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas