资源描述:
《纯编码实现access数据库的建立或压缩--》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、纯编码实现Access数据库的建立或压缩>><% #######以下是一个类文件,下面的注解是调用类的方法################################################ #注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用 #Access数据库类 #CreateDbFile建立一个Access数据库文件 #pactDatabase压缩一个Access数据库文件 #建立对象方法: #Seta=Nee,byValDbVer,byVal
2、SavePath) 建立数据库文件 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) 压缩数据库文件 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 删除旧的数据库文件 callDeleteFile(SavePathdbFileName) 将压缩后的数据库文件还原 callRenameFile(SaveP
7、athdbFileName.bak.mdb,SavePathdbFileName) SetCd=False pactDatabase=True EndIf endfunction PublicfunctionDbExists(byValdbPath) 查找数据库文件是否存在 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