Conexión a MySQL, ejecutando un SELECT y Actualizando en un servidor remoto

conexion_con_mySQL_remoto.prg

* [ http://rinconfox.com ]
* [email protected]

lcServer  ="vps-1310086-x.dattaweb.com"  
lcUserName="ztestfox"
lcPassword="Password2"
lcDataBase="ztestfox"

lcStringConnect = "DRIVER={MySQL ODBC 3.51 Driver};" ;
                   +"SERVER="  +lcServer  +";" ;
                   +"UID="     +lcUserName+";" ;
                   +"PWD="     +lcPassword+";" ;
                   +"DATABASE="+lcDataBase+";" ;
                   +"OPTIONS=131329;"
SQLSETPROP(0,"DispLogin" , 3 )
lnHandle = SQLSTRINGCONNECT(lcStringConnect)

IF lnHandle>0 THEN
	lnResultado = SQLEXEC(lnHandle,"SHOW TABLES;","crsTablas")
	SELECT crsTablas
	BROWSE NOWAIT

	lnResultado = SQLEXEC(lnHandle,"DESCRIBE contactos;","crsCampos")
	SELECT crsCampos
	BROWSE NOWAIT
	
	lnResultado = SQLEXEC(lnHandle,"SELECT * FROM contactos;","crsContatos")
	SELECT crsContatos
	BROWSE NOWAIT
	
	lcNombre   = 'Juan de los Palotes'
	lcEmpresa  = 'La Gran Casa Chica'
	lcDireccion= 'La Greco Polis'
	lcCiudad   = 'De los Corazones Rotos'
	lcPais     = 'Estados Unidos de Monsambique'
	
	TEXT TO lcStmt TEXTMERGE
		INSERT INTO contactos 
			(nombre, empresa, direccion, ciudad, pais)
		 VALUES
		 	(?lcNombre, ?lcEmpresa, ?lcDireccion, ?lcCiudad, ?lcPais)
	ENDTEXT
	
	IF SQLEXEC(lnHandle, lcStmt) < 0 THEN
		=AERROR(laError)
		STEP ON 
		THROW TRANSFORM(laError[1]) + CHR(13);
			+TRANSFORM(laError[2]) + CHR(13);
			+TRANSFORM(laError[3]) + CHR(13);
			+TRANSFORM(laError[4]) + CHR(13);
			+TRANSFORM(laError[5]) + CHR(13)
	ENDIF
	
	*INSERT INTO crsCustomer (description) VALUES ('no soy nadie')
ELSE
	? AERROR(laError)
	? laError[1]
	? laError[2]
	? laError[3]
	? laError[4]
	? laError[5]
ENDIF

IF lnHandle>0 THEN
	SQLDISCONNECT(lnHandle)
ENDIF