Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Aporte] Hyperfile SQL desde PowerCOBOL Dasije Cocina PowerCOBOL 3 14 de julio de 2018 15:46
[Sintaxis] SQL embebido - cursor con COUNT() en PowerCOBOL 7 drvedia1981 PowerCOBOL (ActiveX, v4 - v11) 10 12 de junio de 2018 14:16
[Aporte] Ejemplo PWC y SQL Embebido Josber Cocina PowerCOBOL 10 15 de junio de 2017 02:17
[Sintaxis] Variables en programa con SQL embebido DYANY IBM Enterprise COBOL 1 20 de diciembre de 2016 15:26
[Noticia] Conectarse a SQL Server Recato53 PowerCOBOL (ActiveX, v4 - v11) 5 9 de noviembre de 2015 09:55
Respuesta
 
Herramientas

  #11
Antiguo 29 de febrero de 2016, 10:04
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
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad02.06.2020 15:33
PROCEDURE DIVISION
PostsPosts: 526
Ha dicho GraciasEnviado: 225
Ha recibido agradecimientosRecibido: 241
Mejores respuestasSoluiones: 34
ReputaciónReputación: 23
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

A ver yo la creación y modificación de tablas la hago a través del gestor de MySql, nunca lo he probado a través de PWC, pero por lo que he estado leyendo en otros sitios, no se puede, según parece, la única manera de hacerlo, sería atraves de los controles ADO, pero no lo he hecho nunca y no tengo ni idea de como funcionan. El resto de instrucciones que he puesto, si están probadas por mi y funcionan perfectamente.

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Hrmcobol (29 de febrero de 2016)
  #12
Antiguo 29 de febrero de 2016, 23:59
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
Forero desde (Registrado)febrero 2015
Portugal
Ubicación Porto
Última Actividad29.01.2018 19:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 216
Mejores respuestasSoluiones: 47
ReputaciónReputación: 14
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

Hrmcobol,

Fiz há algum tempo atras um software para transferir ficheiros de PowerCobol para uma base de dados de um site na Internet.
Está tudo feito em PowerCobol V9.0, cria as tabelas no SQL do site, apaga as tabelas também, e escreve e le dados, tudo através duma ligação á Internet.
Não utiliza ODBC, faz a ligação direta á base de dados.
A única diferença é que utilizei tudo, através de comandos COM/OLE2 e o ADO.

Código COBOL:
  1. INVOKE COM "CREATE-OBJECT" USING ADO-CONNECTION-TYPE RETURNING OBJ-CONNECTION.
  2. INVOKE COM "CREATE-OBJECT" USING ADO-COMMAND-TYPE RETURNING OBJ-COMMAND.
  3. INVOKE COM "CREATE-OBJECT" USING ADO-RECORDSET-TYPE  RETURNING OBJ-RECORDSET(1).
  4. **
  5. ***  DEFINE AND OPEN CONNECTION
  6. **
  7. INITIALIZE ADO-CONNECT-STRING.
  8. STRING  
  9.              "Driver="   ADO-DRIVER   DELIMITED BY ";"  "; " DELIMITED BY SIZE
  10.              "Server="   ADO-SERVER   DELIMITED BY ";"  "; " DELIMITED BY SIZE
  11.              "Port="     ADO-PORT     DELIMITED BY ";"  "; " DELIMITED BY SIZE
  12.              "UID="      ADO-UID      DELIMITED BY ";"  "; " DELIMITED BY SIZE
  13.              "PWD="      ADO-PWD      DELIMITED BY ";"  "; " DELIMITED BY SIZE
  14.              "CHARSET="  ADO-CHARSET  DELIMITED BY ";"  "; " DELIMITED BY SIZE
  15.              "DATABASE=" ADO-DATABASE DELIMITED BY ";"  
  16.              "; "                     DELIMITED BY SIZE
  17.                       INTO ADO-CONNECT-STRING.
  18. *
  19.  MAIN-05.
  20. *   MOVE "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\RPS13_SRC\RPSFtsEIbd\Database5.accdb;Jet OLEDB:Database;" TO ADO-CONNECT-STRING.
  21. *
  22.     MOVE "SETCONNECTIONSTRING "  TO INSTRUCAO.
  23. *
  24. INVOKE OBJ-CONNECTION "SET-CONNECTIONSTRING" USING ADO-CONNECT-STRING RETURNING RETURN-ERROR.
  25. IF RETURN-ERROR NOT = 0  DISPLAY "ERRO: CONNECTION STRING" STOP " " GO TO MAIN-99-EXIT.
  26. *
  27. MOVE "OPEN CONNECTION" TO INSTRUCAO.
  28. INVOKE OBJ-CONNECTION "OPEN"     RETURNING RETURN-ERROR.
  29. IF RETURN-ERROR NOT = 0  DISPLAY "ERRO:OPEN CONNECTION"  STOP " "   GO TO MAIN-99-EXIT.
  30. *


Já subi, algum tempo atrás, para o foro um exemplo de como ligar por esse processo e ler dados da base de dados. --> Base de Dados DBF por OLE2
Se estiveres interessado na utilização de COM/OLE2, poderei dar-te uma ajuda, com um pequeno exemplo.

Un saludo,
Rui Pinto
Rapinto no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Hrmcobol ( 2 de marzo de 2016)
  #13
Antiguo 2 de marzo de 2016, 12:42
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
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Puerto Madryn
Edad68 años
Última Actividad21.05.2020 18:49
PROCEDURE DIVISION
PostsPosts: 275
Ha dicho GraciasEnviado: 95
Ha recibido agradecimientosRecibido: 96
Mejores respuestasSoluiones: 8
ReputaciónReputación: 15
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

Gracias Rapinto. Como Siempre Usted Con La Respuesta. Esto es demasiado para mi, nunca trabaje ni vi nada con ADO. El tema de crear y modificar tablas era solo una sutileza que quería hacer.
Lo dejare para mas adelante.
Saludos !!
Hrmcobol no ha iniciado sesión   Responder Con Cita
  #14
Antiguo 14 de junio de 2017, 08:28
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad35 años
Última Actividad02.06.2020 14:46
PROCEDURE DIVISION
PostsPosts: 1.559
Ha dicho GraciasEnviado: 408
Ha recibido agradecimientosRecibido: 627
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Josber, y otros amigos del foro. ¿Utilizáis un precompilador particular de la BBDD o el que viene con NetCOBOL? Y también, ¿cómo incluís la SQLCA, con COPY o con EXEC SQL INCLUDE?


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #15
Antiguo 14 de junio de 2017, 19:58
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
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad02.06.2020 15:33
PROCEDURE DIVISION
PostsPosts: 526
Ha dicho GraciasEnviado: 225
Ha recibido agradecimientosRecibido: 241
Mejores respuestasSoluiones: 34
ReputaciónReputación: 23
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

Cita del post de Kuk Ver Mensaje
Josber, y otros amigos del foro. ¿Utilizáis un precompilador particular de la BBDD o el que viene con NetCOBOL? Y también, ¿cómo incluís la SQLCA, con COPY o con EXEC SQL INCLUDE?

Yo utilizo el que viene con Netcobol incluido, en cuanto a lo otro, no caigo ahora en qué es

Un saludo.-c
Josber no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Kuk (14 de junio de 2017)
  #16
Antiguo 14 de junio de 2017, 20:53
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad35 años
Última Actividad02.06.2020 14:46
PROCEDURE DIVISION
PostsPosts: 1.559
Ha dicho GraciasEnviado: 408
Ha recibido agradecimientosRecibido: 627
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Josber, lo otro es una tontería, debe ser EXEC SQL INCLUDE, se me ha ido la fresa a la hora de preguntarlo


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #17
Antiguo 22 de junio de 2017, 16:54
IDENTIFICATION DIVISION
dmosca
Novato Junior
ENVIRONMENT DIVISION
Avatar de dmosca
DATA DIVISION
Forero desde (Registrado)marzo 2017
Argentina
Ubicación Mendoza
Última Actividad02.06.2020 15:56
PROCEDURE DIVISION
PostsPosts: 57
Ha dicho GraciasEnviado: 25
Ha recibido agradecimientosRecibido: 4
Mejores respuestasSoluiones: 1
ReputaciónReputación: 4
dmosca is an unknown quantity at this point
Base de datos sql embebido

Buen dia

sigo sin poder conectar Powercobol con Mysql

por favor si tienen unos minutos para explicar el contenido de COBOL85.cbr y BD.inf
dmosca no ha iniciado sesión   Responder Con Cita
  #18
Antiguo 22 de junio de 2017, 19:58
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
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad02.06.2020 15:33
PROCEDURE DIVISION
PostsPosts: 526
Ha dicho GraciasEnviado: 225
Ha recibido agradecimientosRecibido: 241
Mejores respuestasSoluiones: 34
ReputaciónReputación: 23
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

dmosca, a ver lo principal es que, no sé si será tu caso, pero si tienes los ejecutables en un directorio distinto a los fuentes, no te funcionará, para que funcione, tienes que cambiarlo en el proyecto.

En el fichero COBOL85.CBR, has de poner una línea más o menos así, (puedes hacerlo con el Notepad, que funciona igual):

@ODBC_Inf=C:\Tiras y Cordones\bd.inf

El fichero .inf, en mi caso BD.inf, has de crearlo con la utilidad SQLODBCS, para ello, antes tienes que haber creado el conector ODBC, desde el panel de control de windows. Una vez creado el ODBC, es tan sencillo como abrir la utilidad que te he dicho, darle al botón de buscar en la primera pantalla, (Browse), selccionas la carpeta donde quieres guardar el archivo .inf, en esa carpeta pones el nombre que quieres darle al archivo y te preguntará si quieres crear uno nuevo, le dices que sí y entras en la pantalla de configuración.

- En Server Name, pones el nombre que quieras, pero ten en cuenta que, el nombre que pongas ahí, va a ser el que uses en tu programa POWER COBOL, por ejemplo para abrir la BD. (EXEC SQL CONNECT TO nombre END EXEC.)
- Marca la opción Machine Data Source
- En Data Source Name, abres el desplegable, y te aparecerá la conexión ODBC que tengas hecha, la seleccionas.
- En User ID, pones el nombre del usuario autorizado para acceder a la BD, si no tienes ninguno, será root
- En Password, pones la contraseña de ese usuario.
- En Comment, no hace falta que pongas nada si no quieres
- En Access Mode, marcas la opción de Read/Write
- En COMMIT MODE, depende de como lo tengas definidio en MySQL, si es AUTO o NO

El resto de opciones, no me ha hecho falta nunca modificarlas, le das a aceptar y listo, te crea el archivo .inf y a funcionar.

Si tienes mas problemas, no dudes en consultar.

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
dmosca (23 de junio de 2017)
  #19
Antiguo 23 de junio de 2017, 02:11
IDENTIFICATION DIVISION
dmosca
Novato Junior
ENVIRONMENT DIVISION
Avatar de dmosca
DATA DIVISION
Forero desde (Registrado)marzo 2017
Argentina
Ubicación Mendoza
Última Actividad02.06.2020 15:56
PROCEDURE DIVISION
PostsPosts: 57
Ha dicho GraciasEnviado: 25
Ha recibido agradecimientosRecibido: 4
Mejores respuestasSoluiones: 1
ReputaciónReputación: 4
dmosca is an unknown quantity at this point
Predeterminado ok

Josber

pude consultar la base, muchas gracias
dmosca no ha iniciado sesión   Responder Con Cita
  #20
Antiguo 23 de junio de 2017, 09:21
IDENTIFICATION DIVISION
Joseg
Novato Senior
Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
Forero desde (Registrado)abril 2015
Portugal
Última Actividad02.06.2020 09:57
PROCEDURE DIVISION
PostsPosts: 180
Ha dicho GraciasEnviado: 38
Ha recibido agradecimientosRecibido: 60
Mejores respuestasSoluiones: 11
ReputaciónReputación: 11
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
Predeterminado

Numa instalação em rede (local network), existe alguma forma de automatizar a criação do DNS?
O objetivo era não ter que ir a cada maquina para criar manualmente a ligação de ODBC.

Gracias
Jose
Joseg no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
embebido , embedded , sql


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 16:14.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2020, Jelsoft Enterprises Ltd.