Cobol Foro - [PowerCOBOL] Ejemplo PWC y SQL Embebido

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

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

- - [PowerCOBOL] Ejemplo PWC y SQL Embebido (https://www.cobolforo.es/showthread.php?t=263)

Ejemplo PWC y SQL Embebido

Aquí tenéis un pequeño ejemplo de como utilizar PWC y MySQL

Entorno: PWC9,(aunque lo más seguro es que en PWC7 funcione)
Tipo: Ejecutable
Contenido: Ejecutable, Proyecto, Iconos y BMP
Otros: Se incluye archivo COBOL85.cbr y BD.inf

Consideraciones:

Antes de ejecutar, hay que modificar los archivos COBOL85.cbr y BD.inf, para que se ajuste a los parámetros de cada uno.
Si alguien tiene una manera mejor de hacerlo, que la diga, que estoy abierto a toda sugerencia.

No estoy muy ducho aún en SQL embebido, pero ... poco a poco :silba::silba:

Un saludo.-

Josber,
Tentei correr o teu programa de exemplo de SQL Embebido e dá erro.
Onde está indicada a ligação à BDados???
É por ODBC??

Queria experimentar com SQL Server.

Un Saludo,
Rui

Cita:

Citación del post de Rapinto (Mensaje 1226)

É por ODBC??

Si Rui, através de ODBC de SQL

Un saludo.-

Utilizar el control ADO, funciona como SQL integrado, y puedes mover valores como otro control de powercobol, y además puedes utilizar OLE-DB sin OBDC por medio mediante string de conexión.

Cita:

Citación del post de Dasije (Mensaje 1229)

Utilizar el control ADO, funciona como SQL integrado, y puedes mover valores como otro control de powercobol, y además puedes utilizar OLE-DB sin OBDC por medio mediante string de conexión.

No lo he usado nunca, ¿podrías poner un ejemplo?

Un saludo.-

Working:

Código COBOL:

01 CONTROL-ADO-3A OBJECT REFERENCE POW-COBJECT.

Procedure:

Código COBOL:

MOVE SPACES TO CONEXION-ADO
STRING "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
           WST-ARCHIVO-MBD(1:WST-TAMANO-VARIABLE)
           ";Mode=ReadWrite;Persist Security Info=False"
           DELIMITED BY SIZE INTO CONEXION-ADO
MOVE CONEXION-ADO TO "ConnectionString" OF ADO-HYDRA-CABECERA
MOVE SPACES TO SQL-CONDICION
STRING "SELECT * FROM cabecera"
           " WHERE d_fecha BETWEEN FORMAT('" WST-FECAX-INICIO "', 'yyyy/mm/dd')"
           " AND FORMAT('" WST-FECAX-FINAL "', 'yyyy/mm/dd')"
           " ORDER BY d_fecha ASC"
           DELIMITED BY SIZE INTO SQL-CONDICION
MOVE SQL-CONDICION TO "CommandText" OF ADO-HYDRA-CABECERA
INVOKE ADO-HYDRA-CABECERA "SETREF-Recordset" USING CONTROL-ADO-3A
IF "RecordCount" OF "Recordset" OF ADO-HYDRA-CABECERA NOT = ZEROS
    MOVE "RecordCount" OF "Recordset" OF ADO-HYDRA-CABECERA TO WST-REGISTROS
    INVOKE "Recordset" OF ADO-HYDRA-CABECERA "MoveFirst"
    PERFORM WITH NO LIMIT
                 IF "EOF" OF "Recordset" OF ADO-HYDRA-CABECERA NOT = POW-FALSE
                     EXIT PERFORM
                 END-IF
                 MOVE "Value" OF "Item"(6) OF "Fields" OF "Recordset" OF ADO-HYDRA-CABECERA TO WST-CAMPO-IMPORTES
 
                 ...........
 
                 MOVE WST-PRECIO-F TO "Value" OF "Item"(34) OF "Fields" OF "Recordset" OF ADO-HYDRA-CABECERA
                 INVOKE "Recordset" OF ADO-HYDRA-CABECERA "Update"
                 INVOKE "Recordset" OF ADO-HYDRA-CABECERA "MoveNext"
    END-PERFORM.

El número de item partenece al número de columna que corresponde en el orden de la consulta empezando desde el 0 que sería la primera.

En SQL Server, se puede poner el nombre del campo entre comillas, así dejas de usar el número de item.

http://www.connectionstrings.com

Aquí puedes mirar los strings de conexión disponibles de todos los motores de base de datos.

Saludos.

Cita:

Citación del post de Dasije (Mensaje 1237)

Working:

Código COBOL:

01 CONTROL-ADO-3A OBJECT REFERENCE POW-COBJECT.

Procedure:

Código COBOL:

MOVE SPACES TO CONEXION-ADO
STRING "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
           WST-ARCHIVO-MBD(1:WST-TAMANO-VARIABLE)
           ";Mode=ReadWrite;Persist Security Info=False"
           DELIMITED BY SIZE INTO CONEXION-ADO
MOVE CONEXION-ADO TO "ConnectionString" OF ADO-HYDRA-CABECERA
MOVE SPACES TO SQL-CONDICION
STRING "SELECT * FROM cabecera"
           " WHERE d_fecha BETWEEN FORMAT('" WST-FECAX-INICIO "', 'yyyy/mm/dd')"
           " AND FORMAT('" WST-FECAX-FINAL "', 'yyyy/mm/dd')"
           " ORDER BY d_fecha ASC"
           DELIMITED BY SIZE INTO SQL-CONDICION
MOVE SQL-CONDICION TO "CommandText" OF ADO-HYDRA-CABECERA
INVOKE ADO-HYDRA-CABECERA "SETREF-Recordset" USING CONTROL-ADO-3A
IF "RecordCount" OF "Recordset" OF ADO-HYDRA-CABECERA NOT = ZEROS
    MOVE "RecordCount" OF "Recordset" OF ADO-HYDRA-CABECERA TO WST-REGISTROS
    INVOKE "Recordset" OF ADO-HYDRA-CABECERA "MoveFirst"
    PERFORM WITH NO LIMIT
                 IF "EOF" OF "Recordset" OF ADO-HYDRA-CABECERA NOT = POW-FALSE
                     EXIT PERFORM
                 END-IF
                 MOVE "Value" OF "Item"(6) OF "Fields" OF "Recordset" OF ADO-HYDRA-CABECERA TO WST-CAMPO-IMPORTES
 
                 ...........
 
                 MOVE WST-PRECIO-F TO "Value" OF "Item"(34) OF "Fields" OF "Recordset" OF ADO-HYDRA-CABECERA
                 INVOKE "Recordset" OF ADO-HYDRA-CABECERA "Update"
                 INVOKE "Recordset" OF ADO-HYDRA-CABECERA "MoveNext"
    END-PERFORM.

Quando tento fazer MOVE XXXX TO "Value" OF "Item"(x) OF "Fields" OF "Recordset" OF ADO-HYDRA-CABECERA (claro, com dados meus)

Da erro :(

Pode, por favor, disponibilizar um exemplo com update e insert numa BD usando ADO?
Estou a necessitar muito usar esta forma de actualizar (query) uma BD.

Consigo Ler, mas estou com dificuldade em atualizar ou criar novos registos.

Gracias,
Jose

Hola buenas.

En ADO, solo puedes hacer consultas, y después leer, añadir nuevo registro, actualizar y eliminar.

Si has conseguido leer, no debe ser un problema grabar, asegúrate de no tener en propiedades de modos de acceso en la opción que no te permita grabar.

Solo debes comprobar, leer el registro, mover valores, y actualizar:

Añadir un nuevo registro:

Código COBOL:

INVOKE "Recordset" OF ADO-HYDRA-CABECERA "AddNew"

Nota: Debes hacerlo antes de mover los valores

Actualizar datos:

Código COBOL:

INVOKE "Recordset" OF ADO-HYDRA-CABECERA "Update"

Nota: Sí es un nuevo registro, debes ejecutar antes de mover valores el método Addnew.

Saludos.

Gracias :)
Tenha nas propriedades do objecto para leitura/escrita.

Ja esta funcionando, dá erro apenas quando tento alterar um registo com "key with duplicates" ...ainda não sei qual o motivo.

Eu uso: move MyQuery to "Filter" OF "Recordset" of CmADODataSource1 .
para filtrar um registo, mas a Microsoft recomenda que se use o comando "Find" que é mais rápido (tabelas grandes), mas não estou conseguindo.

Como fazia query dos registos ? Usando "Select..." ou métodos do object CmADODataSource1 ?

Muitas gracias

Cita:

Citación del post de Dasije (Mensaje 1913)

Código COBOL:

INVOKE "Recordset" OF ADO-HYDRA-CABECERA "AddNew"

Nota: Debes hacerlo antes de mover los valores

Actualizar datos:

Código COBOL:

INVOKE "Recordset" OF ADO-HYDRA-CABECERA "Update"

Nota: Sí es un nuevo registro, debes ejecutar antes de mover valores el método Addnew.

Saludos.

La clasula SELECT se puede utilizar la instrucción completa como su motor de base de datos indique utilizar, no es estándar, se puede filtrar de muchas maneras, por ejemplo, añadiendo clasula NOT IN ('valor'), NOT LIKE '%pepe', etc ... incluso hacer uniones entre dos o más tablas y seleccionar valores en una de ellas, hay muchos ejemplos.

Saludos.