procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,newpwd:string;bAccess97:boolean=true); var idbEngine:_dbEngine; begin if oldpwd <>'''''''' then oldpwd := '''';pwd=''''+oldpwd; if newpwd <>'''''''' then newpwd := '''';pwd=''''+newpwd;
if bAccess97 then begin idbengine := CreateComObject(dao97.CLASS_DBEngine) as _DBEngine; idbEngine.CompactDatabase(srcDbname,dstDbname,newpwd,dbVersion30,oldpwd); end else begin idbengine := CreateComObject(dao2000.CLASS_DBEngine) as _DBEngine; idbEngine.CompactDatabase(srcDbname,dstDbname,newpwd,dbVersion40,oldpwd); end; end;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
