Aplicaciones Portable En Visual Foxpro

1. Bajar el ODBC de MySql (la versión en zip).




2. Separar el archivo myodbc5.dll y myodbc5.lib (en mi caso particular yo los renombro para no interferir con algún ODBC MySQL que yahaya sido instalado)




3. Agregar el siguiente código en tu aplicación (yo lo pongo a modo de procedimiento para llamarlo desde el prg principal) :




Procedure RegODBCvarrt=Sys(5)+Curdir()+"myodbc5.dll"
Public RESULT
RESULT=0
Display=0


#Define HKEY_LOCAL_MACHINE 2147483650 && (HKEY) 0x80000002
#DefineSECURITY_ACCESS_MASK 983103 && SAM value KEY_ALL_ACCESS




Declare RegCreateKeyEx In ADVAPI32.Dll Integer,String,Integer,String,Integer,Integer,Integer,
Integer @, Integer @Declare RegSetValueEx In ADVAPI32.Dll Integer,String,Integer,Integer,String,Integer


RegCreateKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\ODBC\ODBCINST.INI\ESoft Driver",0,"REG_SZ",0,SECURITY_ACCESS_MASK,0,@RESULT,@Display) && Returns .T. if successful
RegSetValueEx(RESULT,"Driver",0,1,varrt,Len(Alltrim(varrt)))
RegSetValueEx(RESULT,"Setup",0,1,varrt,Len(Alltrim(varrt)))RegCreateKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\ODBC\ODBCINST.INI\Esoft",0,"REG_SZ", 0,SECURITY_ACCESS_MASK,0,@RESULT,@Display) && Returns .T. if successfulRegSetValueEx(RESULT,"Driver",0,1,varrt,Len(Alltrim(varrt)))
RegSetValueEx(RESULT,"Setup",0,1,varrt,Len(Alltrim(varrt)))


RegCreateKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers",0,"REG_SZ",0,SECURITY_ACCESS_MASK,0,@RESULT,@Display) && Returns .T. if successful
RegSetValueEx(RESULT," MySQL ODBC 3.51",0,1,"Installed",13)
RegSetValueEx(RESULT," MySQL ODBC 3.51 Driver",0,1,"Installed",13)
Endproc






4. Usar la rutina creación de la conexión usando el odbc registrado (lo llamo después del registro del odbc en el prg) :

Procedure DriverX...