#include "ads.ch" 
  
 REQUEST DBFCDX 
 REQUEST ADS 
 REQUEST HB_LANG_RU866  
 REQUEST HB_CODEPAGE_RU866 
  
  
 FUNC Main() 
 local cSQL:="" 
 local hConnection 
 local cpath:=hb_CurDrive()+":\"+CurDir()+"\" 
 local i 
  
 HB_LANGSELECT("RU866") 
 hb_cdpSelect( "RU866" ) 
  
 rddSetDefault( "ADSCDX" ) 
 AdsSetCharType(2,.t.) 
 set date to german 
 AdsSetDeleted(.T.) 
 AdsRightsCheck(.F.) 
  
    if !hb_FileExists( cpath+"test.dbf" ) 
 dbcreate(cpath+"test.dbf",{; 
                      {"naim","c",15,0},; 
                      {"cod","n",2,0}},"DBFCDX",.t.,"TMP") 
  
   for i=1 to 10 
 TMP->(dbappend()) 
 TMP->naim:="Проверка-"+ntoc(i) 
 TMP->cod:=i   
   next 
  
 close TMP 
    
    endif 
  
  
  
    if !hb_FileExists( cpath+"dd_test.add" ) 
 AdsDDCreate(cpath+"dd_test.add") 
 adsConnect60( cpath+"dd_test.add", 7, "ADSSYS",'', 0, @hConnection ) 
 ADSDDADDTABLE(,cpath+"test.dbf") 
 hConnection:=nil 
    endif  
  
 cls    
 ? adsConnect60(cpath+"dd_test.add", 7 , "ADSSYS",'', 0 , @hConnection )    
  
  
 use test new 
 dbeval({||qout(naim)}) 
 close test 
  
  
 Select 0 
     IF AdsCreateSqlStatement("test" ,ADS_CDX ) 
 cSQL:="select * from test" //ok 
 AdsExecuteSqlDirect(cSQL) 
 ?  
 ? "ADSGETTABLECHARTYPE() ",ADSGETTABLECHARTYPE() 
 dbeval({||qout(naim)}) 
 close test 
    ELSE 
 ? "error" 
    ENDIF 
 *********************** 
  
 Select 0 
     IF AdsCreateSqlStatement("test" ,ADS_CDX ) 
 cSQL:="select TOP 5 * from test" // глючит 
 //cSQL:="select * from test where cod=1" // ok 
 //cSQL:="select * from test where cod>4" // ok 
 //cSQL:="select TOP 1 * from test order by cod" //глючит 
 // на каких еще выборках будет глючить не понятно )) 
 AdsExecuteSqlDirect(cSQL) 
 ?  
 ? "ADSGETTABLECHARTYPE() ",ADSGETTABLECHARTYPE() 
 dbeval({||qout(naim)}) 
    ELSE 
 ? "error" 
    ENDIF 
     
 wait 
  
  
 AdsDisconnect( hConnection ) 
  
 quit 
  
 RETURN NIL