xsharp.eu

Code: Select all

FUNCTION SortTest AS VOID
    local lresult 
    lresult:= sqlexec(_handle, "select 1 ColN, 'f' ColC union select 6 ColN, 'a' ColC union select 2 ColN, 'e' ColC union select 3 ColN, 'd' ColC union select 4 ColN, 'c' ColC union select 5 n, 'b' c ","sqlresult") >0
    local filenew:= "tmpfile"    
    local cbForCondition := {|| ColN>1}  
    local lseleAct:= select ("sqlresult")
    // 1st step: create a temporary table like a foxpro cursor 
    var aFields := { { "ColN" , "N" , 10 , 0 } ,{ "ColC" , "C" , 1 , 0 }} 
    if lresult
	    lresult:=  DbCreate( fileNew, AFields)
    endif
    if lresult
	lresult := DbUseArea(true,,filenew, "AliasNewTable")
        seleNew:= Select()
    endif  
    select sqlresult
    DbLocate(cbforcondition, ,,,)
    do while found()
        (selenew)->DBAppend()
        fieldputSelect(selenew,"ColN",ColN)
        fieldputSelect(selenew,"ColC",ColC)
        DBContinue(lseleAct)
    enddo 
    select AliasNewTable
    ListToConsole("List temp table before sort")
    // 2nd step: order by ColN     
    lresult:= (selenew)->DBSort(filenew+"Ord",  {"ColN"},,,,, )
    IF lresult
        DBCloseArea(selenew)
        lresult:= DbUseArea(true,,filenew+"Ord", "OrderedByColN")
        //USE (filenew) new 
        seleNew:= Select()
    endif 
    ListToConsole("after sort by ColN")

    lresult:= (selenew)->DBSort(filenew+"Desc",  {"ColN/D"},,,,, )
    IF lresult
        DBCloseArea(selenew)
        lresult:= DbUseArea(true,,filenew+"Desc", "OrderedByColNDescending")
        seleNew:= Select()
    endif 
    ListToConsole("after sort by ColN descending ")
    
    lresult:= (selenew)->DBSort(filenew+"ColC",  {"ColC"},,,,, )
    IF lresult
        DBCloseArea(selenew)
        lresult:= DbUseArea(true,,filenew+"ColC", "OrderedByColCDescending")
        seleNew:= Select()
    endif 
    ListToConsole("after sort by ColC")
    RETURN
    
function ListToConsole(ptitle) as void
    ? ptitle
    dbgotop()
    do while !eof()
        ? transform(ColN,"999999") +" " + ColC
        dbskip()
    enddo 
    return