用ADO联AccessXp如何能够进行数据库的备份和恢复？还有，如何压缩数据库？(100分)

用ADO联AccessXp如何能够进行数据库的备份和恢复？还有，如何压缩数据库？

检索吧。有答案。

两个一样，代码如下：
1、--------------------------------------------------
procedure TForm1.Button2Click(Sender: TObject);
var
Dest_DB_Connection: OleVariant;
l_Source_Con_Str, l_Dest_Con_Str: string;
begin
ADOConnection1.Connected :=False;

try
Dest_DB_Connection := CreateOleObject('JRO.JetEngine');
except
Exit;
end;

l_Source_Con_Str := 'Data Source=C:/1.mdb;';

l_Dest_Con_Str := 'Data Source=C:/2.mdb;';

try
OleCheck(Dest_DB_Connection.CompactDatabase(l_Source_Con_Str, l_Dest_Con_Str));
except
end;
end;

2、-------------------------------------------------------------
Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean;
const
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
var
oJetEng : JetEngine;
begin
sOldMDB := sProvider + 'Data Source=' + sOldMDB;
sNewMDB := sProvider + 'Data Source=' + sNewMDB;

try
oJetEng := CoJetEngine.Create;
oJetEng.CompactDatabase(sOldMDB, sNewMDB);
oJetEng := Nil;
Result := True;
except
oJetEng := Nil;
Result := False;
end;
end;

http://www.delphibbs.com/delphibbs/dispq.asp?lid=442318
给你一个.

继续

继续什么,问题都解决了.

多人接受答案了。