| |||
Re: visualbasic6.0 y acces2003 Debes compactar la BD en menú Herramientas->Utilidades de la base de datos->Compactar y reparar base de datos... También lo puedes hacer por código desde VB (si no sabes cómo, nos preguntas) y otra opción sería eliminar la tabla y volverla a crear. |
| |||
Re: visualbasic6.0 y acces2003 Te coloco el ejemplo Nota: tienes que marcar la referencia "Microsoft Access xx.x Object Library"
Código:
En azul los datos que tienes que sustituir Dim sDBTmp As String, NombreMdb As String Dim oAccess As New Access.Application NombreMdb = App.Path & "\bd1.mdb" sDBTmp = "DBTmp.mdb" ' si ya existe el archivo temporal lo eliminamos If Len(Dir$(sDBTmp)) Then Kill sDBTmp sDBTmp = App.Path & "\" & sDBTmp ' cerramos la conexión para poder compactar If cn.State = 1 Then cn.Close oAccess.CompactRepair NombreMdb, sDBTmp ' Eliminamos la DB original Kill NombreMdb ' y renombramos la compactada Name sDBTmp As NombreMdb ' abrimos de nuevo la dbcn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\bd1.mdb" |