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

Original