Error al Pasar datos de Vfp9 a Sql2000 server
Estimado Experto
de un momento a otro cuando intento Insertar o actualizar datos me ha empezado a parecerte este mensaje de error que la verdad no entiendo por que:
se necesita el parámetro de la instrucción sql para las llamadas SQLEXEC() no preparadas.
El código que uso es el siguiente:
= SQLSETPROP(CnxEos, 'Wcadena1A', .F.)
Wcadena1A="UPDATE Age_Eos SET Age_Eos.Cat_Doc ='"+Xcat+"',Age_Eos.Dni_Doc ='"+Age_Eos.Dni_Doc+"',;
Age_Eos.Dat_Doc ='"+Age_Eos.Dat_Doc+"',Age_Eos.Ruc_Doc ='"+Age_Eos.Ruc_Doc+"',;
Age_Eos.Cur_Doc ='"+Age_Eos.Cur_Doc+"',Age_Eos.Sed_Doc ='"+Age_Eos.Sed_Doc+"',;
Age_Eos.Car_Doc ='"+Age_Eos.Car_Doc+"',Age_Eos.Aul_Doc ='"+Age_Eos.Aul_Doc+"',;
Age_Eos.Uge_Doc ='"+Age_Eos.Uge_Doc+"',Age_Eos.Niv_Doc ='"+Age_Eos.Niv_Doc+"',;
Age_Eos.Tot_Doc ='"+Age_Eos.Tot_Doc+"' WHERE Age_Eos.Gen_Doc ='"+Age_Eos.Gen_Doc+"'"
=SQLEXEC(CnxEos,Wcadena1A)
IF SQLEXEC(CnxEos,Wcadena1A) > 0
*** Actualizados con éxito
*** Messagebox("Datos actualizados con éxito")
ELSE
IF AERROR(laError) > 0
Messagebox("Error al actualizar el registro:"+laError[2])
ELSE
Messagebox("Error inesperado!!")
ENDIF
ENDIF
Mil Gracias
1 respuesta
Por que no pruebas con algo sencillo y luego vas de a poquito aumentando campos tal vez el error esta en la concatenación de las variables
Estimado amigo ya probé con 4 campos y me sigue dando el mismo error que otra cosa me sugieres. Mil Gracias
Probar solo con un campo
Si funciona adiciono otro hasta encontrar donde esta la falla de la sintaxis si no funciona ni con uno debe analizar loa sintaxis solo de ese pequeño code que esta mal escrito cuando funcione con un campo podrás seguir
