Cobol Foro - [Sintaxis] Sql Embebido

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Sintaxis] Sql Embebido (https://www.cobolforo.es/showthread.php?t=332)

Cita:

Citación del post de Joseg (Mensaje 3193)

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.-

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

Cita:

Citación del post de Josber (Mensaje 3194)

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"

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

Gracias

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

Cita:

Citación del post de Joseg (Mensaje 3209)

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

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:

 01  BDVARIABLES GLOBAL.
    05  ADO-CONNECTION-TYPE         PIC X(8192) VALUE "ADODB.Connection".  
    05  ADO-RECORDSET-TYPE          PIC X(8192) VALUE "ADODB.Recordset".  
    05  ADO-COMMAND-TYPE            PIC X(8192) VALUE "ADODB.Command".  
    05  OBJ-CONNECTION           OBJECT REFERENCE COM .
    05  OBJ-RECORDSET            OBJECT REFERENCE COM  OCCURS 10.
    05  OBJ-RECORDSETSCHEMA      OBJECT REFERENCE COM.
    05  OBJ-COMMAND              OBJECT REFERENCE COM.
*
    05  OBJ-FIELD                OBJECT REFERENCE COM OCCURS 50.
    05  OBJ-FIELDS               OBJECT REFERENCE COM.
*
    05  OBJ-FIELDS-COUNT            PIC S9(9) COMP-5 VALUE 0.
    05  RECORDCOUNT                 PIC S9(9) COMP-5 VALUE 0.
    05  NUMBER-FIELD                PIC S9(9)V9(9)  VALUE 0.
    05  NUMBER-FIELD-EDT            PIC -(10).9(9).
    05  ALPHA-FIELD                 PIC X(200).
    05  RETURN-ERROR                PIC 9(9) COMP-5.
*
    05  ADO-SQL-CMDTEXT   PIC 9(9) COMP-5 VALUE 1.
    05  WLOCK                       PIC S9(9) COMP-5 VALUE 1.
    05  WCURSOR                     PIC S9(9) COMP-5 VALUE 1.
    05  WOPTION                     PIC S9(9) COMP-5 VALUE -1.
    05  W-INDEX                     PIC 99.
    05  W-INDEX-1                   PIC 99.
    05  EOF                         PIC S9(9) COMP-5.
    05  BOF                         PIC S9(9) COMP-5.

e para abrir:

Código COBOL:

**
***   CREATE OBJECTS NEEDED
**
    INVOKE COM "CREATE-OBJECT" USING ADO-CONNECTION-TYPE
                                     RETURNING OBJ-CONNECTION.
    INVOKE COM "CREATE-OBJECT" USING ADO-COMMAND-TYPE
                                     RETURNING OBJ-COMMAND.
    INVOKE COM "CREATE-OBJECT" USING ADO-RECORDSET-TYPE
            RETURNING OBJ-RECORDSET(1).
**
***  DEFINE AND OPEN CONNECTION
**
    INITIALIZE ADO-CONNECT-STRING.
    STRING   
             "Driver="   ADO-DRIVER   DELIMITED BY ";"  "; " DELIMITED BY SIZE
             "Server="   ADO-SERVER   DELIMITED BY ";"  "; " DELIMITED BY SIZE
             "Port="     ADO-PORT     DELIMITED BY ";"  "; " DELIMITED BY SIZE
             "UID="      ADO-UID      DELIMITED BY ";"  "; " DELIMITED BY SIZE
             "PWD="      ADO-PWD      DELIMITED BY ";"  "; " DELIMITED BY SIZE
             "CHARSET="  ADO-CHARSET  DELIMITED BY ";"  "; " DELIMITED BY SIZE
             "DATABASE=" ADO-DATABASE DELIMITED BY ";"  
             "; "                     DELIMITED BY SIZE
                      INTO ADO-CONNECT-STRING.
*
 MAIN-05.
 
    INVOKE OBJ-CONNECTION "SET-CONNECTIONSTRING" USING ADO-CONNECT-STRING RETURNING RETURN-ERROR.
    IF RETURN-ERROR NOT = 0  DISPLAY "ERRO: CONNECTION STRING" STOP " " GO TO MAIN-99-EXIT.
*
    INVOKE OBJ-CONNECTION "OPEN"     RETURNING RETURN-ERROR.
    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