*--------------------------------------------------------------* 
 Function Grid_fill()                      
 *--------------------------------------------------------------* 
 Local cSearch:= ' "'+Upper(AllTrim(Grid_Names.cSearch.Value ))+'%" '            
 Local nCounter:= 0 
 Local oRow 
 Local i 
 Local oQuery 
 Local GridMax:= iif(len(cSearch)== 0,  30, 1000000) 
  
 DELETE ITEM ALL FROM Grid_1 Of Grid_Names 
  
 oQuery := oServer:Query( "Select Code, Name From NAMES WHERE NAME LIKE "+cSearch+" Order By Name" ) 
 If oQuery:NetErr()												 
   MsgInfo("SQL SELECT error: " + oQuery:Error()) 
   RELEASE WINDOW ALL 
   Quit 
 Endif 
  
 For i := 1 To oQuery:LastRec() 
   nCounter++ 
   If nCounter == GridMax 
     Exit 
   Endif                    
   oRow := oQuery:GetRow(i) 
   ADD ITEM { Str(oRow:fieldGet(1), 8), oRow:fieldGet(2) } TO Grid_1 Of Grid_Names 
   oQuery:Skip(1) 
 Next 
  
 oQuery:Destroy() 
  
 Grid_Names.cSearch.SetFocus   
  
 Return Nil 
 

 
 *--------------------------------------------------------* 
 FUNCTION BrowseTable(cTable, mod) 
 *--------------------------------------------------------* 
    Local cSelect, bSetup , oBrw 
    Local nWinWidth  := getdesktopwidth() * 0.8 
    Local nWinHeight := getdesktopheight() * 0.8 
    Local cTitle := "Table: " + cTable 
  
    if mod == 1 
       cSelect := "SELECT * FROM " + cTable 
  
       DBUSEAREA( .T.,, cSelect, "TABLE" ,,, "UTF8") 
  
       Select TABLE 
 ... 
 *--------------------------------------------------------* 
 Function SqlUpdate(uVal, nCol, cTable, lApp) 
 *--------------------------------------------------------* 
    Local cQuery, i, cFldName, nStart, cQuery2 
    Local aDbStru := dbstruct() 
  
    if lApp 
       cQuery:= "INSERT INTO "+cTable+" ( " 
       cQuery2:= " ) values ( " 
       for i := 1 to len(aDbStru) 
          cFldName := aDbStru[i, 1] 
          if i > 1 
                cQuery += " , " 
                cQuery2 += " , " 
          endif 
          cQuery += cFldName 
          cQuery2 += c2sql(&cFldName) 
       next 
       cQuery += cQuery2 +  " )" 
  
    else 
       nStart := if(nCol==1,2,1) 
       cFldName := aDbStru[nCol, 1] 
       cQuery := "UPDATE "+cTable+" SET " + cFldName + " = " + c2sql(&cFldName) + " WHERE " 
       for i := 1 to len(aDbStru) 
          if i != nCol 
             cFldName := aDbStru[i, 1] 
             if i > nStart 
                cQuery += " AND " 
             endif 
             cQuery += cFldName + " = "+  c2sql(&cFldName) 
          endif 
       next 
       cQuery += " " 
    endif 
  
    If ! RDDINFO(RDDI_EXECUTE, cQuery ) 
       MsgStop("Can't update record in table "+cTable+" !", "Error") 
       Return .F. 
    EndIf 
  
 Return .T. 
  
 *--------------------------------------------------------* 
 Function SqlDelete(cTable ) 
 *--------------------------------------------------------* 
    Local cQuery, i, cFldName 
    Local aDbStru := dbstruct() 
  
    cQuery := "DELETE FROM "+cTable+ " WHERE " 
    for i := 1 to len(aDbStru) 
       cFldName := aDbStru[i, 1] 
       if i > 1 
          cQuery += " AND " 
       endif 
       cQuery += cFldName + " = "+  c2sql(&cFldName) 
    next 
    cQuery += " " 
  
    If ! RDDINFO(RDDI_EXECUTE, cQuery ) 
       MsgStop("Can't Delete record in table "+cTable+" !", "Error") 
       Return .F. 
    EndIf 
  
 Return .T. 
  
 *--------------------------------------------------------* 
 FUNCTION CreatefromDBF(cSbase, cDBase  ) 
 *--------------------------------------------------------* 
    LOCAL cHeader, cQuery := "", NrReg:= 0, cTable := cFileNoExt(cDBase) 
    LOCAL lCreateIfNotExist := .t., cOldRdd, db, lRet := .f. 
  
    IF !FILE( hb_dirBase()+cDBase+".dbf" ) 
       RETURN .f. 
    endif 
    cTable := cDBase 
    db := sqlite3_open( cSbase, lCreateIfNotExist ) 
    IF !DB_IS_OPEN( db ) 
       MsgStop( "Can't open/create " + cSbase, "Error" ) 
       Return .f. 
    endif 
    sqlite3_exec( db, "PRAGMA auto_vacuum=0" ) 
  
    * Create table 
    IF ( RDDSETDEFAULT() != "DBFNTX" ) 
       cOldRdd := RDDSETDEFAULT( "DBFNTX" ) 
    ENDIF 
  
    DBUSEAREA(.T.,'DBFNTX',cTable) 
    cHeader := QueryCrea(cTable,0) 
    IF sqlite3_exec( db, cHeader ) == SQLITE_OK 
       go top 
       Do While !Eof() 
          cQuery += QueryCrea(cTable,1) 
          NrReg++ 
          skip 
       EndDo 
       use 
  
       IF sqlite3_exec( db, ; 
          "BEGIN TRANSACTION;" + ; 
          cQuery + ; 
          "COMMIT;" ) == SQLITE_OK 
  
          MsgInfo( AllTrim(Str(NrReg))+" records added to table "+cTable, "Result" ) 
          lRet := .t. 
       ENDIF 
  
    ENDIF 
    RDDSETDEFAULT( cOldRdd ) 
  
 RETURN .t.