Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
Archivo mdf de SQL 2012 RamonZurita SQL Server 3 10 de junio de 2021 22:09
[Componente] Conectarse a Oracle (vía ODBC u otro) gymasociados AcuCobol 1 29 de abril de 2018 17:39
[Sintaxis] Sql Embebido Hrmcobol PowerCOBOL (ActiveX, v4 - v11) 23 28 de junio de 2017 00:09
[Aporte] Ejemplo PWC y SQL Embebido Josber Cocina PowerCOBOL 10 15 de junio de 2017 02:17
[Sintaxis] Instruccion LIMIT de SQL en DBControl Hrmcobol PowerCOBOL (ActiveX, v4 - v11) 1 5 de julio de 2015 15:56
Respuesta
 
Herramientas

  #1
Antiguo 7 de noviembre de 2015, 13:09
IDENTIFICATION DIVISION
Recato53
 Patrocinador del Foro
ENVIRONMENT DIVISION
Avatar de Recato53
DATA DIVISION
febrero 2015
Valladolid
23.07.2020 11:16
PROCEDURE DIVISION
Posts: 77
Enviado: 72
Recibido: 11
Soluiones: 2
Reputación: 7
Recato53 is on a distinguished road
Base de datos Conectarse a SQL Server

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.
Recato53 no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 2
  #2
Antiguo 7 de noviembre de 2015, 21:45
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 221
Soluiones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

Recato,

Lê em :

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

Un Saludo,
Rui
Rapinto no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Recato53 (10 de noviembre de 2015)
  #3
Antiguo 7 de noviembre de 2015, 23:45
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
69 años
21.07.2021 12:21
PROCEDURE DIVISION
Posts: 320
Enviado: 103
Recibido: 118
Soluiones: 10
Reputación: 18
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado
1 usuarios han marcado este post como "Solución"

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,


Código COBOL:
  1.      INVOKE SQL-INFORMES "OpenDB" RETURNING ReturnValue
  2.      MOVE WL-CONDICION-DE-BUSQUEDA  TO "Condition" OF SQL-INFORMES
  3.      INVOKE SQL-INFORMES "SelectRecords" RETURNING ReturnValue
  4.      IF ReturnValue >= ZEROS
  5.         MOVE 1 TO ReturnValue
  6.         PERFORM UNTIL ReturnValue NOT = 1
  7.                 INVOKE SQL-INFORMES "ReadNextRecord" RETURNING ReturnValue
  8.                 IF ReturnValue = 1
  9.                    ADD 1 TO WL-LEI
  10.                    PERFORM PROCESO-00
  11.                       THRU PROCESO-99
  12.                 END-IF
  13.         END-PERFORM
  14.      END-IF
  15.      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
Hrmcobol no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Recato53 (10 de noviembre de 2015)
  #4
Antiguo 8 de noviembre de 2015, 12:03
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
31.07.2021 17:38
PROCEDURE DIVISION
Posts: 591
Enviado: 269
Recibido: 289
Soluiones: 38
Reputación: 29
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

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.-
Josber no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Recato53 (10 de noviembre de 2015)
  #5
Antiguo 8 de noviembre de 2015, 19:35
IDENTIFICATION DIVISION
Dasije
 Novato Senior
ENVIRONMENT DIVISION
Avatar de Dasije
DATA DIVISION
noviembre 2015
Jerez De La Frontera (cádiz)
22.06.2021 16:47
PROCEDURE DIVISION
Posts: 176
Enviado: 1
Recibido: 78
Soluiones: 7
Reputación: 13
Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road
Predeterminado

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.
Dasije no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Recato53 (10 de noviembre de 2015)
  #6
Antiguo 9 de noviembre de 2015, 09:55
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
31.07.2021 17:38
PROCEDURE DIVISION
Posts: 591
Enviado: 269
Recibido: 289
Soluiones: 38
Reputación: 29
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

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.-
Josber no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Recato53 (10 de noviembre de 2015)
Respuesta

Tags
bbdd , sql server


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 06:22.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.