資源描述：
《純編碼實現(xiàn)access數(shù)據(jù)庫的建立或壓縮--》由會員上傳分享，免費在線閱讀，更多相關內容在工程資料-天天文庫。
1、純編碼實現(xiàn)Access數(shù)據(jù)庫的建立或壓縮>><% #######以下是一個類文件，下面的注解是調用類的方法################################################ #注意：如果系統(tǒng)不支持建立Scripting.FileSystemObject對象，那么數(shù)據(jù)庫壓縮功能將無法使用 #Access數(shù)據(jù)庫類 #CreateDbFile建立一個Access數(shù)據(jù)庫文件 #pactDatabase壓縮一個Access數(shù)據(jù)庫文件 #建立對象方法: #Seta=Nee,byValDbVer,byVal
2、SavePath) 建立數(shù)據(jù)庫文件 IfDbVeris0ThenCreateAccess97dbFile IfDbVeris1ThenCreateAccess2000dbFile OnerrorresumeNext IfRight(SavePath,1)<>OrRight(SavePath,1)<>/ThenSavePath=Trim(SavePath) IfLeft(dbFileName,1)=OrLeft(dbFileName,1)=/ThendbFileName=Trim(Mid(dbFile
3、Name,2,Len(dbFileName))) IfDbExists(SavePathdbFileName)Then Response.icrosoft.Jet.OLEDB.3.51;DataSource=SavePathdbFileName) Else callCa.Create(Provider=Microsoft.Jet.OLEDB.4.0;DataSource=SavePathdbFileName) EndIf SetCa=Nothing CreateDBfile=True EndIf Endfunction Publ
4、icfunctionpactDatabase(byValdbFileName,byValDbVer,byValSavePath) 壓縮數(shù)據(jù)庫文件 0為access97 1為access2000 OnErrorresumenext IfRight(SavePath,1)<>OrRight(SavePath,1)<>/ThenSavePath=Trim(SavePath) IfLeft(dbFileName,1)=&123下一頁>>>>這篇文章來自..，。nbsp;OrLeft(dbFileName,1
5、)=/ThendbFileName=Trim(Mid(dbFileName,2,Len(dbFileName))) IfDbExists(SavePathdbFileName)Then Response.icrosoft.Jet.OLEDB.3.51;DataSource=SavePathdbFileName,Provider=Microsoft.Jet.OLEDB.3.51;DataSource=SavePathdbFileName.bak.mdb;JetOLEDB;EncryptDatabase=True) Else cal
6、lCd.pactDatabase(Provider=Microsoft.Jet.OLEDB.4.0;DataSource= SavePathdbFileName,Provider=Microsoft.Jet.OLEDB.4.0;DataSource=SavePathdbFileName.bak.mdb;JetOLEDB;EncryptDatabase=True) EndIf 刪除舊的數(shù)據(jù)庫文件 callDeleteFile(SavePathdbFileName) 將壓縮后的數(shù)據(jù)庫文件還原 callRenameFile(SaveP
7、athdbFileName.bak.mdb,SavePathdbFileName) SetCd=False pactDatabase=True EndIf endfunction PublicfunctionDbExists(byValdbPath) 查找數(shù)據(jù)庫文件是否存在 OnErrorresumeNext Dimc Setc=Server.CreateObject(ADODB.Connection) c.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=dbPath IfErr.
8、number<>0Then Err.Clear DbExists=false else DbExists=True EndIf setc=nothing Endfunction PublicfunctionAppPath() 取當前真實路徑 AppP
