Page 1 of 3

Quiero comenzar con sqlite

Posted: Wed Jul 08, 2020 1:55 am
by JoseAlvarez
Saludos a todos los amigos del foro.

Quiero usar sqlite en mis nuevos sistemas ya que el proceso de instalacion de mysql en los equipos de usuarios hace complicada la instalacion final del software.

Alguien tiene por alli algun "abc" con el cual se deba comenzar?

Uso fivew 17.0 , xharbour y make.

Anticipadas gracias por la ayuda que puedan aportarme.

Re: Quiero comenzar con sqlite

Posted: Wed Jul 08, 2020 10:43 pm
by gabo
Que tal Jose te pongo un trozo de codigo.. Espero y te pueda dar una idea y puedas comenzar
Saludos!

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

 

Re: Quiero comenzar con sqlite

Posted: Mon Jul 27, 2020 11:39 pm
by Marcelo Roggeri
Hola Gabo buenas noches, yo tambien quiero hacer unas pruebas con sqlite,
me podrias indicar de donde saco o incluyo las funciones que usas,
ejemplo: sqlite3_open("DataSystem\Sucursales.db", .T. ) o sqlite3_prepare(
desde ya muchas gracias.
Un saludo Marcelo de Argentina

Re: Quiero comenzar con sqlite

Posted: Tue Jul 28, 2020 12:00 pm
by hmpaquito
Mi abc es que uses Db Browser for Sqlite como gestor de bb.dd. Sqlite.
El resto, via programa, seguro que hay ejemplos en el foro, además de los que te han puesto los compañeros

Re: Quiero comenzar con sqlite

Posted: Tue Jul 28, 2020 3:22 pm
by gabo
Hola marcelo
Son funciones de la contrib harbour

Re: Quiero comenzar con sqlite

Posted: Tue Jul 28, 2020 3:38 pm
by Marcelo Roggeri
Muchas gracias Gabo. Saludos

Re: Quiero comenzar con sqlite

Posted: Tue Jul 28, 2020 11:21 pm
by Marcelo Roggeri
Hola Gabo, en contrib de Harbour no encontré ninguna LIB. para usar sqlite3
Me podrias tirar una ayuda mas por favor.
Saludos

Re: Quiero comenzar con sqlite

Posted: Wed Jul 29, 2020 11:23 pm
by Marco Augusto
Sqlite se puede utilizar exactamente de la misma manera que Mysql con ADO

Solo de instala el conector previamente en el equipo
y se hace una conexión al base de datos con la cadena correspondiente
todos los demás comando son iguales

Una cadena de conexión para Mysql es de la siguiente forma:
cCADENA:="Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=datos;User=root; Password=passw;Option=3;"
( para el ejemplo se debe instalar el conector (mysql-connector-odbc-3.51.12-win32.msi)

Para Sqlite
cCADENA:="Driver={SQLite3 ODBC Driver};Database=datos.db;"
( se instala SQLiteodbc.exe se debe conseguir en internet )

luego la conexión

IF !CONECTA(cCADENA)
? "ERROR DE CONEXION"
ELSE
? 'CONEXION OK'
ENDIF


FUNCTION CONECTA(cCADENA)
TRY
oApp:= TOleAuto():new("adodb.connection")
CATCH oERRX
RETURN(.F.)
END

oApp:ConnectionString:= cCADENA
TRY
oApp:Open()
CATCH oERRX
RETURN(.F.)
END
RETURN(.T.)

Re: Quiero comenzar con sqlite

Posted: Thu Jul 30, 2020 7:13 pm
by Marcelo Roggeri
Muchas gracias Marco, muy clarito.
Voy a probar entonces.
Un saludo. Marcelo

Re: Quiero comenzar con sqlite

Posted: Mon Aug 03, 2020 6:12 pm
by gabo
Marcelo
\harbour-core\contrib\hbsqlit3
  • test // Folder
    core.c
    errstr.prg
    hbsqlit3.ch
    hbsqlit3.hbc
    hbsqlit3.hbp
    hbsqlit3.hbx
    hdbc.prg
Saludos!

Re: Quiero comenzar con sqlite

Posted: Mon Aug 03, 2020 8:08 pm
by Marcelo Roggeri
Gracias Gabo un saludo

Re: Quiero comenzar con sqlite

Posted: Tue Aug 04, 2020 1:54 pm
by nageswaragunupudi
If you have installed sqlite odbc driver and want to use ODBC/ADO, FWH makes it EXTREMELY simple to use Sqlite3.
You do not have to know anything other than simple FWH ado functions, which we must be already using for other ADO databaes.

Here is a simple program:

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
 
This program connects to the database if it exists and otherwise creates a new database and connects.
To use sqlite, you do not need to learn anything more than this and you can start working straight from the next minute.

Re: Quiero comenzar con sqlite

Posted: Tue Aug 04, 2020 3:07 pm
by Marcelo Roggeri
Muchas gracias Mr. Rao por su simplicidad para el ejemplo.
Saludos cordiales.
Marcelo

Re: Quiero comenzar con sqlite

Posted: Thu Aug 06, 2020 1:12 pm
by MarioG
nageswaragunupudi wrote:If you have installed sqlite odbc driver and want to use ODBC/ADO, FWH makes it EXTREMELY simple to use Sqlite3.
You do not have to know anything other than simple FWH ado functions, which we must be already using for other ADO databaes.

Here is a simple program:

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
 
This program connects to the database if it exists and otherwise creates a new database and connects.
To use sqlite, you do not need to learn anything more than this and you can start working straight from the next minute.
Buenos dias
No tengo exito al ejecutar este ejemplo
Me podrían escribir un paso a paso hasta la conexión?

En principio lo que hice fue seguir el post de softruz

Debemos de instalar el driver de ODBC:

http://www.ch-werner.de/sqliteodbc/sqliteodbc.exe
Luego; compilar este sample Mr. Rao; pero sin éxito

Siguiendo una página web hice lo alli indicado:
Con estos pasos habremos instalado el driver ODBC para acceso a SQLite. A continuación deberemos añadir un origen de datos ODBC, desde "Inicio" - "Configuración" - "Panel de control" - "Herramientas administrativas" - "Orígenes de datos ODBC", en la ventana de Administrador de orígenes de datos ODBC, en la pestaña "DSN de sistema" pulsaremos "Agregar":


Luego volví a compilar el ej. de Mr. Rao; sin exito.

Que me esta faltando?

Re: Quiero comenzar con sqlite

Posted: Thu Aug 06, 2020 1:20 pm
by cnavarro
Mario, qué error te da?