Error cuando compacto una base de datos access desde VB

Escorpion_Negro · #1 (**permalink**) 24/06/2004, 15:32

Hola ya creo que tendre mas aburridos a la gente del foro me dieron esta intrucciones para compactar la base de datos desde access

DBEngine.CompactDatabase Rutabd & NombreBD, Rutabd & "COMPACTA.MDB"
Kill Rutabd & NombreBD & ".MDB"
Name Rutabd & "COMPACTA.MDB" As Rutabd & NombreBD & ".MDB"

yo tengo un codigo asi en mi programa en vb

Dim db1
Dim db2
db1 = "C:\SistemaDeudores.mdb"
db2 = "C:\SistemaDeudores2.mdb"
DBEngine.CompactDatabase db1, db2, False, , dbVersion30

pero me sale un error

Rut - time error '424'
Object required

es una base de datos Access 2000

Escorpion_Negro · #2 (**permalink**) 24/06/2004, 15:33

sera que no tengo decrarado el DBEnegine

Kelpie · #3 (**permalink**) 25/06/2004, 10:40

El objeto dbEngine no hay que declararlo.
Se me ocurre que no tengas las referencias de datos en tu proyecto (proyecto/referencias). Deberías tener seleccionado algo como "Microsoft DAO 3.51 Object Library..." o "Microsoft ActiveX Data Objects 2.7...".

Escorpion_Negro · #4 (**permalink**) 20/07/2004, 11:47

tengo declarado la referencia "Microsoft ActiveX Data Objects 2.7...". y persiste el problema sera mejor con DAO 3.51

colinaoz · #5 (**permalink**) 20/07/2004, 21:19

Amigo Pienso Que Debes Convertir Esa Base De Datos De Acces2000 A Formato De Archivo Acces 97 Sino Nunca Te Va A Compactar La Base De Datos Luego Haces Las Conecciones.con El Objcontrol Con Recordsource A La Tabla Asignada.