PUBLIC lnHandle
lcStringCnxLocal = "DRIVER={mysql ODBC 5.1 Driver};" + ;
"SERVER=127.0.0.1;" + ;
"UID=root;" + ; && es el nombre del usuario
"PWD=admin;" + ; && es el password
"DATABASE=dbtecno;" + ; && nombre de la base de datos
"OPTIONS=131329;" && puerto de coneccion
SQLSETPROP(0,"DispLogin" , 3 )
lnHandle = SQLSTRINGCONNECT(lcStringCnxLocal)
*--- aqui hago un select de la tabla alumnos de la base de datos dbtecno
*-- podemos hacer inser, update, delete, etc
*-- - funciona 100 % oviamente debemos tener creado la base de datos en MySQL 5.0 y con el *---- usuario y password correspondiente.
IF lnHandle > 0
cmd = SQLEXEC(lnHandle,"select * from alumnos","cur_roomtype")
IF cmd > 0
BROWSE
ELSE
AERROR(laErr)
MESSAGEBOX("No se pudo conectar a mySQL. Error: " + CHR(13) + laErr[2])
ENDIF
USE IN cur_roomtype
* SQLDISCONNECT(lnHandle)
ELSE
AERROR(laErr)
MESSAGEBOX("No se pudo conectar a mySQL. Error: " + CHR(13) + laErr[2])
ENDIF