m.lcSqlOtb=m.lcSqlOtb+' fm'+m.uslFm+'?THISFORM.txtFm.value '  
  m.lcSqlOtb='SELECT * FROM arhivpd WHERE '+m.lcSqlOtb

SQLSETPROP(m.ghServer, 'Asynchronous',.t.)  
  SQLSETPROP(m.ghServer,'BatchMode',.f.)  
  DO WHILE .t.  
   result=SQLEXEC(m.ghServer, m.lcSqlOtb,'vrem')  
   IF result<0  
    =AERROR(lErr)  
    MESSAGEBOX('Ошибка N '+STR(lErr(1))+' '+lErr(2),0,' ')  
    EXIT  
   ENDIF  
   IF result>1000  
    MESSAGEBOX('Кол-во записей больше допустимог.Уточните критерии отбора',0,' ')  
    EXIT  
   ENDIF   
   IF SQLMORERESULTS(m.ghServer)=2  
      EXIT  
   ENDIF      
  ENDDO

SQLSETPROP(m.ghServer, 'Asynchronous',.t.)  
  result=SQLEXEC(m.ghServer, m.lcSqlOtb,'vrem')    
    
 * Бесконечный цикл ожидания окончания выполнения асинхронного запроса  
  DO WHILE result = 0  
 	* Для проверки факт продолжения выполнения запроса  
 	* пытаемся послать на сервер пустой запрос  
  	result = SQLEXEC(m.ghServer,'')  
  ENDDO  
    
  if result = -1  
  	=AERROR(lErr)    
  	MESSAGEBOX('Ошибка N '+STR(lErr(1))+' '+lErr(2),0,' ')    
  endif

  
  SQLSETPROP(m.ghServer, 'Asynchronous',.t.)    
  result=SQLEXEC(m.ghServer, m.lcSqlOtb,'vrem')      
    
 * Бесконечный цикл ожидания окончания выполнения асинхронного запроса    
  DO WHILE result = 0    
 	* Для проверки факт продолжения выполнения запроса    
  	* пытаемся послать на сервер пустой запрос    
    	result = SQLEXEC(m.ghServer,'')    
  	  
  	select vrem  
  	IF Recno() < 1000  
  		TRY  
  			GO 1000  
  			result = SQLCancel(m.ghServer)  
  			MESSAGEBOX('Кол-во записей больше допустимог.Уточните критерии отбора',0,' ')   
  			EXIT  
  		CATCH  
 			* В выборке меньше, чем 1000 записей. Ничего не делаем  
  		ENDTRY  
  	ENDIF  
  ENDDO    
        
  if result = -1    
    	=AERROR(lErr)      
    	MESSAGEBOX('Ошибка N '+STR(lErr(1))+' '+lErr(2),0,' ')      
  endif

  
  CLEAR  
    
  CURSORSETPROP("FetchSize",10,0)  
  CURSORSETPROP("FetchAsNeeded",.T.,0)  
    
  con=SQLCONNECT("Localserver")  
  SQLSETPROP(con,"Asynchronous",.T.)  
    
  PUBLIC ARRAY acountInfo(1)   
    
  result = SQLEXEC(con,"select TOP 43 * from Northwind..Customers;"+ ;  
  				"select top 35 * from Northwind..Products","", acountInfo)  
  num=1  
  DO WHILE result = 0      
  	DispalyFetchStatus(num)  
  	  
  	* Для проверки факт продолжения выполнения запроса      
   	* пытаемся послать на сервер пустой запрос      
  	result = SQLEXEC(con,'','',acountInfo)      
  	num = num + 1   
  ENDDO      
            
  if result = -1      
  	=AERROR(lErr)        
  	MESSAGEBOX('Ошибка N '+STR(lErr(1))+' '+lErr(2),0,' ')  
  ELSE  
  	DispalyFetchStatus(num)  
  endif  
    
  SQLDISCONNECT(con)  
    
  RETURN   
    
  FUNCTION DispalyFetchStatus(num)  
  	? "------- SQLEXEC #", num,"-------"  
  	FOR I=1 TO ALEN(acountInfo,1)  
  		IF acountInfo(I,1)!="0"  
  			? acountInfo(I,1)+":", "Fetched now:", acountInfo(I,2), ;  
  				"Total Fetched:", CURSORGETPROP("RecordsFetched",acountInfo(I,1))  
  		ENDIF  
  	NEXT	  
  	?  
  ENDFUNC

  
  ------- SQLEXEC #           1 -------  
    
  ------- SQLEXEC #           2 -------  
  SQLRESULT:   Fetched now:          10 Total Fetched:         10  
    
  ------- SQLEXEC #           3 -------  
  SQLRESULT:   Fetched now:          10 Total Fetched:         20  
    
  ------- SQLEXEC #           4 -------  
  SQLRESULT:   Fetched now:          10 Total Fetched:         30  
    
  ------- SQLEXEC #           5 -------  
  SQLRESULT:   Fetched now:          10 Total Fetched:         40  
    
  ------- SQLEXEC #           6 -------  
  SQLRESULT:   Fetched now:           3 Total Fetched:         43  
  SQLRESULT1:   Fetched now:          10 Total Fetched:         10  
    
  ------- SQLEXEC #           7 -------  
  SQLRESULT1:   Fetched now:          10 Total Fetched:         20  
    
  ------- SQLEXEC #           8 -------  
  SQLRESULT1:   Fetched now:          10 Total Fetched:         30  
    
  ------- SQLEXEC #           9 -------  
  SQLRESULT1:   Fetched now:           5 Total Fetched:         35

