FoxPro/Visual FoxPro - Consulta SQL

select count(rfc) as total from historial_empleado where rfc ='XXXXXX' into cursor curDatos

IF _tally = 0

    wait wind 'No se encontraron datos'

ELSE

    wait wind 'Se encontraron ' + Str(total,8) + ' registros'

END IF

* Se deben definir los valores de Campo, Tabla y Condición

* En este ejemplo, supuestamente se espera un valor String como respuesta

* La respuesta del array se asigna a una variable de memoria

PROCEDURE BUSCAR

*---------------

LPARAMETERS tcTabla,tcCampo,tcCondicion

LOCAL lcRespuesta

LOCAL ARRAY laResp(1)

lcRespuesta = ""

SELECT &tcCampo FROM &tcTabla WHERE &tcCondicion INTO ARRAY laResp

IF !EMPTY(_tally) && _Tally es una variable del sistema que informa la cantidad de filas obtenidas

	lcRespuesta = NVL(TRIM(laResp[1,1]),"")	&& El array podría traer un valor .NULL.

ENDIF

RETURN m.lcRespuesta