Actualizar datos acces
Publicado por yovanny (39 intervenciones) el 09/07/2009 20:27:15
Hola a todos, tengo una rutina para abrir una base de datos de acces, pero no consigo que los cambios que realizo queden grabados en la base de datos.
lcArchivoMDB="d:dbcdata.mdb" && Mi base de Access
lcConnStrin="DSN=MS Access Database;Dbq="+lcArchivoMDB+";Uid=;Pwd=;" && Estos datos dependen de la configuración del ODBC
lnNHandle = SQLSTRINGCONNECT(lcConnStrin,.T.) && Realizamos la conexión
IF lnNHandle > 0 && Si el resultado no es negativo, la conexión fue exitosa
* extrear informacion
SQLEXEC(lnNHandle,"ALTER TABLE tbl_show_room_productos ADD COLUMN ORDEN TEXTO(15)")
lcSQL = "select * from tbl_show_room_productos"
lcCursor = "ARTICULO"
SQLEXEC(lnNHandle,lcSQL,lccursor)
* Dejar campo LEIDO COMO .T.
LcTxUpdate="update tbl_show_room_productos set leido=(1=1) where idcliente=22"
sqlexec(LnNHandle,LcTxUpdate)
edit
*-* Cerramos la conexión
SQLDISCONNECT(lnNHandle)
endif
No se que rutina puedo hacer para que por ejemplo en el campo codigo se quede grabado esta informacion "001001"
Gracias anticipadas
lcArchivoMDB="d:dbcdata.mdb" && Mi base de Access
lcConnStrin="DSN=MS Access Database;Dbq="+lcArchivoMDB+";Uid=;Pwd=;" && Estos datos dependen de la configuración del ODBC
lnNHandle = SQLSTRINGCONNECT(lcConnStrin,.T.) && Realizamos la conexión
IF lnNHandle > 0 && Si el resultado no es negativo, la conexión fue exitosa
* extrear informacion
SQLEXEC(lnNHandle,"ALTER TABLE tbl_show_room_productos ADD COLUMN ORDEN TEXTO(15)")
lcSQL = "select * from tbl_show_room_productos"
lcCursor = "ARTICULO"
SQLEXEC(lnNHandle,lcSQL,lccursor)
* Dejar campo LEIDO COMO .T.
LcTxUpdate="update tbl_show_room_productos set leido=(1=1) where idcliente=22"
sqlexec(LnNHandle,LcTxUpdate)
edit
*-* Cerramos la conexión
SQLDISCONNECT(lnNHandle)
endif
No se que rutina puedo hacer para que por ejemplo en el campo codigo se quede grabado esta informacion "001001"
Gracias anticipadas
Valora esta pregunta
0