БД Access и Delphi

[Дамир]

Привет!
Имеется БД Raport.mdb, необходимо организовать создание резервной копии БД под названием "год".mdb. Как это можно сделать?

[Virtson]

вобщем, нужно вызвать средства Access которые
'Сервис / Служебные / сжать и восстановить БД '
предварительно закрыв все соедиения ..

пример будет завтра , пока найду

[Lynx]

Можно сделать еще проще...
Попробуй скопирывать файл *.mdb, вот тебе и резервная копия...
Не нужно слишком заморачиваться, товарищи...

[Virtson]

procedure TdataF.CompactDatabase_JRO(DatabaseName: string;
          DestDatabaseName: string = ''; Password: string = '');
var
  TempName: array[0..MAX_PATH] of Char; // имя временного файла
  TempPath: string; // путь до него
  Name: string;
  Src, Dest: WideString;
  V: Variant;
begin
  try
    Src := Provider + 'Data Source=' + DatabaseName;
    if DestDatabaseName <> '' then
      Name := DestDatabaseName
    else
    begin
      // выходная база не указана - используем временный файл
      // получаем путь для временного файла
      TempPath := ExtractFilePath(DatabaseName);
      if TempPath = '' then
        TempPath := GetCurrentDir;
      //получаем имя временного файла
      GetTempFileName(PChar(TempPath), 'mdb', 0, TempName);
      Name := StrPas(TempName);
    end;
    DeleteFile(PChar(Name)); // этого файла не должно существовать :))
    Dest := Provider + 'Data Source=' + Name;
    if Password <> '' then
    begin
      Src := Src + ';Jet OLEDB:Database Password=' + Password;
      Dest := Dest + ';Jet OLEDB:Database Password=' + Password;
    end;

    V := CreateOleObject('jro.JetEngine');
    try
      V.CompactDatabase(Src, Dest); // сжимаем
    finally
      V := 0;
    end;
    if DestDatabaseName = '' then
    begin // т.к. выходная база не указана
      DeleteFile(PChar(DatabaseName)); //то удаляем не упакованную базу
      RenameFile(Name, DatabaseName); // и переименовываем упакованную базу
    end;
  except
    // выдаем сообщение об исключительной ситуации
    on E: Exception do
      ShowMessage(e.message);
  end;
end;

[biged]

я вот так делаю
--

function compactandrepair(db: string): boolean; {db = path to access database}
var
v: olevariant;
begin
result := true;
try
v := createoleobject('jro.jetengine');
try
v.compactdatabase('Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+db+';Persist Security Info=False','Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+db+'x;jet oledb:engine type=5');
deletefile(db);
renamefile(db+'x',db);
finally
v := unassigned;
end;
except
result := false;
end;
end;

Использование собственно:
compactandrepair('c:\база.accdb');

[Dozent]

а востановить как?)