[Sintaxis] Error sintaxis ADODB Mariadb variables host

[dmosca]

Estimados
Estoy trabajando con powercobol v9

tengo error de sintaxis al transferir desde un "select...into..." información a variables de trabajo.

al ejecutar da error de sintaxis,

este es el codigo

     invoke OBJ-CONNECTION "Open" using NAME-DB.
     invoke COM "CREATE-OBJECT" using PROGID-RECORDSET 
                                returning OBJ-RECORDSET.
     STRING "SELECT Orden, Campo1, Campo2, Campo3 "
            "INTO :WORDEN, :WCAMPO1, :WCAMP2, :WCAMPO3 "            
            "FROM ejemplo WHERE Campo1 = 'manzana' "
            "ORDER BY Campo1 ASC LIMIT 1;"
            LOW-VALUE DELIMITED BY SIZE INTO ADO-OPEN-STRING.
    invoke OBJ-RECORDSET "open" using ADO-OPEN-STRING  *> <======                                                                                       
                                      OBJ-CONNECTION 
                                       WK-0 
                                       WK-1 
                                       WK-0.
     invoke OBJ-RECORDSET "GET-EOF" returning IS-EOF.

da error en la linea resaltada.
si elimino la linea "INTO :WORDEN, :WCAMPO1, :WCAMP2, :WCAMPO3 " funciona ok.

[Josber]

Pues aparte de que te sobra un asterisco en "invoke OBJ-RECORDSET "open" using ADO-OP"EN-STRING", lo veo bien, aunque, y no sé si será el caso, yo no monto la instrucción en ese orden, yo lo hago:

SELECT campos FROM tabla
WHERE condiciones LIMIT n
INTO :campos
ORDER BY campo_orden [ASC]/[DES]

Sé que en algunas cosas MariaDB, es muy puñetero y quizás el orden de la instrucción afecte en algo

Un saludo y suerte

[dmosca]

Josber

estarán mal definidas las variables?

 01 WEJEMPLO.
    02 WORDEN   PIC S999.
    02 WCAMPO1  PIC X(30).
    02 WCAMPO2  PIC S99999.
    02 WCAMPO3  PIC X.

[Josber]

En la WORKING, has definido WCAMPO2, y en el STRING, estás usando WCAMP2, ¿es así o es un fallo al postearlo aquí en el foro?, por lo demás, están bien definidas en la WK, para definir las alfanuméricas, no tienen nada en especial y las numéricas, han de ser con signo siempre y lo has puesto correctamente.

Un saludo.-

[dmosca]

Gracias x la respuesta

creo que el problema está en la definición de las variables, modifique el select y sigue dando error en la variable de trabajo:

adjunto imagen con el codigo

error
B]You have an error in your SQL syntax; check the manual that corresponds to your MariaDB server version for the right syntax to use near ':WORDEN Limit 1' at line

estoy empezando con sql y no por donde seguir buscando...

saludos

[Josber]

dmosca, Tienes mal montado el STRING, la sintáxis correcta sería:

STRING "SELECT ORDEN, CAMPO1, CAMPO2, CAMPO3 FROM EJEMPLO WHERE ORDEN LIKE '%"
           WORDEN
           "%' LIMIT 1" DELIMITED BY SIZE INTO NAME-DB
END-STRING".

y si ya quieres rizar el rizo y que sea más exacta la instrucción, puedes poner:

STRING "SELECT ORDEN, CAMPO1, CAMPO2, CAMPO3 FROM EJEMPLO WHERE ORDEN LIKE CONCAT('%',TRIM("
            WORDEN
            "),'%') LIMIT 1'" DELIMITED BY SIZE INTO NAME-DB
END-STRING.

Referenciar la variable con 2 puntos delante, (:WORDEN), sólo tienes que hacerlo cuando es una consulta directa y has de pasarle una variable al gestor de Sql, cuando lo haces con un STRING, no tienes que poner los dos puntos.

A ver si tienes suerte, y si sigue dando problemas dilo a ver que por donde podemos atacar.

Un saludo.-

[dmosca]

Hola Josber

es una de los tantos intentos que he echo, pero sigo sin poder pasar la info al campo en la working...

si la variable no está definida, el mensaje de error es que no esta la variable definida.

cuando defino la variable en la working y hago referencia a ":variable" me da error de sintaxis

[Josber]

No he utilizado nunca ADODB, siempre Sql embebido, y ahí, cuando defines la variables en la WK, has de definirlas de esta manera:

WORKING-STORAGE SECTION.
            EXEC SQL
                     BEGIN DECLARE SECTION
            END-EXEC.
01  WCAMPO1                      PIC X(50)   IS GLOBAL.
01  WCAMPO2                      PIC S9(5)V999.
            EXEC SQL
                     END DECLARE SECTION
            END-EXEC.

No sé si con ADODB hay que declarar las variables así.

Un saludo.-

[dmosca]

Josber

hice esa prueba, pero sigue con el error

gracias x tu tiempo

[Josber]

❞ Josber hice esa prueba, pero sigue con el error gracias x tu tiempo

No hay de qué, estamos para ayudarnos, aunque no he usado ADODB, ¿puedes pasarme el proyecto y le doy un vistazo a ver que puede pasar?

Un saludo.-