Insertar y actualizar registros de dos BD en Uno

Necesito actualzar e insertar regsitros de dos BD en uno este es mi codigo pero no me funciona que estoy poniendo mal? Estoy trabajando con Visual Fox y MYSQL

conexion = SQLConnect('conexion')
ok = sqlexec(conexion,'select * from producto order by codigo','producto')
INDEX ON codigo TO producto
ok2 = sqlexec(conexion,'select * from producto2 order by codigo','producto2')
INDEX ON codigo TO producto2
ok3 = sqlexec(conexion,'select * from producto3 order by codigo','producto3')
INDEX ON codigo TO producto3
SET STEP ON
* Parado en tabla1, aca se añadiran los no existentes
SELE producto2
SCAN
IF SEEK(producto2.codigo,'producto')
*REPLACE cantidad WITH cantidad + producto2.cantidad IN producto
ok = sqlexec(conexion, "UPDATE producto, producto2 SET producto.cantidad = (producto2.cantidad + producto.cantidad) WHERE producto.codigo= producto2.cantidad")
ELSE
ok = sqlexec(conexion, "INSERT INTO producto(codigo,cantidad) VALUES(producto2.codigo,producto2.cantidad")
ENDIF
ENDSCAN
* Ahora se actualizaran de la tabla3
SELE producto3
SCAN
IF SEEK(producto3.codigo,'producto')
REPLACE cantidad WITH cantidad + producto3.cantidad IN producto
ELSE
INSERT INTO producto(codigo,cantidad) VALUES(producto3.codigo,producto.cantidad)
ENDIF
ENDSCAN
*
CLOSE TABLE ALL
RETURN

Añade tu respuesta

Haz clic para o