Traerse registros de forma progresiva
Por la Redacción de FoxPress
=SQLSETPROP(g_conexion,'BatchMode', .T.) =SQLSETPROP(g_conexion,'Asynchronous', .t.)ON KEY LABEL f2 cancel && No parece ser bueno !!!!
USE IN gridRecordSource
LOCAL nresult
nresult= SQLEXEC(g_conexion,"select * from casos ","gridRecordSource") DO WHILE nresult=0 AND ! USED("gridRecordSource")
nresult= SQLEXEC(g_conexion)enddo
IF nresult<0
MESSAGEBOX("Error en SQLEXEC",48,"Aviso")
RETURN .f.
ENDIF
RELEASE nresult
=CursorSetProp("FetchSize",50,"gridRecordSource")* Grid.Recordsource = "gridRecordSource"
FoxPress – Septiembre de
2006