Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Cobol » Conectar PowerCobol 3 a Access

Cobol - Conectar PowerCobol 3 a Access

Volver
Nuevo Tema
<<>>
 
Vista:

Conectar PowerCobol 3 a Access

Publicado por Cristian S. (1 intervención) el 23/06/2009 17:16:25
Sres.

¿Cómo se puede conectar desde PowerCobol3 a una base de datos MS Access o SQL Server?

salu2
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Conexión a bases de datos MS Access y SQL Server desde PowerCOBOL 3

Publicado por Alejandro (300 intervenciones) el 08/09/2023 22:49:14
Conectar desde PowerCOBOL 3 a una base de datos MS Access o SQL Server implica utilizar las capacidades de acceso a datos que proporciona el lenguaje COBOL junto con las bibliotecas o controladores adecuados para cada base de datos. A continuación, te proporciono una guía general para conectarte a ambas bases de datos desde PowerCOBOL:

Conexión a MS Access:

1. Biblioteca ODBC: Para conectarte a una base de datos MS Access desde PowerCOBOL, puedes utilizar la biblioteca ODBC (Open Database Connectivity). Asegúrate de que tengas el controlador ODBC de Microsoft Access instalado en tu sistema.

2. Configuración de DSN: Crea un Data Source Name (DSN) en tu sistema que apunte a la base de datos MS Access que deseas acceder. Esto facilitará la conexión desde tu programa COBOL.

3. Utilizar SQL y ODBC: En tu programa COBOL, utiliza SQL para interactuar con la base de datos MS Access. Puedes utilizar las declaraciones SQL para realizar consultas, inserciones, actualizaciones y eliminaciones de datos. Utiliza el DSN que creaste en el paso 2 para establecer la conexión.

4. Ejemplo de conexión ODBC en COBOL:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
IDENTIFICATION DIVISION.
       PROGRAM-ID. AccesoMS.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       EXEC SQL
          INCLUDE SQLCA
       END-EXEC.
       EXEC SQL
          BEGIN DECLARE SECTION
       END-EXEC.
       01 SQL-Statement PIC X(100).
       EXEC SQL
          END DECLARE SECTION
       END-EXEC.
 
       PROCEDURE DIVISION.
       EXEC SQL
          CONNECT TO 'DSN=NombreDSN;UID=Usuario;PWD=Contraseña'
       END-EXEC.
 
       IF SQLCODE = 0
       THEN
          DISPLAY "Conexión exitosa."
 
          EXEC SQL
             -- Tu código SQL aquí
          END-EXEC.
 
          EXEC SQL
             DISCONNECT
          END-EXEC.
       ELSE
          DISPLAY "Error al conectar: " SQLERRMC
       END-IF.
 
       STOP RUN.

Conexión a SQL Server:

1. Biblioteca SQL Native Client u ODBC: Para conectarte a SQL Server, puedes utilizar la biblioteca SQL Native Client (si está disponible en tu entorno) o la biblioteca ODBC. Debes asegurarte de tener el controlador SQL Server adecuado instalado en tu sistema.

2. Utilizar SQL y ODBC: Al igual que con MS Access, en tu programa COBOL, utiliza SQL para interactuar con la base de datos SQL Server. Utiliza una cadena de conexión que incluya detalles como el servidor, la base de datos, el usuario y la contraseña.

3. Ejemplo de conexión ODBC en COBOL:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
IDENTIFICATION DIVISION.
       PROGRAM-ID. ConexionSQLServer.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       EXEC SQL
          INCLUDE SQLCA
       END-EXEC.
       EXEC SQL
          BEGIN DECLARE SECTION
       END-EXEC.
       01 SQL-Statement PIC X(100).
       EXEC SQL
          END DECLARE SECTION
       END-EXEC.
 
       PROCEDURE DIVISION.
       EXEC SQL
          CONNECT TO 'DSN=NombreDSN;UID=Usuario;PWD=Contraseña'
       END-EXEC.
 
       IF SQLCODE = 0
       THEN
          DISPLAY "Conexión exitosa."
 
          EXEC SQL
             -- Tu código SQL aquí
          END-EXEC.
 
          EXEC SQL
             DISCONNECT
          END-EXEC.
       ELSE
          DISPLAY "Error al conectar: " SQLERRMC
       END-IF.
 
       STOP RUN.

Recuerda reemplazar "NombreDSN", "Usuario", "Contraseña" y agregar tu código SQL específico en las secciones correspondientes. Este es solo un ejemplo general y los detalles pueden variar según tu configuración específica y la versión de PowerCOBOL. Asegúrate de consultar la documentación de PowerCOBOL y las bibliotecas ODBC o SQL Native Client para obtener información detallada sobre la conexión a bases de datos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar