Remplazar y Eliminar un Datos desde Vfp a Sql2000 Serv
Estimado amigo estoy tratando de reemplazar un dato de 3 registro desde Vfp a una tabla que esta en Sql2000 Server y en otro caso desearía desde Vfp también borrar un dato que esta también almacenado en un tabla de mi sql 2000 server.
Yo para insertar datos desde Vfp a Sql2000 estoy haciendo lo siguiente:
Sele Ord_Stk
Go Top
Do While !Eof()
Xcnx3="Insert Into Ing_Alm(Gen_Ing, Est_Ing, Tip_Ing, Doc_Ing, Fec_Ing, Nom_Prv, Dep_Ing, Ref_Ing, For_Ing, Ent_Ing);
Values ('"+Ord_Stk.Gen_Ord+"','"+Ord_Stk.Est_Ord+"','"+Ord_Stk.Tip_Ord+"','"+Xdoc+"','"+Ord_Stk.Fec_Ord+"',;
'"+Ord_Stk.Nom_Prv+"','"+Ord_Stk.Dep_Ord+"','"+Ord_Stk.Ref_Ord+"','"+Ord_Stk.For_Ord+"','"+Ord_Stk.Ent_Ord+'')"
If Sqlexec(CnxStk,Xcnx3)>0
Else
a=Aerror(Mat)
Messagebox(Mat(2), 55,'Error al Grabar')
Endif
Sele Ord_Stk
Skip
EndDo
Y me graba bien pero el problema es como hago para reemplazar o borrar algún dato.
Ayuda por favor.
Jechu
Yo para insertar datos desde Vfp a Sql2000 estoy haciendo lo siguiente:
Sele Ord_Stk
Go Top
Do While !Eof()
Xcnx3="Insert Into Ing_Alm(Gen_Ing, Est_Ing, Tip_Ing, Doc_Ing, Fec_Ing, Nom_Prv, Dep_Ing, Ref_Ing, For_Ing, Ent_Ing);
Values ('"+Ord_Stk.Gen_Ord+"','"+Ord_Stk.Est_Ord+"','"+Ord_Stk.Tip_Ord+"','"+Xdoc+"','"+Ord_Stk.Fec_Ord+"',;
'"+Ord_Stk.Nom_Prv+"','"+Ord_Stk.Dep_Ord+"','"+Ord_Stk.Ref_Ord+"','"+Ord_Stk.For_Ord+"','"+Ord_Stk.Ent_Ord+'')"
If Sqlexec(CnxStk,Xcnx3)>0
Else
a=Aerror(Mat)
Messagebox(Mat(2), 55,'Error al Grabar')
Endif
Sele Ord_Stk
Skip
EndDo
Y me graba bien pero el problema es como hago para reemplazar o borrar algún dato.
Ayuda por favor.
Jechu
1 Respuesta
Respuesta de h_agustin
1
Pues por lo que puedo ver en tu código tienes una función llamada sqlexec que recibe un parámetro conexión y otro con la instrucción sql, pues puedes reutilizarlo pero en lugar de la instrucción insert into, usarás
Delete from "nombre tabla" where Tip_Ing=1 and Fec_Ing < getdate()
Por ejemplo
Delete from "nombre tabla" where Tip_Ing=1 and Fec_Ing < getdate()
Por ejemplo
