请问大家做的单机版程序使用Access的话，备份和恢复是怎么做的？

Question

谢谢～～

Answer 1

procedure SaveMyDB;
var MyDataSet:TADODataSet;
    MyConn:TADOConnection;
    MyTableList:TStrings;
    i:integer;
    StrFilePath:String;
begin
    MyTableList := TStringList.Create;
    MyConn := TADOConnection.Create(nil);
    MyConn.ConnectionString := DBConnStr;
    MyConn.LoginPrompt := FALSE;
    MyDataSet := TADODataSet.Create(nil);
    MyDataSet.Connection := MyConn;
    //将数据库中所有表的名字保存
    MyConn.GetTableNames(MyTableList,FALSE);
    StrFilePath := ExtractFilePath(Application.ExeName)+'DBBAK\';
    for i:=0 to MyTableList.Count-1 do
    begin
        MyDataSet.Close;
        MyDataSet.CommandText := Format('select * from %s',[MyTableList.Strings[i]]);
        MyDataSet.Open;
        MyDataSet.SaveToFile(StrFilePath+MyTableList.Strings[i],pfXML);
    end;
    MyTableList.Free;
end;