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í (http://www.cobolforo.es/showthread.php?p=1216#post1216)

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.-