资源描述：
《纯编码实现access数据库的建立或压缩》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、纯编码实现Access数据库的建立或压缩>>教育资源库<% #######以下是一个类文件，下面的注解是调用类的方法################################################ #注意：如果系统不支持建立Scripting.FileSystemObject对象，那么数据库压缩功能将无法使用 #Access数据库类 #CreateDbFile建立一个Access数据库文件 #pactDatabase压缩一个Access数据库文件 #建立对象方法: #Seta=Nee,byValDbVer,byValSav
2、ePath) 建立数据库文件 IfDbVeris0ThenCreateAccess97dbFile IfDbVeris1ThenCreateAccess2000dbFile OnerrorresumeNext IfRight(SavePath,1)<>OrRight(SavePath,1)<>/ThenSavePath=Trim(SavePath) IfLeft(dbFileName,1)=OrLeft(dbFileName,1)=/ThendbFileName=Trim(Mid(dbFileName,2,Len(
3、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 PublicfunctionpactDatab
4、ase(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)=/ThendbFileName=Trim(Mid(
5、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 callCd.pactDatabase(Provider=Microsoft
6、.Jet.OLEDB.4.0;DataSource= SavePathdbFileName,Provider=Microsoft.Jet.OLEDB.4.0;DataSource=SavePathdbFileName.bak.mdb;JetOLEDB;EncryptDatabase=True) EndIf 删除旧的数据库文件 callDeleteFile(SavePathdbFileName) 将压缩后的数据库文件还原 callRenameFile(SavePathdbFileName.bak.mdb,SavePathdbFileName) S
7、etCd=False pactDatabase=True EndIf endfunction PublicfunctionDbExists(byValdbPath) 查找数据库文件是否存在 OnErrorresumeNext Dimc Setc=Server.CreateObject(ADODB.Connection) c.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=dbPath IfErr.number<>0Then Err.Clear DbExists=false else D
8、bExists=True EndIf setc=nothing Endfunction PublicfunctionAppPath() 取当前真实路径
