Problemas con SQLEXEC no puedo guardar
Publicado por Abel (1 intervención) el 04/06/2015 18:27:07
Buenas amigos, no se porque no me permite guardar, al finalizar me dice que se guardo pero no guarda enla tabla sql, si es que hay alguien que pueda ayudarme seria genial, soy nuevo en este mundo de la programacion en FOX, pero me gusta. espero que alguien me ayude, gracias desde ya.
al declarar cod_usuario
y en value v_usuario no me acepta grabar
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
vfechaing = Thisform.vfechaing.Value
vidcliente = Thisform.vidcliente.Value
vfechanac = Thisform.vfechanac.Value
vcinro = Thisform.vcinro.Value
vnombre = Thisform.vnombre.Value
vapellido = Thisform.vapellido.Value
vtelfijo = Thisform.vtelfijo.Value
vdireccion = Thisform.vdireccion.Value
vemail = Thisform.vemail.Value
vfax = Thisform.vfax.Value
vmovil = Thisform.vmovil.Value
vweb = Thisform.vweb.Value
If vmodifi = 0
SQLExec(bd, "Insert into cliente (fechaing, idcliente, cinro, nombre, apellido, fechanac, telfijo, direccion, email, fax, movil, web, cod_usuario);
Values (?vfechaing, ?vidcliente, ?vcinro, ?vnombre, ?vapellido, ?vfechanac, ?vtelfijo, ?vdireccion, ?vemail, ?vfax, ?vmovil, ?vweb, v_usuario)")
=Messagebox("REGISTRO GRABADO...",0+64+0,"INFORMACION DEL SISTEMA")
SQLExec(bd, "SELECT * FROM cliente","cliente")
Index On idcliente To &vabmarc
Thisform.limpiar()
Thisform.ultimo()
Thisform.vidcliente.Enabled= .F.
Thisform.Refresh
Else
SQLExec(bd, "UPDATE ciudad set nombre = ?vnombre, cod_usuario = ?v_usuario where cinro = ?vcinro")
=Messagebox("REGISTRO MODIFICADO CORRECTAMENTE...", 0+64+0, "INFORMACION DEL SISTEMA")
SQLExec(bd, "SELECT * FROM cliente","cliente")
Thisform.limpiar()
Thisform.ultimo()
Thisform.vcinro.Enabled = .F.
Endif
al declarar cod_usuario
y en value v_usuario no me acepta grabar
Valora esta pregunta
0