摘要： 常用的是delphi备份SQL Server，较少用delphi备份Access的，今天有人问了一下，顺便把代码贴出来。有人可能会有需要。//(***本文出处：南山古桃(nsgtao)的百度空间：http://hi.baidu.com/nsgtao/ ****)procedure TBackup.Button1Click(Sender: TObject);varpath:string;beginif SaveDialog1.Execute thenif SaveDialog1.FileName '' thenbeginpath := ExtractFilePath(application 阅读全文

摘要： procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,newpwd:string;bAccess97:boolean=true);var idbEngine:_dbEngine;beginif oldpwd '' then oldpwd := ';pwd='+oldpwd;if newpwd '' then newpwd := ';pwd='+newpwd;if bAccess97 thenbeginidbengine := CreateComObject(dao97.CLASS_DBEngine) as _DBEngine;i 阅读全文