如何对Access 数据库进行压缩？

答案：
具体见下： 
Class DatabaseTools
        Public function CreateDBfile(byVal dbFileName,byVal DbVer,byVal SavePath)
                  ' 建立数据库文件:DbVer为0创建Access97 数据库,为1则创建Access2000 dbFile
                  On error resume Next
                  If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & "\"
                  If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid (dbFileName,2,Len(dbFileName)))
                  If DbExists(SavePath & dbFileName) Then
                            Response.Write ("对不起,该数据库已经存在!")
                            CreateDBfile = False
                            Else
                            Dim Ca
                            Set Ca = Server.CreateObject("ADOX.Catalog")
                            If Err.number<>0 Then
                                    Response.Write ("数据库建立失败,请检查后再操作!<br>" & Err.number & "<br>" 
& Err.Description)
                                    Err.Clear
                                    Exit function
                            End If
                            If DbVer=0 Then
                                    call Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" &SavePath & dbFileName)
                                    Else
                                    call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 
SavePath & dbFileName)
                            End If
                            Set Ca = Nothing
                            CreateDBfile = True
                  End If
        End function
        Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath)
                  ' 压缩数据库文件,0为access 97, 1 为access 2000
                  On Error resume next
                  If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & "\"
                  If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid (dbFileName,2,Len(dbFileName)))
                  If DbExists(SavePath & dbFileName) Then
                            Response.Write ("对不起，该数据库已经存在!")
                            CompactDatabase = False
                            Else
                            Dim Cd
                            Set Cd =Server.CreateObject("JRO.JetEngine")
                            If Err.number<>0 Then
                                    Response.Write ("数据库压缩失败,请检查后再操作!<br>" & Err.number & "<br>" 
& Err.Description)
                                    Err.Clear
                                    Exit function
                            End If
 &nb

上一个：如何调用SQL Server的存储过程？
下一个：如何动态生成WBMP？