Bueno bueno la verdad debes crear varias cosas los de arriba del ejemplo de Oscar son los correcto ahora comienzo lo divertido y es la conexion del mismo al servidor comienza a crear un DNS
sin conexion al DNS
lcServer="Direccion del servidor"
lcDtabase="Nombre vase datos"
lcUser="id usuraio"
lcPassword="contraseña"
lcStringConn="Driver={MySQL ODBC 3.51 Driver};port=3306"+;
";server="+lcServer+;
";Database="+lcDtabase+;
";Uid="+lcUser+;
";Pwd="+lcPassword
*el código siguiente evita que aparezca la ventana de login
SQLSETPROP(0,"DispLogin",3)
lnHandle=SQLSTRINGCONNECT(lcStringConn)
IF lnHandle>0
MESSAGEBOX("conexión realizada")
ELSE
=AERROR(laError)
MESSAGEBOX("Error de conexión"+CHR(13)+"descripción:"+laError[2])
ENDIF
El DNS
DECLARE Integer SQLConfigDataSource in odbccp32.dll;
Integer, Integer, String, String
#DEFINE ODBC_ADD_DSN 1
hwndParent = 0
fRequest = ODBC_ADD_DSN
lpszDriver = "MySQL ODBC 3.51 Driver"
lpszAttributes = "DSN=UAMMANTE" + CHR(0) +;
"Description=Conexión con MySQL usando ODBC" + CHR(0) +;
"DATABASE=titulacion1_refaccionaria" + CHR(0) +;
"SERVER=148.237.193.68"+ CHR(0) +;
"UID=titulacion1" + CHR(0) +;
"PWD=titulacion1"
LOCAL lRet
lRet = SQLConfigDataSource(hwndParent, fRequest,;
lpszDriver, lpszAttributes)
IF lRet > 0 THEN
?"DSN creado!!"
ELSE
?"Error al crear"
ENDIF
Ejemplo de cmo se actaliza una tabla
clear
cadena="202"
cadena2="bomba de agua "
cadena3="lkii"
cadena4="linea k 82-88 4 cil 2.2.2.5"
cadena5="178.80"
cadena6=""
cadena7=""
lcadena="UPDATE articulos SET descripcion=" + "'" +cadena2+ "'" +",";
+"aplicacion=" + "'" +cadena3+ "'" + ",";
+"equivalencia="+ "'" +cadena4+ "'" + ",";
+"precio=" +cadena5+ "," ;
+"disponible=" + "'"+cadena6+"'" + "," ;
+"marca="+"'"+cadena7+"'"+" WHERE articulos.clave_articulo="+cadena
?lcadena
?SQLEXEC(hCnxMySQL,lcadena)
