专题文章
时长:00:00更新时间:2020-11-09 07:56:09
压缩并备份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
查看详情