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 16:46
[Sintaxis] SQL embebido - cursor con COUNT() en PowerCOBOL 7 drvedia1981 PowerCOBOL (ActiveX, v4 - v11) 10 12 de junio de 2018 15:16
[Aporte] Ejemplo PWC y SQL Embebido Josber Cocina PowerCOBOL 10 15 de junio de 2017 03:17
[Sintaxis] Variables en programa con SQL embebido DYANY IBM Enterprise COBOL 1 20 de diciembre de 2016 16:26
[Noticia] Conectarse a SQL Server Recato53 PowerCOBOL (ActiveX, v4 - v11) 5 9 de noviembre de 2015 10:55
Respuesta
 
Herramientas

  #11
Antiguo 29 de febrero de 2016, 11:04
IDENTIFICATION DIVISION
Josber
Super Moderador
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónAlicante
Última Actividad14.11.2019 09:17
PROCEDURE DIVISION
PostsPosts: 467
Ha dicho GraciasEnviado: 188
Ha recibido agradecimientosRecibido: 204
Mejores respuestasSoluiones: 31
Medallas recibidas: 1Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ReputaciónReputación: 19
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 1 de marzo de 2016, 00:59
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 20:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 215
Mejores respuestasSoluiones: 47
Medallas recibidas: 2Medallas: 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! 
ReputaciónReputación: 13
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, 13:42
IDENTIFICATION DIVISION
Hrmcobol
Guardián del Foro
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
UbicaciónPuerto Madryn
Edad67 años
Última Actividad02.11.2019 01:14
PROCEDURE DIVISION
PostsPosts: 261
Ha dicho GraciasEnviado: 92
Ha recibido agradecimientosRecibido: 83
Mejores respuestasSoluiones: 8
Medallas recibidas: 1Medallas: Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ReputaciónReputación: 12
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, 09:28
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad14.11.2019 23:15
PROCEDURE DIVISION
PostsPosts: 1.420
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 541
Mejores respuestasSoluiones: 87
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, 20:58
IDENTIFICATION DIVISION
Josber
Super Moderador
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónAlicante
Última Actividad14.11.2019 09:17
PROCEDURE DIVISION
PostsPosts: 467
Ha dicho GraciasEnviado: 188
Ha recibido agradecimientosRecibido: 204
Mejores respuestasSoluiones: 31
Medallas recibidas: 1Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ReputaciónReputación: 19
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, 21:53
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad14.11.2019 23:15
PROCEDURE DIVISION
PostsPosts: 1.420
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 541
Mejores respuestasSoluiones: 87
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, 17:54
IDENTIFICATION DIVISION
dmosca
Novato Junior
ENVIRONMENT DIVISION
Avatar de dmosca
DATA DIVISION
Forero desde (Registrado)marzo 2017
Argentina
UbicaciónMendoza
Última Actividad22.10.2019 13:39
PROCEDURE DIVISION
PostsPosts: 57
Ha dicho GraciasEnviado: 25
Ha recibido agradecimientosRecibido: 4
Mejores respuestasSoluiones: 1
ReputaciónReputación: 3
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, 20:58
IDENTIFICATION DIVISION
Josber
Super Moderador
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónAlicante
Última Actividad14.11.2019 09:17
PROCEDURE DIVISION
PostsPosts: 467
Ha dicho GraciasEnviado: 188
Ha recibido agradecimientosRecibido: 204
Mejores respuestasSoluiones: 31
Medallas recibidas: 1Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ReputaciónReputación: 19
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, 03:11
IDENTIFICATION DIVISION
dmosca
Novato Junior
ENVIRONMENT DIVISION
Avatar de dmosca
DATA DIVISION
Forero desde (Registrado)marzo 2017
Argentina
UbicaciónMendoza
Última Actividad22.10.2019 13:39
PROCEDURE DIVISION
PostsPosts: 57
Ha dicho GraciasEnviado: 25
Ha recibido agradecimientosRecibido: 4
Mejores respuestasSoluiones: 1
ReputaciónReputación: 3
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, 10:21
IDENTIFICATION DIVISION
Joseg
Novato Senior
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
Forero desde (Registrado)abril 2015
Portugal
Última Actividad28.10.2019 13:43
PROCEDURE DIVISION
PostsPosts: 163
Ha dicho GraciasEnviado: 37
Ha recibido agradecimientosRecibido: 48
Mejores respuestasSoluiones: 9
Medallas recibidas: 1Medallas: Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ReputaciónReputación: 9
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 08:50.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.