您好,欢迎来到欧得旅游网。
搜索
您的当前位置:首页压缩并备份Access数据库

压缩并备份Access数据库

来源:欧得旅游网

Function CompactDB(Access_Url,Access_Backup_Url,BKDBName,Is97) Dim FSO Set FSO=CreateObject(Scripting.FileSystemObject) If FSO.FileExists(Access_Url) Then Dim JE Set JE=CreateObject(JRO.JetEngine) If Is97=True Then JE.CompactDatabase Provi

Function CompactDB(Access_Url,Access_Backup_Url,BKDBName,Is97)
Dim FSO
Set FSO=CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(Access_Url) Then
Dim JE
Set JE=CreateObject("JRO.JetEngine")

If Is97=True Then
JE.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Access_Url,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Access_Backup_Url&"temp.mdb;Jet OLEDB:Engine Type=4"
Else
JE.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Access_Url,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Access_Backup_Url&"temp.mdb"
End If

FSO.CopyFile Access_Backup_Url&"temp.mdb",Access_Url
FSO.CopyFile Access_Backup_Url&"temp.mdb",Access_Backup_Url&BKDBName&".asa"
FSO.DeleteFile(Access_Backup_Url&"temp.mdb")

Set FSO=nothing
Set JE=nothing

CompactDB="你的数据库,已经被压缩并备份!"
Else
CompactDB="你输入的数据库路径或名称未找到,请重试!"
End If
End Function

Dim Access_Url,Access_Backup_Url,BKDBName

Access_Url="E:\SCJD\Admin\SCJD_Data\%50%69%7a%69%67%65.mdb" '数据库的物理路径
Access_Backup_Url="E:\SCJD\Admin\SCJD_Backup\" '数据库备份的物理路径
BKDBName="%50%69%7a%69%67%65" '数据库备份的文件名

Response.Write CompactDB(Access_Url,Access_Backup_Url,BKDBName,False)

孤狼

Copyright © 2019- ovod.cn 版权所有 湘ICP备2023023988号-4

违法及侵权请联系:TEL:199 1889 7713 E-MAIL:2724546146@qq.com

本站由北京市万商天勤律师事务所王兴未律师提供法律服务