RE:Archivos de Base de Datos y PB 70
Esta opción te crea en el registro de Windows el ODBC
String ls_path, &
ls_reg_dsn, &
gs_start = "C:\Archivos de programa\Sybase\Adaptive Server Anywhere 6.0\win32\dbeng6.exe"
String gs_odbcfile = "C:\Archivos de programa\Sybase\Adaptive Server Anywhere 6.0\win32\dbodbc6.dll"
ls_path = 'HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\Nombre DSN\' //path del registry
RegistryGet(ls_path, "Description", RegString!, ls_reg_dsn)
RegistrySet( ls_path,"Start", RegString!, gs_start) // nombre del servicio de anywhere
RegistrySet( ls_path,"DatabaseFile", RegString!, 'Nombre BD') // base de datos
RegistrySet( ls_path,"AutoStop", RegString!,"YES")
RegistrySet( ls_path,"CommLinks", RegString!,"TCPIP{}") // protocolo red utilizado
RegistrySet( ls_path,"Description", RegString!, dsn) // nombre del odbc
RegistrySet( ls_path,"Driver", RegString!, gs_odbcfile) // 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!, "Nombre Servidor BD") // nombre del servicio de anywhere