純編碼實(shí)現(xiàn)access數(shù)據(jù)庫(kù)的建立或壓縮--

《純編碼實(shí)現(xiàn)access數(shù)據(jù)庫(kù)的建立或壓縮--》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫(kù)。

1、純編碼實(shí)現(xiàn)Access數(shù)據(jù)庫(kù)的建立或壓縮>><%　#######以下是一個(gè)類(lèi)文件，下面的注解是調(diào)用類(lèi)的方法################################################　#注意：如果系統(tǒng)不支持建立Scripting.FileSystemObject對(duì)象，那么數(shù)據(jù)庫(kù)壓縮功能將無(wú)法使用　#Access數(shù)據(jù)庫(kù)類(lèi)　#CreateDbFile建立一個(gè)Access數(shù)據(jù)庫(kù)文件　#pactDatabase壓縮一個(gè)Access數(shù)據(jù)庫(kù)文件　#建立對(duì)象方法:　#Seta=Nee,byValDbVer,byVal

2、SavePath)　建立數(shù)據(jù)庫(kù)文件　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ù)庫(kù)文件　0為access97　1為access2000　OnErrorresumenext　IfRight(SavePath,1)<>OrRight(SavePath,1)<>/ThenSavePath=Trim(SavePath)　IfLeft(dbFileName,1)=&123下一頁(yè)>>>>這篇文章來(lái)自..，。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ù)庫(kù)文件　callDeleteFile(SavePathdbFileName)　將壓縮后的數(shù)據(jù)庫(kù)文件還原　callRenameFile(SaveP

7、athdbFileName.bak.mdb,SavePathdbFileName)　SetCd=False　pactDatabase=True　EndIf　endfunction　PublicfunctionDbExists(byValdbPath)　查找數(shù)據(jù)庫(kù)文件是否存在　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()　取當(dāng)前真實(shí)路徑　AppP