纯编码实现Access数据库的建立或压缩

来源：计算机等级考试发布时间：2012-08-28 计算机等级考试视频评论

　　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
　　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")
　　Else
　　call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
　　SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
　　SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
　　End If
　　’删除旧的数据库文件
　　call DeleteFile(SavePath & dbFileName)
　　’将压缩后的数据库文件还原
　　call RenameFile(SavePath & dbFileName & ".bak.mdb",SavePath & dbFileName)
　　Set Cd = False
　　CompactDatabase = True
　　End If
　　end function

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。