Ej. Crear ODBC
Publicado por René Roca (2 intervenciones) el 31/03/2005 11:47:11
Saludos a todos.
Para aquellas personas que les interese les dejo aqui un ejemplo de como crear una conexión ODBC desde Power Builder para conectarse a Acces.
CONSTANT STRING _NAME_ODBC = 'PREMAR2' //Nombre ODBC
CONSTANT STRING _PATH_DB = 'C:\PREMAR.MDB' //Nombre Base de Datos
CONSTANT STRING _DRIVER = 'C:\WINDOWS\System32\odbcjt32.dll' //Driver de conexión.
//Creamos entrada para definir el ODBC
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'',RegString!,'')
/* Parametros de configuración ODBC */
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'DBQ',RegString!,_PATH_DB)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'Description',RegString!,'Conexion ODBC')
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'Driver',RegString!,_DRIVER)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'DriverId',ReguLong!,25)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'FIL',RegString!,'MS Access;')
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'SafeTransactions',ReguLong!,0)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'UID',RegString!,'')
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines",'',RegString!,'')
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines\Jet",'',RegString!,'')
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines\Jet",'ImplicitCommitSync',RegString!,'')
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines\Jet",'MaxBufferSize',ReguLong!,2048)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines\Jet",'PageTimeout',ReguLong!,5)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines\Jet",'Threads',ReguLong!,3)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines\Jet",'UserCommitSync',RegString!,'Yes')
/* Entrada en Data Sources para el ODBC */
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources",_NAME_ODBC,RegString!,'Microsoft Access Driver (*.mdb)')
Para aquellas personas que les interese les dejo aqui un ejemplo de como crear una conexión ODBC desde Power Builder para conectarse a Acces.
CONSTANT STRING _NAME_ODBC = 'PREMAR2' //Nombre ODBC
CONSTANT STRING _PATH_DB = 'C:\PREMAR.MDB' //Nombre Base de Datos
CONSTANT STRING _DRIVER = 'C:\WINDOWS\System32\odbcjt32.dll' //Driver de conexión.
//Creamos entrada para definir el ODBC
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'',RegString!,'')
/* Parametros de configuración ODBC */
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'DBQ',RegString!,_PATH_DB)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'Description',RegString!,'Conexion ODBC')
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'Driver',RegString!,_DRIVER)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'DriverId',ReguLong!,25)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'FIL',RegString!,'MS Access;')
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'SafeTransactions',ReguLong!,0)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC ,'UID',RegString!,'')
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines",'',RegString!,'')
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines\Jet",'',RegString!,'')
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines\Jet",'ImplicitCommitSync',RegString!,'')
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines\Jet",'MaxBufferSize',ReguLong!,2048)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines\Jet",'PageTimeout',ReguLong!,5)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines\Jet",'Threads',ReguLong!,3)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\" + _NAME_ODBC + "\Engines\Jet",'UserCommitSync',RegString!,'Yes')
/* Entrada en Data Sources para el ODBC */
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources",_NAME_ODBC,RegString!,'Microsoft Access Driver (*.mdb)')
Valora esta pregunta
0