[Noticia] Conectarse a SQL Server

[Recato53]

Tengo la necesidad de leer una tabla en una BD SQL Server, para después procesarlos en en PowerCobol.

1. Como Abro la BD SQL Server.
2. Como leo registros de una Tabla concreta.
3. Como Cierro la BD SQL Server.

Hay información en los manuales de PowerCobol.

Muchas gracias.

[Rapinto]

Recato,

Lê em :

PowerCOBOL + COM/OLE Código PowerCOBOL en utilización con OLE/COM

Un Saludo,
Rui

[Hrmcobol]

Hola Reacato, yo hago lo siguiente:
1-Creo una ODBC que apunte al SqlSever.
2-Con DB Acces Control busco la odbc y le punto a la tabla que deseo leer.
3-Ejecuto el procedimiento siguiente,

     INVOKE SQL-INFORMES "OpenDB" RETURNING ReturnValue
     MOVE WL-CONDICION-DE-BUSQUEDA  TO "Condition" OF SQL-INFORMES
     INVOKE SQL-INFORMES "SelectRecords" RETURNING ReturnValue
     IF ReturnValue >= ZEROS
        MOVE 1 TO ReturnValue
        PERFORM UNTIL ReturnValue NOT = 1
                INVOKE SQL-INFORMES "ReadNextRecord" RETURNING ReturnValue
                IF ReturnValue = 1
                   ADD 1 TO WL-LEI
                   PERFORM PROCESO-00
                      THRU PROCESO-99
                END-IF
        END-PERFORM
     END-IF
     INVOKE SQL-INFORMES     "CloseDB"  

Para grabar o regrabar uso Writerecord o Rewriterecord,
No uso OLE no Sql Embebido porque no se hacerlo, aparte tampoco tuve la necesidad de hacerlo. Este método me permite trabajar con bases Access y SqlServer al mismo tiempo
Espero te sirva.
Saludos

[Josber]

Yo utilizo SQL embebido y, aunque al principio parece bastantente complicado, si sabes algo de sql, es bastante fácil, a ver si mañana me da tiempo y te preparo un pequeño ejemplo, de como leer, cargar, grabar, abrir, etc.

Un saludo.-

[Dasije]

Lo más rápido y potente es utilizar el ADO (Activex) de Power, también se puede utilizar el de Microsoft, pero prefiero el de Power por compatibilidad.

Saludos.

[Josber]

Recato53, te he creado un pequeño ejemplo de manejo de SQL, lo puedes descargar de Aquí

Espero que te sirva de ayuda, la mayoría de cosas que tengo hechas en MySql, las he aprendido con el típico prueba --> fallo --> arreglo --> prueba ...

Un saludo.-