SQL VFP
Publicado por DIEGO (41 intervenciones) el 01/09/2005 04:12:45
Hola a todos. estoy con un problema de conexion o mejor dicho de actualizaciond e tablas de sql desde vfp. El tema es que el siguiente codigo me funciona solamente cuando la tabla no tiene campo identity (autonumerico o incremental), de lo contrario no realiza la conexion, alguien puede ayudarme con esto.
Local lcconexion,lcejecutar
lcconexion = Sqlstringconnect("Driver={SQL Server};Server=nombreservidor;Database=nombrebase;Uid=sa;Pwd=clave;")
&& CONSULTANDO EN LA BASE DE DATOS UNA TABLA LLAMADA CLIENTES
lcejecutar = "SELECT * from pruebafox"
sqlexec(lcconexion,"use midatabase;")
If sqlexec(lcconexion,lcejecutar ,"_MyCursor") = 0
Messagebox("No se pudo establecer la conexion",0+64,"Alerta")
Return
Endif
Select _mycursor
Browse && PROBAMOS RESULTADOS DE LA CONSULTA
&& INSERTAR ALGUN VALOR
lcejecutar = "INSERT INTO pruebafox (NOMBRE) VALUES ('joaquin')"
If sqlexec(lcconexion,lcejecutar) < 1
Messagebox("No se pudo realizar la operacion",0+64,"Alerta")
*Return
Endif
Select _mycursor
Browse && PROBAMOS RESULTADOS DE LA CONSULTA
en este codigo el insert es lo que no funciona, alguien sabe porque?????
Gracias
Local lcconexion,lcejecutar
lcconexion = Sqlstringconnect("Driver={SQL Server};Server=nombreservidor;Database=nombrebase;Uid=sa;Pwd=clave;")
&& CONSULTANDO EN LA BASE DE DATOS UNA TABLA LLAMADA CLIENTES
lcejecutar = "SELECT * from pruebafox"
sqlexec(lcconexion,"use midatabase;")
If sqlexec(lcconexion,lcejecutar ,"_MyCursor") = 0
Messagebox("No se pudo establecer la conexion",0+64,"Alerta")
Return
Endif
Select _mycursor
Browse && PROBAMOS RESULTADOS DE LA CONSULTA
&& INSERTAR ALGUN VALOR
lcejecutar = "INSERT INTO pruebafox (NOMBRE) VALUES ('joaquin')"
If sqlexec(lcconexion,lcejecutar) < 1
Messagebox("No se pudo realizar la operacion",0+64,"Alerta")
*Return
Endif
Select _mycursor
Browse && PROBAMOS RESULTADOS DE LA CONSULTA
en este codigo el insert es lo que no funciona, alguien sabe porque?????
Gracias
Valora esta pregunta
0