access y visual
Publicado por haydee (1 intervención) el 06/12/2006 00:39:46
hola.mil gracias antes por la ayuda.
mi problema es el siguiente.tengo este codigo el cual crea perfectamente mi base de datos.pero, cuando abro esa base de datos dice q esta en una version anterior al access q tengo en mi maquina, q si quiero convertirla o abrirla, etc.
necesito q al crearse lo haga en la version actual de mi access 2000 en directo.sin convertirla, ya q luego al recuperar ese respaldo contra otra base de datos ya creada en access 2000 me da errores de datos.
ah y necesito crearla al access 2000 o convertirla es por codigo en visual basic 6.0.ya q el usuario final jamas entra a la base de datos creada.son procesos transparentes para el.
agradecida estare.
nombrerespaldo = InputBox("Introduzca el nombre del respaldo ")
Set MiWorkspace = DBEngine.Workspaces(0)
ruta = "C:\PFP\Respaldo Juridica\" & nombrerespaldo & ".mdb"
Set MiBaseDeDatos = MiWorkspace.CreateDatabase(ruta, dbLangGeneral)
Set MiBaseDeDatos = Nothing
mi problema es el siguiente.tengo este codigo el cual crea perfectamente mi base de datos.pero, cuando abro esa base de datos dice q esta en una version anterior al access q tengo en mi maquina, q si quiero convertirla o abrirla, etc.
necesito q al crearse lo haga en la version actual de mi access 2000 en directo.sin convertirla, ya q luego al recuperar ese respaldo contra otra base de datos ya creada en access 2000 me da errores de datos.
ah y necesito crearla al access 2000 o convertirla es por codigo en visual basic 6.0.ya q el usuario final jamas entra a la base de datos creada.son procesos transparentes para el.
agradecida estare.
nombrerespaldo = InputBox("Introduzca el nombre del respaldo ")
Set MiWorkspace = DBEngine.Workspaces(0)
ruta = "C:\PFP\Respaldo Juridica\" & nombrerespaldo & ".mdb"
Set MiBaseDeDatos = MiWorkspace.CreateDatabase(ruta, dbLangGeneral)
Set MiBaseDeDatos = Nothing
Valora esta pregunta
0