RE:asesoramiento
Publicado por
freecalls (1 intervención) el 09/07/2009 17:58:29
bueno es muy facil aqui te paso el codigo:
lcConnStrin="DRIVER={MySQL ODBC 3.51 Driver};" + ; && Llamo el Driver de Mysql
"SERVER=" + SERVIDOR + ";" + ;
"UID=" + USUARIO + ";" + ;
"PWD=" + CONTRASENA + ";" + ;
"DATABASE=" + BASE + ";" + ;
"OPTIONS=131329;"
&& Estos datos dependen de la configuración del ODBC
lnHandle = SQLSTRINGCONNECT(lcConnStrin) && Realizamos la conexión
IF lnHandle <= 0 && Si el resultado no es negativo, la conección fue exitosa
MESSAGEBOX("No Se Puede Conectar a La Base",16,SYS(0))
ENDIF
=SQLSETPROP(lnHandle, 'Transactions', 1)
Bueno una para ejecutar una consulta solo hay que ejecutar
sqlexec(lnHandle,"select * from tabla","tabla1")
&& lnHandle = es el id de conexion
&& luego va la consulta
&& tabla1: es el cursor que se crea. en donde esta el resultado de la consulta.