**Устанавливаем св-ва соединения  
  SQLSETPROP(m.ghServer, 'Asynchronous',.T.)  
  CURSORSETPROP('FetchAsNeeded',.T.,0)  
  CURSORSETPROP('FetchSize',100,0)  
    
  result=SQLEXEC(m.ghServer, m.lcSqlOtb,'MyResult')  
  m.lnSek=SECONDS( )  
  DO WHILE NOT USED('MyResult')  
   result=SQLEXEC(m.ghServer, m.lcSqlOtb,'MyResult')  
   IF SECONDS( )-m.lnSek>10  
      MESSAGEBOX('Неверно составлен запрос.Обратитесь к программисту',0,' ')      
      SQLDISCONNECT(m.ghServer)  
   Endif     
  Enddo  
    
    
  DO WHILE  result=0  
   * Для проверки факт продолжения выполнения запроса        
   * пытаемся послать на сервер пустой запрос        
   result=SQLEXEC(m.ghServer,'')   
   SELECT MyResult    
   IF RECNO()<1000  
    TRY  
     GO 1000  
     MESSAGEBOX('Кол-во записей больше допустимог.Уточните критерии отбора',0,' ')     
        SUSP  
     EXIT   
    CATCH  
   * В выборке меньше, чем 1000 записей. Ничего не делаем    
    ENDTRY  
   ENDIF    
  ENDDO  
  IF result=-1      
    =AERROR(lErr)  
    MESSAGEBOX('Ошибка N '+STR(lErr(1))+' '+lErr(2),0,' ')   
  ENDIF  
  SUSP

Do while Not Used('MyResult')  
  Enddo

m.lnRecordsInterval=CURSORGETPROP("FetchSize","MyResult")  
  m.lnRecordsTotal=m.lnRecordsInterval  
    
  DO WHILE  result=0  
     result=SQLEXEC(m.ghServer,'')   
     m.lnRecordsTotal=m.lnRecordsTotal+m.lnRecordsInterval  
     If m.lnRecordsTotal>1000  
       MESSAGEBOX('Колво записей больше допустимого',0,' ')     
       EXIT  
     Endif    
    
     WAIT WINDOW "Выборка записей "+STR(m.lnRecordsTotal) NOWAIT NOCLEAR  
       
       
  ENDDO

select top 100 * from arhivpd where fm like 'О%'

Order BY

create table #t (id int, Name char(10))  
    
  insert into #t (id, name) select 1, 'One' union select 2, 'Two'  
    
  select top 1 * from #t order by 1

  
  CLEAR  
    
  CURSORSETPROP("FetchSize",10,0)  
  CURSORSETPROP("FetchAsNeeded",.T.,0)  
    
  con=SQLCONNECT("Localserver")  
    
 * Для отладки   
  SQLEXEC(con,"select COUNT(*) as _Cnt from Northwind..Customers",'CountInfo')  
  ?"Total records in the table:", CountInfo._Cnt  
  USE IN CountInfo  
    
  SQLSETPROP(con,"Asynchronous",.T.)  
    
    
  result = SQLEXEC(con,"select * from Northwind..Customers",'MyResult')  
    
  DO WHILE result=0 AND NOT USED('MyResult')    
     result=SQLEXEC(con, '','MyResult')    
  Enddo    
    
  IF USED('MyResult')  
  	CURSORSETPROP("FetchAsNeeded",.T.,'MyResult')  
  ENDIF  
    
  DO WHILE  result=0    
     result=SQLEXEC(con,'')     
       
     IF CURSORGETPROP("RecordsFetched", 'MyResult')>35  
  		SQLCANCEL(con)  
  		result=1  
  		MESSAGEBOX('Too many records!!!',0,' ')       
     ENDIF  
  ENDDO    
    
  IF result=-1        
      =AERROR(lErr)    
      DISPLAY MEMORY LIKE lErr  
  ENDIF    
    
  ? "Total records fetched:", RECCOUNT('MyResult')  
    
  SQLDISCONNECT(con)

  
  Total records in the table:          91  
  Total records fetched:         40