RE: Crear odbc por código

Espero les sirva....


parte 1
// este código debe ir en el open de la aplicación está en dos partes
int li_respuesta
String ls_path
// Profile personal
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=personal;UID=dba;PWD=sql', MsgTerse = 'Yes'"

CONNECT USING SQLCA;
li_respuesta = sqlca.sqlcode // sie es que no existe el odbc devuelve un error -1

IF li_respuesta = -1 THEN // entonces crea el odbc
ls_path='HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\personal\' //path del registry
RegistrySet( ls_path,"AutoStop", RegString!,"YES")
RegistrySet( ls_path,"DatabaseFile", RegString!,"\\servidor\d\bdd\PERSONAL.DB") // ubicación de la base de datos
RegistrySet( ls_path,"CommLinks", RegString!,"TCPIP{}") // protocolo network que utilizas
RegistrySet( ls_path,"Description", RegString!,"personal") // nombre del odbc
RegistrySet( ls_path,"Driver", RegString!,"C:\personal\dbodbc6.dll") // driver de la base de datos, ten en cuenta que este archivo esté ubicado en la ruta que establezcas
RegistrySet( ls_path,"Integrated", RegString!,"NO")
RegistrySet( ls_path,"EngineName", RegString!,"servicio1") // nombre del servicio de anywhere
RegistrySet( ls_path,"UID", RegString!,"dba")
RegistrySet( ls_path,"PWD", RegString!,"sql")

//vuelve a conectarse
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=personal;UID=dba;PWD=sql', MsgTerse = 'Yes'"
CONNECT USING SQLCA;
li_respuesta = sqlca.sqlcode
IF li_respuesta = -1 THEN // este error puede ser porque no están bien todos los parámetros del odbc
messagebox("ERROR","LLAME AL ADMINISTRADOR DEL SISTEMA",StopSign!)
RETURN
END IF
END IF

Fabio Pacheco Quiroz
Movistar : (51) 962621103

RPM : #0047115

Trujillo - Perú

---

Date: Thu, 13 Aug 2015 14:07:56 -0430
Subject: Re: Crear odbc por código
From: syscom.vzla@gmail.com
To: techeraz9@googlegroups.com

Debe ser Un Origen de Datos de Usuario del ODBC.

El 13 de agosto de 2015, 13:06, Rafael Consuegra García <rafael.consuegra@gmail.com> escribió:

Como asi que crear un ODBC ?​

El 13 de agosto de 2015, 10:58, Beto <betocuevas.net@gmail.com> escribió:

Hola a todos, es posible crear desde código en PowerBuilder 12.5 un odbc? si alguien lo ha hecho podria ayudarme por favor.

Saludos.

--

---
Has recibido este mensaje porque estás suscrito al grupo "TechEra" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a techeraz9+unsubscribe@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.

--

Ing. Rafael Consuegra García
Especialista en Gerencia Financiera (FUAC)

Código Postal No.: 111031
Colombia

--

---
Has recibido este mensaje porque estás suscrito al grupo "TechEra" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a techeraz9+unsubscribe@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.

--

---
Has recibido este mensaje porque estás suscrito al grupo "TechEra" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a techeraz9+unsubscribe@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.