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

  #21
Antiguo 23 de junio de 2017, 13:35
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 Joseg Ver Mensaje
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
Yo no le he probado, siempre he creado los ODBC a mano, pero algo así debería funcionar:

- Creas un archivo con extensión .reg, por ejemplo conexión.reg, con los siguientes valores:

Código:
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\BD]
"Driver"="MariaDB ODBC 3.0 Driver"
"DESCRIPTION"="Tiras y Cordones"
"OPTIONS"="4194304"
"TCPIP"="1"
"SERVER"="127.0.0.1"
"UID"=nombre_de_usuario
"PWD"=contraseña_de_usuario
"DATABASE"=nombre_base_de_datos
"PORT"="3306"
"CONN_TIMEOUT"="0"
"CHARSET"="utf8"
"SSLVERIFY"="0"
Una vez grabado, con la siguiente instrucción desde la linea de comandos, debería de crearlo:

REG IMPORT [unidad/ruta]nombre_archivo.reg

Si en vez de querer crear el DSN por usuario, quieres crearlo por máquina, tienes que cambiar en el archivo .reg

HKEY_CURRENT_USER por HKEY_LOCAL_MACHINE

Si lo pruebas, comenta el resultado

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
  #22
Antiguo 24 de junio de 2017, 02:41
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

Rapinto, buenas tardes.

tienes el ejemplo de como acceder bdl con ADO?

pude conectar y leer una base .mdb, pero necesito conectar a MySql.

si puedes compartir el ejemplo para ver como conectar POWERCOBOL V9 a Mysql con COM/OLE2

muchas gracias
dmosca no ha iniciado sesión   Responder Con Cita
  #23
Antiguo 26 de junio de 2017, 11:32
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

Cita del post de Josber Ver Mensaje
Yo no le he probado, siempre he creado los ODBC a mano, pero algo así debería funcionar:

- Creas un archivo con extensión .reg, por ejemplo conexión.reg, con los siguientes valores:

Código:
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\BD]
"Driver"="MariaDB ODBC 3.0 Driver"
"DESCRIPTION"="Tiras y Cordones"
"OPTIONS"="4194304"
"TCPIP"="1"
"SERVER"="127.0.0.1"
"UID"=nombre_de_usuario
"PWD"=contraseña_de_usuario
"DATABASE"=nombre_base_de_datos
"PORT"="3306"
"CONN_TIMEOUT"="0"
"CHARSET"="utf8"
"SSLVERIFY"="0"
Una vez grabado, con la siguiente instrucción desde la linea de comandos, debería de crearlo:

REG IMPORT [unidad/ruta]nombre_archivo.reg

Si en vez de querer crear el DSN por usuario, quieres crearlo por máquina, tienes que cambiar en el archivo .reg

HKEY_CURRENT_USER por HKEY_LOCAL_MACHINE

Si lo pruebas, comenta el resultado

Un saludo.-

Não consigo adicionar o registo mas deve ser algo parecido.

Gracias

---------- Post añadido : 10:32 ---------- Post anterior : 10:19 ----------

Cita del post de Joseg Ver Mensaje
Não consigo adicionar o registo mas deve ser algo parecido.

Gracias

Encontrei esta forma e funciona bem (command-line):

Add-OdbcDsn
ou
ODBCCONF.EXE (vai ser descontinuado pela Microsoft)

Mysql tem esta opção: myodbc-installer.exe (MariaDB não encontrei esta possibilidade)

Desta forma é possivel automatizar todo um setup
Joseg no ha iniciado sesión   Responder Con Cita
  #24
Antiguo 28 de junio de 2017, 01:09
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

DMOSCA,

Não sei se é isto que pretendes:

Código:
DRIVER={MySQL ODBC 5.3 ANSI Driver}
SERVER=db4free.net
PORT=03306
UID=rpsuser
PWD=teste1234
CHARSET=utf8
DATABASE=dbrps
Tens que alterar o SERVER para o nome correto.
Tens que alterar a PORT para o numero de porta certo
Tens que alterar o UID para o nome do usuário
Altera a PWD para a password correta.
Altera DATABASE para o nome correto da base de dados.

Na Working-Storage

Código COBOL:
  1.  01  BDVARIABLES GLOBAL.
  2.     05  ADO-CONNECTION-TYPE         PIC X(8192) VALUE "ADODB.Connection".  
  3.     05  ADO-RECORDSET-TYPE          PIC X(8192) VALUE "ADODB.Recordset".  
  4.     05  ADO-COMMAND-TYPE            PIC X(8192) VALUE "ADODB.Command".  
  5.     05  OBJ-CONNECTION           OBJECT REFERENCE COM .
  6.     05  OBJ-RECORDSET            OBJECT REFERENCE COM  OCCURS 10.
  7.     05  OBJ-RECORDSETSCHEMA      OBJECT REFERENCE COM.
  8.     05  OBJ-COMMAND              OBJECT REFERENCE COM.
  9. *
  10.     05  OBJ-FIELD                OBJECT REFERENCE COM OCCURS 50.
  11.     05  OBJ-FIELDS               OBJECT REFERENCE COM.
  12. *
  13.     05  OBJ-FIELDS-COUNT            PIC S9(9) COMP-5 VALUE 0.
  14.     05  RECORDCOUNT                 PIC S9(9) COMP-5 VALUE 0.
  15.     05  NUMBER-FIELD                PIC S9(9)V9(9)  VALUE 0.
  16.     05  NUMBER-FIELD-EDT            PIC -(10).9(9).
  17.     05  ALPHA-FIELD                 PIC X(200).
  18.     05  RETURN-ERROR                PIC 9(9) COMP-5.
  19. *
  20.     05  ADO-SQL-CMDTEXT   PIC 9(9) COMP-5 VALUE 1.
  21.     05  WLOCK                       PIC S9(9) COMP-5 VALUE 1.
  22.     05  WCURSOR                     PIC S9(9) COMP-5 VALUE 1.
  23.     05  WOPTION                     PIC S9(9) COMP-5 VALUE -1.
  24.     05  W-INDEX                     PIC 99.
  25.     05  W-INDEX-1                   PIC 99.
  26.     05  EOF                         PIC S9(9) COMP-5.
  27.     05  BOF                         PIC S9(9) COMP-5.

e para abrir:

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

Não sei se isto ajuda alguma coisa.

Saludos,
Rui Pinto
Rapinto no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
dmosca (29 de junio de 2017)
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:06.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.