Problemas a grabar campos en Blancos en el Sql
Publicado por Jesus (121 intervenciones) el 28/05/2015 06:04:06
Estimados Amigos de nuevo molestandolos esta vez tengo el problema q cuando se envian campos en Blanco
desde un formulario de Vfp a Sql, para actualizar datos me sale este error: SE NECESITA EL PARAMETRO DE LA INSTRUCCION SQL PARA LAS LLAMADAS SQLEXEC() NO PREPARADAS.
pero cuando todos los campos estan llenos actualiza sin problemas.
y no se q hacer ayuda por favor.
En el Init del Formulario he puesto :
Set NullDisplay To ""
y Procedimiento de enviar campos del Vfp a SqlServer es el siguiente:
= TABLEUPDATE(.T.)
Wcadena2="UPDATE Exp_Std SET Exp_Std.Fre_Exp ='"+Allt(Thisform.Fre_Exp.Value)+"',;
Exp_Std.Tdc_Exp ='"+Allt(Thisform.Tdc_Exp.Value)+"',Exp_Std.Ndc_Exp ='"+Allt(Thisform.Ndc_Exp.Value)+"',;
Exp_Std.Ate_Exp ='"+Allt(Thisform.Ate_Exp.Value)+"',Exp_Std.Est_Exp ='"+Allt(Thisform.Est_Exp.Value)+"',;
Exp_Std.Otr_Exp ='"+Allt(Thisform.Otr_Exp.Value)+"' WHERE Exp_Std.Nrd_Exp ='"+Allt(Thisform.Nrd_Exp.Value)+"'"
=SQLEXEC(CnxStd,Wcadena2)
IF SQLEXEC(CnxStd,Wcadena2) > 0
*** Actualizados con exito
*** Messagebox("Datos actualizados con éxito")
ELSE
IF AERROR(laError) > 0
Messagebox("Error al actualizar el registro:"+laError[2])
ELSE
Messagebox("Error inesperado!!")
ENDIF
ENDIF
De antemano mil Gracias por su Pronta Ayuda como siempre lo hacen
desde un formulario de Vfp a Sql, para actualizar datos me sale este error: SE NECESITA EL PARAMETRO DE LA INSTRUCCION SQL PARA LAS LLAMADAS SQLEXEC() NO PREPARADAS.
pero cuando todos los campos estan llenos actualiza sin problemas.
y no se q hacer ayuda por favor.
En el Init del Formulario he puesto :
Set NullDisplay To ""
y Procedimiento de enviar campos del Vfp a SqlServer es el siguiente:
= TABLEUPDATE(.T.)
Wcadena2="UPDATE Exp_Std SET Exp_Std.Fre_Exp ='"+Allt(Thisform.Fre_Exp.Value)+"',;
Exp_Std.Tdc_Exp ='"+Allt(Thisform.Tdc_Exp.Value)+"',Exp_Std.Ndc_Exp ='"+Allt(Thisform.Ndc_Exp.Value)+"',;
Exp_Std.Ate_Exp ='"+Allt(Thisform.Ate_Exp.Value)+"',Exp_Std.Est_Exp ='"+Allt(Thisform.Est_Exp.Value)+"',;
Exp_Std.Otr_Exp ='"+Allt(Thisform.Otr_Exp.Value)+"' WHERE Exp_Std.Nrd_Exp ='"+Allt(Thisform.Nrd_Exp.Value)+"'"
=SQLEXEC(CnxStd,Wcadena2)
IF SQLEXEC(CnxStd,Wcadena2) > 0
*** Actualizados con exito
*** Messagebox("Datos actualizados con éxito")
ELSE
IF AERROR(laError) > 0
Messagebox("Error al actualizar el registro:"+laError[2])
ELSE
Messagebox("Error inesperado!!")
ENDIF
ENDIF
De antemano mil Gracias por su Pronta Ayuda como siempre lo hacen
Valora esta pregunta


0