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

会计考友

Set Ca = Nothing 　　CreateDBfile = True
　　End If
　　End function
　　Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath)
　　’压缩数据库文件
　　’0 为access 97
$ i0 Q! u; p  g; w　　’1 为access 2000
　　On Error resume next
& p& B! b. `1 t$ ~8 L( n+ h; f　　If Right(SavePath,1)"\" Or Right(SavePath,1)"/" Then SavePath = Trim(SavePath) & "\"
4 K1 \6 T2 X; {　　If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))
　　If DbExists(SavePath & dbFileName) Then
　　Response.Write ("对不起，该数据库已经存在!")
' M8 s& v* O( o2 J; H8 N7 e5 }/ b　　CompactDatabase = False
8 t( \# q" P3 f7 v$ V; |　　Else
　　Dim Cd
4 F/ K3 S- H/ N# L* P9 Q　　Set Cd =Server.CreateObject("JRO.JetEngine")
　　If Err.number0 Then
# L5 u: v; {9 I  S4 j+ M& F# y　　Response.Write ("无法压缩，请检查错误信息
" & Err.number & "
" & Err.Description)
" n4 o) u7 N; D7 [) p, {3 n　　Err.Clear
3 c+ v: g- j0 g7 A　　Exit function
% \9 ^2 h" F* O% q' S: q" Y# z9 G
　　End If

会计考友

</p>　　If DbVer=0 Then
: K  `8 Z5 y6 w' k: f0 [& x# E: [　　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")
- ^  P- `# K) z5 ]/ k7 S　　Else
　　call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
　　SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
  E* L- s8 ^$ p　　SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
; L- `9 ?- ^6 q) k2 b+ X3 d　　End If
& A- l1 U1 i# m) a" V　　’删除旧的数据库文件
　　call DeleteFile(SavePath & dbFileName)
　　’将压缩后的数据库文件还原
3 q1 f. v& Q, [+ W* b8 f　　call RenameFile(SavePath & dbFileName & ".bak.mdb",SavePath & dbFileName)
　　Set Cd = False
6 d$ @. x  Z* x% n& \* r　　CompactDatabase = True
( o, C+ a9 Z. L0 t8 z' m' L　　End If
　　end function