Cobol Foro - [Duda] Diferencia resultados consulta en MariaDB y PWC9

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

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Duda] Diferencia resultados consulta en MariaDB y PWC9 (https://www.cobolforo.es/showthread.php?t=1773)

Bueno pues, desisto de seguir, como tampoco tengo más ideas del resto de foreros, no voy a perder más tiempo, una desilusión, porque esperaba algo más de otros foreros, (los que me habéis aportado alguna idea o sugerencia, mil gracias, como siempre), continuo con SQLEmbebido y ya veremos por dónde sale la cosa.

Gracias por vuestro tiempo

@Josber, has probado el OCX de @Nitzer? A ver se asoma y nos da unos ejemplos para el cursor y estas cosas....

@Kuk, sí, sí que lo he probado y para ese OCX es para el que pedía ayuda sobre todo pero, no he tenido suerte, si miras las últimas entradas de éste tema, verás cuáles son los principales problemas que he tenido con ese OCX.

Un salu2.-

mysql mariadb EXTMYSQL ocx

Hola @Josber

Me ha surgido la necesidad ahora de tener que conectarme a un servidor apache , con la version Mysql MariaDB
estuve probando Ado de Micro (via odbc) , probe con la EXTMYSQL (directo usando como conector libmysql.dll) que paso @Joseg, con resultados positivos en ambos casos.

Y tambien probe con la ocx que compartio @Nitzer , con buenos resultados tambien te pongo dos ejemplos todo via odbc
Version PowerCobol 5.0

*> Lectura de Cantidad de Registros en la tabla

Código COBOL:

 WORKING-STORAGE SECTION.
 01 RETORNO        PIC S9(9) COMP-5.
 01 sql-comando    pic x(8192).
 01 BD-EMPRESA. 
    02 BDIDUSR    PIC 9(09). 
    02 BDNOMBRE   PIC X(55). 
    02 BDCLAVE    PIC X(255). 
 01 Cantidad-Registros PIC S9(9) COMP-5.
 PROCEDURE       DIVISION.
 
     move spaces to sql-comando.
     STRING 'DRIVER={MariaDB ODBC 3.2 Driver};'
            'SERVER=xxxx.com.ar;'
            'Port=3306;'
            'DATABASE=xxxxxxxxxxxxxxx;'
            'UID=xxxxx;'
            'PWD=xxxxxxxxxx;' 
             DELIMITED BY SIZE INTO sql-comando
     END-STRING.
     *> conecta 
     MOVE sql-comando TO "ConnectionString" OF SqlServer1.     
     invoke SqlServer1 "Connect" returning RETORNO. 
     display "    RETORNO db:" , RETORNO.
 
     *> select
     move spaces to sql-comando.
     move "select count(id_empresa) from empresas" to sql-comando.
     INVOKE SqlServer1 "OpenQuery" USING sql-comando RETURNING RETORNO
     display "    RETORNO Execute:" , RETORNO.
     
     
     *> record
     INVOKE SqlServer1 "GETVALUE" USING 1 RETURNING Cantidad-Registros
     DISPLAY "CANTIDAD DE REGISTROS:" , Cantidad-Registros 
     *> desconecto
     INVOKE SqlServer1 "Disconnect" RETURNING RETORNO.

*> Select simple

Código COBOL:

WORKING-STORAGE SECTION.
 01 RETORNO        PIC S9(9) COMP-5.
 01 sql-comando    pic x(8192).
 01 BD-EMPRESA. 
    02 BDIDUSR    PIC 9(09). 
    02 BDNOMBRE   PIC X(55). 
    02 BDCLAVE    PIC X(255). 
 01 Cantidad-Registros PIC S9(9) COMP-5.
 PROCEDURE       DIVISION.
 
     move spaces to sql-comando.
     STRING 'DRIVER={MariaDB ODBC 3.2 Driver};'
            'SERVER=xxxx.com.ar;'
            'Port=3306;'
            'DATABASE=xxxxxxxxxxxxxxx;'
            'UID=xxxxx;'
            'PWD=xxxxxxxxxx;' 
             DELIMITED BY SIZE INTO sql-comando
     END-STRING.
     *> conecta 
     MOVE sql-comando TO "ConnectionString" OF SqlServer1.     
     invoke SqlServer1 "Connect" returning RETORNO. 
     display "    RETORNO db:" , RETORNO.
 
     *> select
     move spaces to sql-comando.
     move "select Id_empresa , Nombre_empresa , Password_empresa  from empresas" to sql-comando.
     INVOKE SqlServer1 "OpenQuery" USING sql-comando RETURNING RETORNO
     display "    RETORNO Execute:" , RETORNO. *> si es distinto de zeros o -1 error en la select
     *> loop record     
     PERFORM WITH NO LIMIT
 
                 INVOKE SqlServer1 "NEXT" RETURNING RETORNO
                 IF ISEOF OF SqlServer1 = 1 EXIT PERFORM END-IF
     INVOKE SqlServer1 "GETVALUE" USING 1 RETURNING BDIDUSR
     DISPLAY "EMPRESA ID:" , BDIDUSR
     INVOKE SqlServer1 "GETVALUE" USING 2 RETURNING BDNOMBRE
     DISPLAY "NOMBRE:" , BDNOMBRE
     INVOKE SqlServer1 "GETVALUE" USING 3 RETURNING BDCLAVE
     DISPLAY "CLAVE:" , BDCLAVE
     
     END-PERFORM.
     
      
     *> desconecto
     INVOKE SqlServer1 "Disconnect" RETURNING RETORNO.

Saludos ..
Voy a seguir investigando y probando las tres opciones.

Ocx para SQL nativo

Probando con el ocx de nitzer , agrego como hacer un Insert y Update

*Update*

Código COBOL:

*> Update
     move spaces to sql-comando.
     MOVE "empresa de prueba nro 23" TO Q-Nombre.
     MOVE "dirección con ñÑ y acentos"       TO Q-Dire.
 
 
 
          STRING 
            "UPDATE  empresas SET "  
 
            "Nombre_empresa = "       
            "'"  
            Q-Nombre           
            "'"            
            ","                      
            "Direccion_empresa = "      
            "'"
            Q-Dire
            "'"
            " WHERE id_empresa = 23;"    
            delimited by size
            INTO  sql-comando
         END-STRING.    
     DISPLAY "sql-comando : " , sql-comando(1:400).     
     INVOKE SqlServer1 "Execute" USING sql-comando RETURNING RETORNO.
     display "    RETORNO Execute UPDATE:" , RETORNO. *> si es 0 ERROR , SI ES CORRECTO 1 
     *> si hay error en sql-comando dispara el evento con POW-RETCODE = -1 , en POW-RECORD = mensaje de error
     *> 
     
     if RETORNO = 1 THEN 
        display "UPDATE correcto !!" 
     else
        display "UPDATE error !!" 
     end-if.

*Insert*

Código COBOL:

*------------         
*> Insert
 
         MOVE SPACES TO sql-comando. 
         MOVE "EMPRESADA MODELO OCX SQL 2232"   TO Q-Nombre.
         MOVE "San Martin 4242"                 TO Q-Dire.
 
          STRING 
            "INSERT INTO empresas "  
            "("                      
            "Nombre_empresa"         
            ","                      
            "Direccion_empresa"      
 
            ")"                      
            " VALUES " 
            
            "(" 
            
            QueryEmpresa
 
             ")" 
             ';' delimited by size                           
                 INTO sql-comando
         END-STRING.
     DISPLAY "sql-comando : " , sql-comando(1:400).
     *> execute insert
     INVOKE SqlServer1 "Execute" USING sql-comando RETURNING RETORNO.
     display "    RETORNO Execute INSERT:" , RETORNO. *> si es 0 ERROR , SI ES 1 CORRECTO
     *> si hay error en sql-comando dispara el evento con POW-RETCODE = -1 , en POW-RECORD = mensaje de error
     *> 
 
     if RETORNO = 1 THEN 
        display "insert correcto !!" 
     else
        display "insert error !!" 
     end-if.

Saludos...

Gracias @fastpho pero, entre otras cosas, me sigue faltando, por ejemplo, el saber porqué ha dado fallo, (si es porque hay un fallo en la construcción de la sentencia, si es porque no hay más registros, etc.), es el valor que se devuelve automáticamente en la variable SQLSTATE cuando es SQL Embebido

Un salu2.-

Ocx para SQL nativo

@Josber lo que podido comprobar como dice en el manual , es que en el Evento “DiagnoticRecord” se dispara si hay algún error en las sentencias
Por Ejemplo deliberadamente puse una dato mal en la propiedad “ConnectionString” me trajo:

Código COBOL:

POW-RETCODE = - 1 Error POW-RETCODE = 0 Ok
POW-RECORD = No se encuentra el  nombre origen de los datos ….. (muestra exactamente cual fue el error detalladamente)
RETORNO = ZEROS
 si está mal armada muestra un “string” con los errores y -1

Con respecto al RETORNO solamente para los métodos ,por las pruebas que hice , tiene 3 valores 0 , -1 , 1

Código COBOL:

RETORNO = 0  no hizo ningún cambio para “UPDATE” por ejemplo
RETORNO = 1 realizo el cambio 
RETORNO = -1 Error

Por ahi @Fito , pudo avanzar en algo y nos da alguna otra apreciación
Voy a seguir probando

Saludos...

Hola Gente:

Yo estoy usando el ocx de Andrés para hacer insert en unas tablas Sql Server. Anda a la perfección.

En el evento "DiagnosticRecord" grabo un log con los errores.

El Returning del invoke donde llamamos a los métodos del objeto, tengo entendido que revuelve error si el método no se puede realizar. En cambio en el "DiagnosticRecord" devuelve el error de la instruccion que enviamos.

Por ejemplo su realizamos un "Execute" con un Insert adentro. El Returning devuelve el error del método Execute y el evento DiagnosticRecord el error del Insert.

Saludos...

Fito...