mdb压缩

⑴ Microsoft Access 数据库文件（.mdb 或 .accdb 格式）为什么越来越大，如何压缩及如何避免文件增大

Microsoft Access 数据库文件越来越大的主要原因包括数据的频繁更新、添加、删除和恢复，临时文件的累积，以及索引文件的扩展。压缩方法及避免文件增大的措施如下：

压缩方法： 启用自动压缩功能：确保在每次关闭数据库时自动进行压缩。 使用VBA脚本执行压缩任务：可以通过编写VBA代码，使用CompactDatabase函数实现数据库的压缩。例如，编写一个VBA子程序，定时或手动执行压缩操作。

避免文件增大的措施： 优化数据输入：避免不必要的重复和冗余数据输入，减少数据冗余。 定期清理无用数据和临时文件：定期检查和删除数据库中无用的数据和临时文件，以保持数据库的健康状态。 设置自动压缩功能：如上所述，启用自动压缩功能，以减少数据库文件的大小。 分拆数据库：对于非常大的数据库文件，可以考虑将其分拆为多个较小的数据库，或者使用链接表的方式管理数据。 迁移至更强大的数据库系统：如果Access数据库文件持续增大且性能受到影响，可以考虑将其迁移至更强大的数据库系统，如sql Server。

重点总结： 定期维护和优化：是保持Access数据库性能的关键，可以有效避免文件过度膨胀。 关注专业资源和社区：如@小辣椒高效Office等，可以获取更多关于Access数据库管理和优化的技巧和源码。

⑵ mdb数据库过于庞大为什么,怎么处理

简单的话,你可以使用数据库ACCESS自带的压缩工具,在工具菜单->数据库实用工具里面.他可以帮你压缩.(我没试过是否能调用,看看里面的VB宏,是否有对应方法,有的话你直接调用)

不过告诉你,数据库过于庞大,是因为他为了保证能保存所有数据(一般是你保存过的最大数据量)而扩大了体积.比如你以前保存过120条记录,但是现在只有20条,但是大小仍旧是120条时候的大小.还比如,一个没有记录的数据库,只有一个表格,大小却有120K,用WINRAR压缩后发现只有8K.实在是......

⑶ mdb文件太大了，想弄小一点的.有什么方法

mdb文件太大了，想弄小一点的。有什么方法.
有什么软件。或是方法可以弄小一点的。。

MDB数据库的冗余是很大的。。
你可以使用access打开数据库，选择 工具 -> 数据库实用工具 -> 压缩和修复数据库，一般可以使MDB的数据库减小很多的。
追问：
太NB了，，就你了。。。9M压完了，，不到1M哈哈`~`

打开 压缩一下
压缩MDB文件 >在Access97里, 我们可以开一个资料库后, 利用工具-->资料库公用程式
>来压缩此一资料库,
>可是在压缩时, Access会先将此资料库"关闭", 再进行压缩,
>然后再开启压缩后的资料库,
>那么我该如何在表单的这个按钮做呢??
>因为DBGird这个物件仍和资料库做联结, 所以我无法"关闭"此一资料库...
Data1.Recordset.Close
Data1.Database.Close
DBEngine.CompactDatabase "SourceDatabase", "TargetDatabase"
!!!你平常在 Dao 伫怎么用 Database 和 Recordset ，就怎么用 Data.Database 和
Data.Recrodset!!!

mdb其实不大，可是我每次做数据库的操作，用几次就很大了，你可以把里面的表都导出到另一个mdb里面就小了
个人不推荐用mdb因为每次数据库有更改都要重新上传，除非非常好的sql功底可以直接写表，不然有什么表的结构都要重新上传了

如果你是使用像ASP之类的做网页的话，还可以自己编写程序去进行压缩和修复，这样就免去了每次的下载和上传数据库的过程。定期对MDB进行压缩修复也是一种变现的对数据库的维护吧~

⑷ VB中 如何用winrar 压缩一个文件夹

如果是本地文件，可以这样：一些数据库文件(如Access文件)在远程传输过程中可能由于文件比较大而影响传递效果。如果进行压缩以后再传递，会减少传递时间，避免意外的发生，同时也保证了传递效果。我们在压缩文件时，最常用的压缩工具为WinRar和Winzip，笔者在VB编程过程中利用WinRar工具来压缩数据库文件，并完成远程传输，十分方便，在此向大家介绍一下。用WinZip的方法类似。

一、Shell函数

Shell函数是VB中的内部函数，它负责执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。

Shell的语法：Shell(PathName[，WindowStyle])。

PathName 为必需参数。类型为String，它指出了要执行的程序名，以及任何需要的参数或命令行变量，也可以包括路径名。

WindowStyle为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。

常量值描述

VbHide 0 窗口被隐藏，且焦点会移到隐式窗口。

VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。

VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示（缺省值）。

VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。

VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。

VbMinimizedNoFocus 6 窗口会以一个图标来显示，而当前活动的窗口仍然保持活动。

二、关于WinRar的用法

主要介绍以下如何在WinRar中用命令行来压缩和解压缩文件。

压缩：WINRAR A [-switches] [Files] [@File lists]

例如你想把try.mdb压缩到C盘下，可以WINRAR A C:\try.rar C:\try.mdb

解压缩：如果带目录解压缩

WINRAR X [-switches] [Files] [@File lists] [destionation folder\]

如果在当前目录解压缩，即解压缩时不写目录名

WINRAR E [-switches] [Files] [@File lists] [destionation folder\]

例如你想把try.rar解压缩到C盘下，可以WINRAR X C:\try.rar C:\try.mdb

三、一个例子

在VB中新建一个工程，在Form1中添加两个按钮Command1、Command2和Command3，把他们的Caption属性分别设为"压缩文件"、"解压缩文件"和"传递文件"。按Command1时把文件try.mdb压缩成try.rar。

Private Sub Command1_Click()

Dim Rarexe As String 'WINRAR执行文件的位置

Dim Source As String ' 压缩前的原始文件

Dim Target As String ' 压缩后的目标文件

Dim FileString as String 'Shell指令中的字符串

Dim Result As Long

Rarexe="C:\program files\winrar\winrar"

Source="C:\try.mdb"

Target="C:\try.rar"

FileString = rarexe & " a " & Target & " " & Source

Result = Shell(FileString, vbHide)

End Sub

解压的过程类似，按Command2可以把try.rar解压生成 try.mdb。在执行了上面的压缩过程后，可以删除文件try.mdb，来解压缩重新生成try.mdb。

Private Sub Command2_Click()

Dim Rarexe As String 'WINRAR执行文件的位置

Dim Source As String ' 解压缩前的原始文件

Dim Target As String ' 解压缩后的目标文件

Dim FileString as String 'Shell指令中的字符串

Dim Result As Long

Rarexe="C:\program files\winrar\winrar"

Source="C:\try.rar"

Target="C:\try.mdb"

FileString = rarexe & " X " & Source & " " & Target

Result = Shell(FileString, vbHide)

End Sub

文件从一台计算机传输到另一台计算机前，应知道另一台计算机的名字，然后用FileCopy语句就可以了。假设要把压缩后try.rar传递到计算机名为"other"的共享目录"want"下。

Private Sub Command3_Click()

Dim SourceFile, DestinationFile

SourceFile ="C:\try.rar " ' 指定源文件名。

DestinationFile = "\\other\want\try.rar" ' 指定目的文件名。

FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中。

End Sub

怎么样，十分简单吧？