Ayuda Insert into VFP y Access
******************************************
*CONEXION CON : Microsoft Access Driver *
******************************************
function AbreDatos
cStrConn = "DRIVER={Microsoft Access Driver (*.mdb)};" +;
"Dbq=tubasededatos.mdb.;" +;
"Uid=tuusuario;" +;
"Pwd=tucontraseña;"
cnn= SQLSTRINGCONNECT(cStrConn)
If ! cnn > 0
=MessageBox("No fue posible conectarse a la Base de Datos de Acces")
EndIf
**********FINAL DE LA CONEXION DE ACCESS
************************************
* funcion para Cerrar Datos
***********************************
FUNCTION cierradatos()
SQLDISCONNECT(Cnn)
Endfun
*********************************
* funcion para grabar en xTabla de tu BD de Access
***********************************
lcSql="INSERT into xtabla(campo1,campo2,campox) VALUES(?var1,"+;
"?var2,?varx)"
SET PROCEDURE TO FUNCIONES
=AbreDatos()
TRY
=SQLEXEC(cnn,lcSql)
=SQLSETPROP(cnn,'Transactions',2)
=SQLCOMMIT(cnn)
CATCH
**********************
* Borrar DAtos
**********************
lcSql="Delete from xTabla where xCampo=?Var
SET PROCEDURE TO FUNCIONES
=AbreDatos()
TRY
=SQLEXEC(cnnlcSql)
=SQLSETPROP(cnn,'Transactions',2)
=SQLCOMMIT(cnn)
CATCH
**********************
* Actualizar DAtos
**********************
lcSql="Update From xTabla set xCampo=?Var
SET PROCEDURE TO FUNCIONES
=AbreDatos()
TRY
=SQLEXEC(cnn,lcSql)
=SQLSETPROP(cnn,'Transactions',2)
=SQLCOMMIT(cnn)
CATCH
********************************
espero te sirva de algo amigo...