[Sintaxis] Sql Embebido

[Josber]

❞ 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:

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

[dmosca]

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

[Joseg]

❞ 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: 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 ----------

❞ 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

[Rapinto]

DMOSCA,

Não sei se é isto que pretendes:

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

 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:

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