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