lcStringCnxLocal = "DRIVER={MySQL ODBC 3.51 Driver};" + ;
"SERVER=localhost;" + ;
"UID=root;" + ;
"PWD=sa;" + ;
"DATABASE=seguridad;" + ;
"OPTIONS='';"
SQLSETPROP(0,"DispLogin" , 3 )
lnHandle = SQLSTRINGCONNECT(lcStringCnxLocal)
IF lnHandle > 0
WAIT Windows 'Generando Datos...' NOWAIT &&el NoWait Muestra y borra luego
cmd = SQLEXEC(lnHandle,"select * from depto","cur_roomtype")
IF cmd > 0
WAIT CLEAR
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
Saludos
Saul Hernandez