FoxPro/Visual FoxPro - Problemas con el SQLEXEC()

 
Vista:
sin imagen de perfil
Val: 69
Ha aumentado 1 puesto en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Problemas con el SQLEXEC()

Publicado por Jesus (121 intervenciones) el 29/12/2013 01:16:17
Estimados amigos de nuevo molestando ahora tengo este problema q al momento q quiero Grabar o Actualizar datos desde el Vfp9 al Sql2000 Server me sale este mensaje de Error: "Se necesita el parametro de la instruccion SQL para las llamadas SQLEXEC() no preparadas"

Cuando deseo Grabarr datos utilizo este codigo:
Select Tmp_Eos
Go Top
Do While !Eof()

= TABLEUPDATE(.T.)
Xsql4 ="Insert Into Age_Eos(Gen_Doc, Cat_Doc, Dni_Doc, Dat_Doc, Ruc_Doc, Cur_Doc, Htr_Doc, Phr_Doc, Imp_Doc, Tot_Doc) Values('"+ALLTRIM(Thisform.Gen_Doc.Value)+"','"+Tmp_Eos.Cat_Doc+"',;
'"+Tmp_Eos.Dni_Doc+"','"+Tmp_Eos.Dat_Doc+"','"+Tmp_Eos.Ruc_Doc+"','"+Tmp_Eos.Cur_Doc+"',;
'"+Tmp_Eos.Htr_Doc+"','"+Tmp_Eos.Phr_Doc+"','"+ALLTRIM(STR(Tmp_Eos.Imp_Doc,9,2))+"',;
'"+ALLTRIM(STR(Thisform.Tot_Doc.Value,9,2))+"')"

If Sqlexec(CnxEos,Xsql4)>0
Else
a=Aerror(Mat)
Messagebox(Mat(2),55,'Error al Grabar')
ENDIF

Sele Tmp_Eos
Skip
ENDDO

**********************************
Cuando deseo actualizar datos utilizo este codigo:
= TABLEUPDATE(.T.)
Xsql3="UPDATE Age_Eos SET Age_Eos.Dni_Doc ='"+Allt(Age_Eos.Dni_Doc)+"',;
Age_Eos.Dat_Doc ='"+Allt(Age_Eos.Dat_Doc)+"' WHERE Age_Eos.Gen_Doc ='"+Allt(Age_Eos.Gen_Doc)+"'"
=SQLEXEC(CnxAst,Xsql3)

IF SQLEXEC(CnxAst,Xsql3) > 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

Gracias por su pronta Ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder