Cobol Foro - [PowerCOBOL] SQlite3 con PowerCobol

Cobol Foro (https://www.cobolforo.es/index.php)

- Cocina PowerCOBOL (https://www.cobolforo.es/forumdisplay.php?f=24)

- - [PowerCOBOL] SQlite3 con PowerCobol (https://www.cobolforo.es/showthread.php?t=1642)

Cita:

Citación del post de Joseg (Mensaje 8901)

Hola,

Como implementar un loop en PowerCobol?

Ejemplo de lista de todos los registros de "MyTable":

Código SQL:

SELECT * FROM MyTable

Creo que tienes que usar "sqlite3_prepare" y "sqlite3_step", o implementar una "devolución de llamada" (callback),

Código COBOL:

01 CALLBACK USAGE PROCEDURE-POINTER.

... pero no lo estoy consiguiendo.

Gracias,
Jose

A ver, yo con SQLLite, no lo sé, porque no lo he usado nunca pero, con SQL_Embebido o SQL normal, lo que se hace para hacer un bucle es, lo primero, crear un cursor y lo segundo es un FETCH a ese cursor, hasta que SQLSTATE, sea "02000", que indica un "fin_de_fichero", por lo que me supongo que en este caso, será muy parecido, es que otra manera de hacerlo, me parece rara

En PWC, con SQL_Embebido, sería algo así:

Código COBOL:

EXEC SQL
        DECLARE  cursor_consulta CURSOR FOR
                       SELECT * FROM CLIENTES
                                   WHERE .....
                                   ORDER BY .....
END-EXEC.
 
INITIALIZE SQLSTATE.
 
EXEC SQL
         OPEN cursor_consulta
END-EXEC.
 
PERFORM WITH NO LIMIT
               EXEC SQL
                       FETCH cursor_consulta
                                 INTO .....
               END-EXEC
               IF SQLSTATE = "02000"
                   EXEC SQL
                            CLOSE cursor_consulta
                   END-EXEC
                   EXIT PERFORM
               END-IF
END-PERFORM.

por lo menos, esa es la manera con la que yo hago un bucle. Lo puedes hacer con un PREPARE también pero, es más lioso, y se usa si tienes que montar la consulta armando un STRING, pero ese es otro tema.

Un salu2.-

Cita:

Citación del post de fastpho (Mensaje 8905)

@Joseg
La funcion sqlite3_step espera el valor por value no por reference seria asi :

Código COBOL:

working-storage.
01 stmt-handle   PIC 9(9) COMP-5.
01 redefines stmt-handle.
    05  pStmt usage pointer.

Código COBOL:

     call "sqlite3_step"  & X"00" WITH  STDCALL  LINKAGE
           using  by value stmt-handle
           returning BD-STATUS
     end-call

Saludos...

Ok, la función "sqlite3_step" ya está bien.
La función "sqlite3_column_count" también está bien.

La siguiente función siempre devuelve NULL (5)

Código COBOL:

     move 1 to wnum-columns
     call "sqlite3_column_type"  & X"00"  WITH  STDCALL  LINKAGE
                           using 
                                   by value stmt-handle
                                   by value wnum-columns
                                   returning BD-COLUMNA-TIPO
     end-call

¿Puede publicar una parte del código que se repite desde una tabla hasta que los datos se puedan consultar en PowerCobol?

Gracias por la ayuda.
Jose

Hola @Joseg como recorrer la tabla para saber que tipo valor se puede almacenar por columnas

Código COBOL:

*-------------------------------------------------------------------------       
*>STEP 
*-------------------------------------------------------------------------
     DISPLAY "------------------".
     DISPLAY "sqlite3_step      ".
  
     PERFORM DB-STEP.
     evaluate bd-status
     when  SQLITE_ROW  
        perform muestro-cabecera
     when  SQLITE_DONE
        display "termino"
        continue
     when other
        display "error" 
        exit program
     end-evaluate.
*-------------------------------------------------------------------------     
*>FINALIZE
*-------------------------------------------------------------------------
     DISPLAY "------------------".
     DISPLAY "sqlite3_finalize".
 
     MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_finalize"      TO FUNCIONES-SQLITE3-LIB.    
     
     call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
              USING        BY VALUE   stmt-handle
                           returning  BD-STATUS
 
     end-call.          
    
     IF BD-STATUS NOT = SQLITE_OK then
          DISPLAY "ERROR "
     
     ELSE
          DISPLAY "OK"
     END-IF.
*-------------------------------------------------------------------------     
*>CLOSE_V2
*-------------------------------------------------------------------------
     DISPLAY "------------------".
     DISPLAY "sqlite3_close_v2".
 
     MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_close_v2"      TO FUNCIONES-SQLITE3-LIB.    
     
     call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
              USING        BY VALUE   BD-HANDLE
                           returning  BD-STATUS
 
     end-call.          
    
     IF BD-STATUS NOT = SQLITE_OK then
             CALL "BD-ERROR"
          EXIT PROGRAM
     ELSE
          DISPLAY "OK"
     END-IF.
          
     
     EXIT PROGRAM.
 
*-------------------------------------------------------------------------
 MUESTRO-CABECERA.
*------------------------------------------------------------------------- 
 
     PERFORM  DB-CANTIDAD-COLUMNAS.
     
     MOVE ZEROS TO BD-COLUMNA-NUMERO.
     PERFORM VARYING BD-COLUMNA-NUMERO  FROM 0 BY 1  UNTIL BD-COLUMNA-NUMERO = BD-COLUMNA-CANTIDAD 
     *>sqlite3_column_type
*          DISPLAY "--------------------"
*          DISPLAY "sqlite3_column_type"
 
           MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB
           MOVE "sqlite3_column_type"   TO FUNCIONES-SQLITE3-LIB    
 
           call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
             USING        BY VALUE   stmt-handle
                          BY VALUE   BD-COLUMNA-NUMERO *> COMIENZA DE 0 LAS COLUMNAS HASTA sqlite3_column_count - 1
                          returning  BD-COLUMNA-TIPO   *> RETORNA EL TIPO DE COLUMNA
           end-call          
 
          DISPLAY "--------------------"
          DISPLAY " COL NRO : " , BD-COLUMNA-NUMERO  , " es  COLUMNA-TIPO  " , BD-COLUMNA-TIPO   
          DISPLAY "--------------------"
     END-PERFORM.
 
*-------------------------------------------------------------------------
 DB-CANTIDAD-COLUMNAS.
*------------------------------------------------------------------------- 
 *>sqlite3_column_count
*    DISPLAY "--------------------".
*    DISPLAY "sqlite3_column_count".
 
     MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_column_count"  TO FUNCIONES-SQLITE3-LIB.    
 
     call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
              USING        BY VALUE   stmt-handle
                           returning  BD-COLUMNA-CANTIDAD
 
     end-call.          
 
*     DISPLAY "BD-COLUMNA-CANTIDAD : " , BD-COLUMNA-CANTIDAD.
 
*-------------------------------------------------------------------------
 DB-STEP.
*------------------------------------------------------------------------- 
 *>sqlite3_step
*    DISPLAY "--------------------".
*    DISPLAY "sqlite3_step".
 
     MOVE SPACES TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_step"          TO FUNCIONES-SQLITE3-LIB.    
 
     call     FUNCIONES-SQLITE3-LIB  WITH STDCALL LINKAGE 
              USING        BY VALUE   stmt-handle 
                           returning  BD-STATUS
 
     end-call.      
*    DISPLAY BD-STATUS.

Saludos ...

Cita:

Citación del post de fastpho (Mensaje 8910)

Hola @Joseg como recorrer la tabla para saber que tipo valor se puede almacenar por columnas

Código COBOL:

*-------------------------------------------------------------------------       
*>STEP 
*-------------------------------------------------------------------------
     DISPLAY "------------------".
     DISPLAY "sqlite3_step      ".
  
     PERFORM DB-STEP.
     evaluate bd-status
     when  SQLITE_ROW  
        perform muestro-cabecera
     when  SQLITE_DONE
        display "termino"
        continue
     when other
        display "error" 
        exit program
     end-evaluate.
*-------------------------------------------------------------------------     
*>FINALIZE
*-------------------------------------------------------------------------
     DISPLAY "------------------".
     DISPLAY "sqlite3_finalize".
 
     MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_finalize"      TO FUNCIONES-SQLITE3-LIB.    
     
     call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
              USING        BY VALUE   stmt-handle
                           returning  BD-STATUS
 
     end-call.          
    
     IF BD-STATUS NOT = SQLITE_OK then
          DISPLAY "ERROR "
     
     ELSE
          DISPLAY "OK"
     END-IF.
*-------------------------------------------------------------------------     
*>CLOSE_V2
*-------------------------------------------------------------------------
     DISPLAY "------------------".
     DISPLAY "sqlite3_close_v2".
 
     MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_close_v2"      TO FUNCIONES-SQLITE3-LIB.    
     
     call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
              USING        BY VALUE   BD-HANDLE
                           returning  BD-STATUS
 
     end-call.          
    
     IF BD-STATUS NOT = SQLITE_OK then
             CALL "BD-ERROR"
          EXIT PROGRAM
     ELSE
          DISPLAY "OK"
     END-IF.
          
     
     EXIT PROGRAM.
 
*-------------------------------------------------------------------------
 MUESTRO-CABECERA.
*------------------------------------------------------------------------- 
 
     PERFORM  DB-CANTIDAD-COLUMNAS.
     
     MOVE ZEROS TO BD-COLUMNA-NUMERO.
     PERFORM VARYING BD-COLUMNA-NUMERO  FROM 0 BY 1  UNTIL BD-COLUMNA-NUMERO = BD-COLUMNA-CANTIDAD 
     *>sqlite3_column_type
*          DISPLAY "--------------------"
*          DISPLAY "sqlite3_column_type"
 
           MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB
           MOVE "sqlite3_column_type"   TO FUNCIONES-SQLITE3-LIB    
 
           call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
             USING        BY VALUE   stmt-handle
                          BY VALUE   BD-COLUMNA-NUMERO *> COMIENZA DE 0 LAS COLUMNAS HASTA sqlite3_column_count - 1
                          returning  BD-COLUMNA-TIPO   *> RETORNA EL TIPO DE COLUMNA
           end-call          
 
          DISPLAY "--------------------"
          DISPLAY " COL NRO : " , BD-COLUMNA-NUMERO  , " es  COLUMNA-TIPO  " , BD-COLUMNA-TIPO   
          DISPLAY "--------------------"
     END-PERFORM.
 
*-------------------------------------------------------------------------
 DB-CANTIDAD-COLUMNAS.
*------------------------------------------------------------------------- 
 *>sqlite3_column_count
*    DISPLAY "--------------------".
*    DISPLAY "sqlite3_column_count".
 
     MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_column_count"  TO FUNCIONES-SQLITE3-LIB.    
 
     call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
              USING        BY VALUE   stmt-handle
                           returning  BD-COLUMNA-CANTIDAD
 
     end-call.          
 
*     DISPLAY "BD-COLUMNA-CANTIDAD : " , BD-COLUMNA-CANTIDAD.
 
*-------------------------------------------------------------------------
 DB-STEP.
*------------------------------------------------------------------------- 
 *>sqlite3_step
*    DISPLAY "--------------------".
*    DISPLAY "sqlite3_step".
 
     MOVE SPACES TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_step"          TO FUNCIONES-SQLITE3-LIB.    
 
     call     FUNCIONES-SQLITE3-LIB  WITH STDCALL LINKAGE 
              USING        BY VALUE   stmt-handle 
                           returning  BD-STATUS
 
     end-call.      
*    DISPLAY BD-STATUS.

Saludos ...

Muchas gracias. Tu ayuda ha sido muy importante.
Mi ultima duda es como convertir un puntero en texto o una fecha o un campo numerico o incluso un "BLOB",
ser consultable en powercobol.

ejemplo:

Código COBOL:

          evaluate  BD-COLUMNA-TIPO
             when 3
                call "sqlite3_column_text" & X"00" WITH  STDCALL  LINKAGE
                            using
                                 by value stmt-handle,
                                 by value BD-COLUMNA-NUMERO
                                 returning TEXT-POINTER
                end-call
          end-evaluate

Saludos
José

Hola @Joseg con respecto a los tipos de datos
yo estoy trabajando en Android(B4A) con:

Código COBOL:

      88  SQL_INTEGER         VALUE 1.  
      88  SQL-REAL               VALUE 2.   
      88  SQL_TEXT              VALUE 3.

*Tema: Tipo dato Entero*

Para pwcobol es un PIC 9(1...13) dependiendo el uso.

Código COBOL:

evaluate  BD-COLUMNA-TIPO
             when 1
                perform DB-COLUMNA-INT
 end-evaluate 
 
 DB-COLUMNA-INT.
*>Columna tipo Integer
     MOVE SPACES               TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_column_int" TO FUNCIONES-SQLITE3-LIB.
     call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
             USING        BY VALUE   BD-HANDLE-STMT
                          BY VALUE   BD-COLUMNA-NUMERO
                          returning  BD-INT
     end-call.          
     *>DEVUELVE BD-INT.

*Tema : Tipo de dato Fecha*
en Android represento las fechas en ticks(type Long)

Código VB:

DateTime.DateFormat="dd-MM-yyyy"
Dim SomeTime As Long
SomeTime = DateTime.DateParse("16/05/2023")

Para sqlite es un SQL_INTEGER (SomeTime)
Para pwcobol la paso a PIC X(13) (SomeTime)

Código COBOL:

LINKAGE SECTION.
 01  sqlite3-value-text     PIC X(256).
 
 evaluate  BD-COLUMNA-TIPO
             when 3 *>Date Ticks
               perform DB-COLUMNA-TEXT
 end-evaluate 
 
 DB-COLUMNA-TEXT.
     *>Columna tipo TEXT
     MOVE SPACES                TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_column_text" TO FUNCIONES-SQLITE3-LIB.
     MOVE SPACES          TO BD-TEXT.
     call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
             USING        BY VALUE   BD-HANDLE-STMT
                          BY VALUE   BD-COLUMNA-NUMERO
                          returning  BD-TEXT-POINTER
     end-call.          
     SET ADDRESS OF sqlite3-value-text TO BD-TEXT-POINTER.
     STRING
            sqlite3-value-text delimited by low-value
            into BD-TEXT
     END-STRING.
     SET  BD-TEXT-POINTER TO NULL.
     *>DEVUELVE BD-TEXT.

*Tema : Tipo de dato Real*
Tambien lo trato con sqlite3_column_text y lo muevo a

Código COBOL:

 01 importe-text   pic X(13)

y luego lo convierto a numerico

Código COBOL:

    evaluate  BD-COLUMNA-TIPO
             when 2 *>Real
               perform DB-COLUMNA-TEXT
      end-evaluate

*Tema : Tipo de dato Blob*

No lo he implementado en android
Pero creo que lo mejor es guardar la direccion de la
imagen fisica del archivo de la memoria del celular o
mobil y no la imagen como tal.

*Tema : Tipo de dato Text*

simplemente como text PIC X(1...256)

Espero que te ayude y se entienda.
Saludos...

Gracias por la ayuda. Todo está funcionando ahora. :bat::bat::bat:

Abrazo.
José

El problema de todo esto, es la cantidad de código y lo poco explícito que parece para acceder a los datos.
YO ya os dije que utilizo un activex que me hicieron para acceder y ejecutar y es tremendamente sencillo y claro.

Llevo muchos años trabajando practicamente solo con bases de datos y estoy encantado :)

Cita:

Citación del post de Nitzer (Mensaje 8914)

No encontré ningún OCX con posibilidad de conectarse a la Base de Datos (pero sería interesante)..
La idea de acceder a SQLITE directamente, sin ODBC, es facilitar la instalación de la aplicación por parte de "no informáticos".

Cita:

Citación del post de Joseg (Mensaje 8915)

@Joseg, no se que pasó en mi anterior mensaje, se me cortó toda la parte final del mismo. Se ha quedado un texto que parece que esté regañando ajajajajaj

En algún mensaje expliqué como empecé con las bases de datos en Power.
Ya sabemos que power tiene varios controles para ello, el primero DbAccess, es por donde empecé para ir comprendiendo , pero pronto te das cuenta que no es lo que buscas.
Luego continué con sql embebido y la configuración de cobol85, que tampoco me terminaba de convencer, aunque hacía su función.
Lo siguiente y con lo que mas he estado ha sido utilizado el control ADO, con ese casi todo lo puedes hacer, la pena es que no hay mucha información enPower, pero a fin de cuentas es ADO, y de ado hay muuuuucha información en internet, empecé a ver todos los métodos, funciones, etc ... y aplicarlas en power, unas iban bien y otras no , me quedé con las que funcionaban y así he estado varios años completamente satisfecho.

Pero mi interés por la sql seguía creciendo y necesitaba aplicar consultas mas grandes, procedimientos almacenados, funciones, etc ... en ese momento empecé a buscar por internet, pero no encontré gran cosa.
Pero conocía a una empresa que tenía varios ocx y con la que ya había contactado , la empresa es FathSowtware, que por cierto hace unos meses cerró y ya no hay manera de encontrar sus productos, pero Admir que es quien llevaba la empresa, lo había conocido e intercamabiado correos, así que le dije si me podía hacer un activex para acceder nativamente a sqlserver y .... tras 27 prototipos y 200 dolares , conseguí lo que buscaba :)

Desde entonces todo ha cambiado.
Si queréis le puedo preguntar si estaría dispuesto a venderlo o regalarlo o lo que sea, es un ocx sencilla,se registra y se distribuye y por ahora y tras varios años, todo perfecto.

Y siento si el mensaje anterior se malinterpretó, admiro el trabajo de cada uno de vosotros.

Todo bien.
Estamos aquí para ayudarnos unos a otros.
Este OCX parece interesante, pero comprar un producto aparentemente descatalogado no sería buena idea. Como producto gratuito/de código abierto, me gustaría probarlo.

Saludos