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

会计考友

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
  \( U1 G" L( P5 l# z　　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)))
& C" F; v% a- G1 H3 s/ E. L% ]: g　　If DbExists(SavePath & dbFileName) Then
　　Response.Write ("对不起，该数据库已经存在!")
& n/ h5 [2 {+ c* j: ]1 n　　CompactDatabase = False
* `% k3 i8 L8 _3 ^9 U. j- U% O  F　　Else
　　Dim Cd
0 _; D9 d6 |* a5 B2 h. Z, y: s　　Set Cd =Server.CreateObject("JRO.JetEngine")
　　If Err.number0 Then
5 L% j. j4 m: {8 P- t5 Y0 n$ f0 W　　Response.Write ("无法压缩，请检查错误信息
) p# ?- h( l; Y+ r, s  J  C+ g" & Err.number & "
" & Err.Description)
+ }( |7 {8 u# a4 m  i　　Err.Clear
　　Exit function

/ J- ?6 A/ _% q- o1 A- E. s7 Z　　End If

会计考友

</p>　　If DbVer=0 Then
　　call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;Data
- i  e" z' F: N( J8 F　　Source=" & SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
. O% s7 F' k2 V2 {1 U: }　　Else
　　call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
% U9 c% X$ j) X8 j　　SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
　　SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
　　End If
4 I4 f5 ~5 i& F/ n& o5 C　　’删除旧的数据库文件
$ N! q3 L! {/ |' _3 D  Q　　call DeleteFile(SavePath & dbFileName)
　　’将压缩后的数据库文件还原
　　call RenameFile(SavePath & dbFileName & ".bak.mdb",SavePath & dbFileName)
　　Set Cd = False
9 v; A1 ]: q$ x3 s, \2 v) J) |6 `/ D/ F0 ?: T　　CompactDatabase = True
　　End If
/ v7 R& ?) A% A# r, r　　end function