FiveTech Software tech support forums

Code: Select all

 IF !HB_FileExists("DataSystem\Sucursales.db")
    pDB:= sqlite3_open("DataSystem\Sucursales.db", .T. )
    IF Empty( pDB )
       MessageBox( wvw_GetWindowHandle(), ;
                   "No es posible crear la base de datos de listado de Empresas", ;
                   "Sistema para Restaurantes..", MB_OK + MB_ICONALERT + MB_SYSTEMMODAL )
       RETURN .F.
    ENDIF
    cSQLQuery:= "CREATE TABLE empresas(id_empresa VARCHAR(10),nombre_empresa VARCHAR(35),ads_fileini VARCHAR(10),bodega VARCHAR(2) )"
    IF sqlite3_exec( pDB, cSQLQuery ) != SQLITE_OK
       MessageBox( wvw_GetWindowHandle(), ;
                   "No es posible cargar la tabla de listado de Empresas", ;
                   "Sistema para Restaurantes..", MB_OK + MB_ICONALERT + MB_SYSTEMMODAL )
       pDB := NIL // close database
       RETURN .F.
    ENDIF
    cSQLQuery:= "INSERT INTO empresas(id_empresa,nombre_empresa,ads_fileini,bodega) VALUES(:id_empresa,:nombre_empresa,:ads_fileini,:bodega)"
    stmt := sqlite3_prepare( pDB, cSQLQuery)
    IF Empty( stmt )
       MessageBox( wvw_GetWindowHandle(), ;
                   "Can't prepare statement :", ;
                   "Sistema para Restaurantes..", MB_OK + MB_ICONALERT + MB_SYSTEMMODAL )
       pDB := NIL
       RETURN NIL
    ENDIF
    aEmpresas:= { {"CDIS0", "CENTRO PRODUCCION PONIENTE", "SETTINGS", "99" }, ;
                  {"SUC00", "GRINGOS CHICKEN PONIENTE", "SERVER3", "00" }, ;
                  {"SUC01", "GRINGOS CHICKEN CATEDRAL", "SERVER5","01" }, ;
                  {"SUC02", "GRINGOS CHICKEN ORIENTE", "SERVER4","02" }, ;
                  {"SUC03", "GRINGOS CHICKEN TERAN", "SERVER6", "03" }, ;
                  {"SUC04", "EL POLLO ASADITO", "SERVER1","04" } }
    FOR EACH aSucs IN aEmpresas
        sqlite3_reset( stmt )
        sqlite3_bind_text( stmt, 1, aSucs[1] )
        sqlite3_bind_text( stmt, 2, aSucs[2] )
        sqlite3_bind_text( stmt, 3, aSucs[3] )
        sqlite3_bind_text( stmt, 4, aSucs[4] )
        sqlite3_step( stmt )
    NEXT
    sqlite3_clear_bindings( stmt )
    sqlite3_finalize( stmt )
 ELSE
    pDB:= sqlite3_open("DataSystem\Sucursales.db", .F. )
    IF Empty( pDB )
       MessageBox( wvw_GetWindowHandle(), ;
                   "No es posible crear la base de datos de listado de Empresas", ;
                   "Sistema para Restaurantes..", MB_OK + MB_ICONALERT + MB_SYSTEMMODAL )
       RETURN .F.
    ENDIF
 ENDIF
 nJ:= 0
 stmt:= sqlite3_prepare( pDB, "SELECT id_empresa,nombre_empresa,ads_fileini,bodega FROM empresas" )
 DO WHILE sqlite3_step( stmt ) == SQLITE_ROW
    ++nJ
 ENDDO
 aEmpresas:= Array(nJ,4)
 nJ:= 0
 DO WHILE sqlite3_step( stmt ) == SQLITE_ROW
    nCCount := sqlite3_column_count( stmt )
    ++nJ
    IF nCCount > 0
       FOR nI := 1 TO nCCount
          ncType := sqlite3_column_type( stmt, nI )
          SWITCH ncType
          CASE SQLITE_INTEGER
             EXIT
          CASE SQLITE_NULL
             EXIT
          CASE SQLITE_TEXT
            IF sqlite3_column_name(stmt,nI)="id_empresa"
               aEmpresas[nJ,1]:= sqlite3_column_text( stmt, nI )
            ENDIF
            IF sqlite3_column_name(stmt,nI)="nombre_empresa"
               aEmpresas[nJ,2]:= sqlite3_column_text( stmt, nI )
            ENDIF
            IF sqlite3_column_name(stmt,nI)="ads_fileini"
               aEmpresas[nJ,3]:= sqlite3_column_text( stmt, nI )
            ENDIF
            IF sqlite3_column_name(stmt,nI)="bodega"
               aEmpresas[nJ,4]:= sqlite3_column_text( stmt, nI )
            ENDIF
            EXIT
         ENDSWITCH
       NEXT
    ENDIF
 ENDDO
 sqlite3_clear_bindings( stmt )
 sqlite3_finalize( stmt )
 sqlite3_sleep(100)
 pDB:= NIL

 

Code: Select all

#include "fivewin.ch"

function Main()

   local cdb := "testsqlite3.db"
   local ocn, ors, cSql

   oCn := FW_OpenAdoConnection( cdb )
   if oCn == nil
      ? "failed"
      return nil
   endif

   FW_AdoImportFromDBF( ocn, "c:\fwh\samples\customer.dbf" )

   oRs   := FW_OpenRecordSet( oCn, "customer" )

   XBROWSER oRs FASTEDIT TITLE "SQLITE3 DATABASE TABLE"

   oRs:Close()
   ocn:close()

return nil