//Realizar las entradas a la base de datos en el registro de windows ODBC
//probado en windows 98 y 2000
string cbase='base_de_datos' //nombre de la base de datos
integer intr
intr=RegistrySet( "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+cbase, "Driver", RegString!, "C:\Sybase\SQL Anywhere 5.0\win32\wod50t.dll")
intr=RegistrySet( "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+cbase, "Description", RegString!, cbase)
intr=RegistrySet( "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+cbase, "Start", RegString!, "C:\SYBASE\SQL ANYWHERE 5.0\WIN32\dbeng50.exe")
intr=RegistrySet( "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+cbase, "DatabaseFile", RegString!, "C:\orifpc\datos\"+cbase+".db")
intr=RegistrySet( "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+cbase, "DatabaseName", RegString!, cbase)
intr=RegistrySet( "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+cbase, "AutoStop", RegString!, "yes")
intr=RegistrySet( "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+cbase, "Agent", RegString!, "engine")
messagebox("DATOS ODBC",intr)
// intr es -1 si no se grabo bien
un saludo.