Insertar registros de fox a Mysql

Hola experto. Te envío un cordial saludo de paz y bien.
Te comento que se me ha presentado un problema:
No he podido guardar información de un formulario a una base de datos MySQL.
La conexión es correcta por que me genera bien las consultas el problema esta en que no guarda. El código que tengo es:
with thisform
var1=.text1.value
var2=.text2.value
var3=.text3.value
insertar=('insert into tabla(codigo,nombre,telefono) values(var1,var2,var3)
SQLEXEC(conexion1,insertar)
endwith
Observación: conexion1 la tengo como variable publica que almacena el valor positivo de la conexión. Te aclaro que esta variable funciona bien.
1

1 respuesta

-1
Respuesta de
Hola amigo para ese problema una solución correcta es una como la siguiente:
Local lcConnectHandle, lcSQLConsulta
lcConnectHandle = SQLConnect("NombreOrigendeDatos")
If lcConnectHandle > 0
lcSQLConsulta = "Select * From NombreTabla"
=SQLexec(lcConnectHandle,lcSQLConsulta, "MiCursor")
* Ahora para actualizar los datos en la tabla de origen
* hay que establecer ciertas propiedades con la función
* CursorSetProp.
=CursorSetProp("Buffering" 5, "MiCursor")
=CursorSetProp("SendUpdates" .T., "MiCursor")
=CursorSetProp("Table", "NombreTabla", "MiCursor")
* Debes establecer todas las demás propiedades con CursorSetProp para
* actualizar la tabla remota Consultar sobre la función
* en la ayuda de Visual FoxPro.
* Ahora se agrega los datos al cursor MiCursor con
* Append From
Select MiCursor
Append From Cursor CursorOrigen
=TableUpdate(.T.)
Endif
Esta es una forma más eficaz de actualizar datos en una tabla remota.
Espero haberme hecho entender y que esto te sirva de ayuda...
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje

Más respuestas relacionadas

¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema Visual Fox Pro o hacer tu propia pregunta: