Compactar bd access

[pempas]

Hola amigos/as,

He leido diferentes post de como compactar una base de datos de access en vb, pero no me aclaro con lo del DBEngine, ¿dónde se decalara?, de por si en VB lo escribes y no te lo da como comando.

¿Alguien me puede ayudar?, muchas gracias.

[bubilo]

lo que para es que tenes que hacer una referencia en el proyecto a el motor de DAO
Anda a proyecto -> referencias y alli selecciona microsoft DAO 3.6
ya te va a aparecer como comando DBENGINE

TE PASO UN EJEMPLO DE PASO PARA COMPACTAR UNA BASE

DBEngine.CompactDatabase App.Path & "\base.mdb", App.Path & "\base1.mdb"
Kill App.Path & "\base.mdb"
FileCopy App.Path & "\base1.mdb", App.Path & "\base.mdb"
Kill App.Path & "\base1.mdb"
End

[aldo1982]

Iniciado por bubilo

lo que para es que tenes que hacer una referencia en el proyecto a el motor de DAO
Anda a proyecto -> referencias y alli selecciona microsoft DAO 3.6
ya te va a aparecer como comando DBENGINE

TE PASO UN EJEMPLO DE PASO PARA COMPACTAR UNA BASE

DBEngine.CompactDatabase App.Path & "\base.mdb", App.Path & "\base1.mdb"
Kill App.Path & "\base.mdb"
FileCopy App.Path & "\base1.mdb", App.Path & "\base.mdb"
Kill App.Path & "\base1.mdb"
End

peron pero el comando kill no es para Eliminar por completo (el archivo base.mdb) en este caso la base de datos ??? ojo con eso

[bubilo]

la base se la compacta a otro archivo base1
despues se borra la base y renombra base1 a base
es mas o menos asi

[pempas]

Iniciado por bubilo

lo que para es que tenes que hacer una referencia en el proyecto a el motor de DAO
Anda a proyecto -> referencias y alli selecciona microsoft DAO 3.6
ya te va a aparecer como comando DBENGINE

TE PASO UN EJEMPLO DE PASO PARA COMPACTAR UNA BASE

DBEngine.CompactDatabase App.Path & "\base.mdb", App.Path & "\base1.mdb"
Kill App.Path & "\base.mdb"
FileCopy App.Path & "\base1.mdb", App.Path & "\base.mdb"
Kill App.Path & "\base1.mdb"
End

Hola, he ido donde me has dicho pero me sale "Microsoft DAO 3.51", no tengo el 3.6, ¿se puede descargar de algún sitio?, ¿cómo lo hago?, gracias.

[GeoAvila]

instala el Mdac 2.8

nos vemos..

[aldo1982]

Iniciado por pempas

Hola, he ido donde me has dicho pero me sale "Microsoft DAO 3.51", no tengo el 3.6, ¿se puede descargar de algún sitio?, ¿cómo lo hago?, gracias.

HAY MUCHOS LUGARES PARA DESCARGAR MDAC 2.8 UNOS DE ELLOS ES DE MICROSOFT

SALU2

[bubilo]

no te hagas drama selecciona el 3.51 igual funciona con ese.. y si te va a reconocer el dbengine

[pepelo]

Iniciado por bubilo

lo que para es que tenes que hacer una referencia en el proyecto a el motor de DAO
Anda a proyecto -> referencias y alli selecciona microsoft DAO 3.6
ya te va a aparecer como comando DBENGINE

TE PASO UN EJEMPLO DE PASO PARA COMPACTAR UNA BASE

DBEngine.CompactDatabase App.Path & "\base.mdb", App.Path & "\base1.mdb"
Kill App.Path & "\base.mdb"
FileCopy App.Path & "\base1.mdb", App.Path & "\base.mdb"
Kill App.Path & "\base1.mdb"
End

Al querer compactar me da el error 3356 "que estoy intentando abrir una base abierta ya abierta en modo exclusivo"

al codigo le agrege antes lo siguiente:
base.Close
Set base= Nothing

y la coneccion la hago
Set CnBD = New Connection
CnBD.Provider = "Microsoft.jet.OLEDB.4.0"
CnBD.Open App.Path & "\base.mdb"

Me podrian ayudar? la base esta en access 2k
Gracias

[info79]

Saludos, amigos, estoy utilizando la compactacion de la base de datos, y me esta generando el error 3356, que me dice que la base de datos esta abierta y no me permite compactarla, que puedo hacer alli? gracias

[pempas]

Cerrarla... tan solo debes de cerrar el Access, seguro que lo tienes abierto con la base de datos.