2012年计算机二级Access重点：数据库的建立或压缩（4）

会计考友

Set Ca = Nothing 　　CreateDBfile = True
+ u( p9 e* k; |' Z: G- v. U6 ?　　End If
　　End function
　　Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath)
: E$ v4 H% o4 W; O" I5 p* c: g* {　　’压缩数据库文件
　　’0 为access 97
* @9 ~( Z& |' h+ u　　’1 为access 2000
　　On Error resume next
% P) j+ f3 {' A, M, h/ @* y　　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
2 T2 {; D7 Q# w" A5 p" i( C　　Response.Write ("对不起，该数据库已经存在!")
　　CompactDatabase = False
; K2 x4 f* Z/ i　　Else
　　Dim Cd
　　Set Cd =Server.CreateObject("JRO.JetEngine")

　　If Err.number0 Then

会计考友

</p>　　Response.Write ("无法压缩，请检查错误信息
6 O1 B$ I1 S# H. m" `　　" & Err.number & "
　　" & Err.Description)
　　Err.Clear
　　Exit function
8 Z& z* J+ R8 b  D; y4 s- Z　　End If
　　If DbVer=0 Then
　　call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;Data
　　Source=" & SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
; x) _$ [3 c0 o# ~. z　　Else
　　call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
: E: D2 ~/ ~1 F$ U  w# i7 l% N　　SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
5 q; t- n. p+ K0 Q! p, P　　SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
% ]  |+ ^4 X  U! ^4 Z　　End If
9 m4 w$ F7 t) T5 t8 V* g　　’删除旧的数据库文件
$ f4 {8 P  W# i! ], n9 ?7 c3 C2 c　　call DeleteFile(SavePath & dbFileName)
- C- a" c3 @. Y  }4 R3 `　　’将压缩后的数据库文件还原
) c; C) T& V. S　　call RenameFile(SavePath & dbFileName & ".bak.mdb",SavePath & dbFileName)
) j  a8 _  }8 P6 M6 t" |　　Set Cd = False
7 |* [7 E( p- D　　CompactDatabase = True
. [) V8 O4 m' }: J2 @　　End If