...
this.oConnect=CREATEOBJECT("db_connect")
this.oConnect.cConnectionString=_screen.cConnectionString
this.oConnect.AllowUseDbaConnect=_screen.AllowUseDbaConnect
this.oConnect.nUseTransaction=0
this.oConnect.ShowError=1

...

** обновить cFeatures из БД ************************
IF this.oConnect.BaseIfConnect()>0        
    this.oCad = CREATEOBJECT("cursoradapter")  
    WITH this.oCad
        .Alias = 'cFeatures'
        .ConflictCheckType = 3
        .MapBinary = .T.
        .MapVarchar = .T.
        .DataSourceType = 'ODBC'
        .DataSource = this.oConnect.nConnect
        .SelectCmd = lcScriptR
        .CursorSchema = lcSchema
        .UseCursorSchema = .T.
            
        .Prepared = .T.
        .FetchSize = -1
        .NoData = .F.
    ENDWITH 
        
    IF !this.oCad.CursorFill()
        lcOk=0
        AERROR(laInfo)  
        MESSAGEBOX("Can't create adapter oCad:" + CHR(13) + m.laInfo[2])                  
    ENDIF             
ELSE
    lcOk=0
    AERROR(laInfo)  
    MESSAGEBOX("Can't establish connection:" + CHR(13) + m.laInfo[2])             
ENDIF 
this.oConnect.BaseIdleDisconnect()

...

&& запрашиваем данные **************************
IF this.oConnect.BaseIfConnect()>0
    cScript=[select nvalue from const where code=1014]
    IF SQLEXEC(this.oConnect.nConnect,cScript,'c0')>0
        this.nTypeRating=NVL(c0.nvalue,0)
    ELSE
        lcOk=0
        AERROR(a1)
        lcError=a1[2]        
    ENDIF 
    USE IN SELECT('c0')
    
    cScript=[select code as code, code_kag, name, producer, pr_sale_amount, sale_report, sale_sum_report, ]+;
        [ client_amount_report, tn_report, pr_tn, price_ss, price_min, free, msk, ]+;
        [ skldays, saledays, sale_amount, client_amount, sale_sum, tn, din, tz, stock_sum, rate_proc, ]+;
        [ amount_conc, free_conc, price_conc1, price_conc2 ]+;
        [ from REPORT_QUICKLY_RISE(?this.dDate1,?this.nMinProc,?this.nMinSale,?this.nMinStock,?this.nMinClient,]+;
        [?this.market_sid,?this.nDatePeriod,?this.nTypeRating)]+;
        [ order by pr_tn desc]
    IF !SQLEXEC(this.oConnect.nConnect,cScript,'cReport')>0
        lcOk=0
        AERROR(a1)
        lcError=a1[2]
    ENDIF 
ELSE
    lcOk=0
    AERROR(laInfo)  
    MESSAGEBOX("Can't establish connection:" + CHR(13) + m.laInfo[2])     
ENDIF 
this.oConnect.BaseDisconnect()

lcMyFreeTable='ваш путь\tbl'
use (lcMyFreeTable) in 0 SHARED ALIAS cMyAlias