Foro de programacion

Iniciado por hiranaka

Espero que alguien me pueda ayudar en mi problema.
Lo que no puedo es añadir registros en una base de datos existente. La base de datos está en dbase IV, ya puedo buscar y utilizar los datos de la base, pero no puedo añadir más registros.

Traté de utilizar ADDNEW pero me saca un error que dice que "no se puede actualizar. Base de datos u objeto sólo de lectura".

A continuación escribo las primeras líneas de lo que hice.

Dim dbsTemp As Database
Dim tablaLink As TableDef
Dim recLink As Recordset

Set dbsTemp = OpenDatabase("DB1.mdb")

Set tablaLink = dbsTemp.CreateTableDef("dBASETable")
tablaLink.Connect = "dBase IV;DATABASE=C:\Programas"
tablaLink.SourceTableName = "Directorio"
dbsTemp.TableDefs.Delete "dBASETable"
dbsTemp.TableDefs.Append tablaLink

Set recLink = dbsTemp.OpenRecordset("SELECT*FROM dBASETable")

recLink.MoveLast
recLink.AddNew
recLink.Fields(0) = Trim(InputBox("Introduzca el nombre"))
recLink.Update


HOLA CREO QUE TU PROBLEMA ESTA EN QUE TIENES QUE TENER TU BD COMO OPTIMISTIC
¿Me pueden ayudar?