Act datos

SET DELETED ON
SET exclu off
SET MULTILOCKS on
*----
* Base de datos en DBF
OPEN DATABASE w:\peah SHARED
*----
* Me conecto al servidor MySql
lcStringCnxLocal = "DRIVER={MySQL ODBC 5.1 Driver};" + ;
"SERVER=localhost;" + ;
"UID=root;" + ;
"PWD=AC826488;" + ;
"DATABASE=peah;"
lnHandle = SQLSTRINGCONNECT(lcStringCnxLocal)
*---
* Creo un cursor para transferir los datos
SELECT Maestro_documento.cod_doc, Maestro_documento.nombre AS DSC_DOC;
FROM peah!maestro_documento;
ORDER BY Maestro_documento.cod_doc;
INTO CURSOR m_doc
arch01=SELECT()
*---
* Consistencia de Conectividad
IF lnHandle > 0
cmd = SQLEXEC(lnHandle,"select * from documentos","m_doc01")
IF cmd > 0
MESSAGEBOX("Conectado a mySQL. Tabla: " + "m_doc01")
arch02=SELECT()
INDEX ON cod_doc TAG cod
ELSE
AERROR(laErr)
MESSAGEBOX("No se pudo conectar a mySQL. Error: " + CHR(13) + laErr[2])
ENDIF

ELSE
AERROR(laErr)
MESSAGEBOX("No se pudo conectar a mySQL. Error: " + CHR(13) + laErr[2])
ENDIF
*---
* Leo los registros en DBf y lo quiero pasar a mis datos remotos en Mysql
* Pero no logor actualizar el cursos remoto "Documentos"
SELECT (arch01)
SCAN ALL
SCATTER memvar
SELECT (arch02)
SEEK M.COD_DOC
IF !FOUND()
APPEND BLANK
GATHER MEMVAR
=TableUpdate(.T.)
varsql ="INSERT INTO peah.documentos value(m.cod_doc,m.dsc_doc"
=SQLEXEC(lnHandle,varsql)
=SQLCOMMIT(lnHandle)
ENDIF
ENDSCAN
*---
USE IN m_doc01
=SQLDISCONNECT(lnHandle)