纯编码如何实现Access数据库的建立或压缩（2）

会计考友

Set Ca = Nothing 　　CreateDBfile = True
　　End If
　　End function
0 Q8 F: W1 U& o5 B　　Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath)
, X4 r: ^6 r8 Y* N3 }8 t　　’压缩数据库文件
　　’0 为access 97
* G: \& h6 e: N& Q; S+ w　　’1 为access 2000
　　On Error resume next
　　If Right(SavePath,1)"\" Or Right(SavePath,1)"/" Then SavePath = Trim(SavePath) & "\"
- Q5 [! M( Q% }/ O% R" f/ H# j5 ~　　If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))
, d3 A7 u( ]. h' a1 L( _　　If DbExists(SavePath & dbFileName) Then
2 s$ d5 r4 w& S/ Y  R4 o$ w　　Response.Write ("对不起，该数据库已经存在!")
　　CompactDatabase = False
　　Else
2 m) C  X( q. O$ O5 p6 p　　Dim Cd
　　Set Cd =Server.CreateObject("JRO.JetEngine")
( Q+ F: T# X  N
　　If Err.number0 Then

会计考友

</p>　　Response.Write ("无法压缩，请检查错误信息
" & Err.number & "
" & Err.Description)
　　Err.Clear
　　Exit function
　　End If
　　If DbVer=0 Then
0 _# q! J) _% h2 V7 ^, ]　　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")
0 |% D- V9 N# x3 J  R　　Else
* @  Z  S, O& N2 R$ e* [　　call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
3 [7 K7 a' V/ r( K　　SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
　　SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
7 e& I& ~& i& K- O: c$ V( h" {　　End If
　　’删除旧的数据库文件
) U* W& q$ f# v+ G1 {; C; j　　call DeleteFile(SavePath & dbFileName)
$ G: r" e1 o2 Q" d$ H6 S" V　　’将压缩后的数据库文件还原
　　call RenameFile(SavePath & dbFileName & ".bak.mdb",SavePath & dbFileName)
　　Set Cd = False
% e, ?/ d1 }+ V" Z; g　　CompactDatabase = True
6 ]+ e' Q3 m0 n, R( z5 _! Y　　End If
. `! u4 Q! }2 {9 y. O　　end function