Резервное копирование базы ADO

[RaMoNeZz]

Добрый день! Встал такой вопрос, делать резерв программно есть база mdb в ней где-то 5 таблиц, вопрос такой как можно программно сохранять базу mdb?? я просто никогда бэк апы баз не далал и не могу понять как и что.....по форуму поискал найти не смог, кто делал поделитесь как?

[Stilet]

Ну как как...
CopiFileTo(<твоя.MDB>,<Резервная ее копия.MDB>)

[RaMoNeZz]

вот как я сделал, примитивно, но работает по нажатию кнопки выход
var
s:string;
begin
проблеммка только вот во чтом....как сделать так чтоб при дате "01" папка backup очищалась полностью???( это для того чтоб база не замусарилась а хранила только сохранения за месяц этого достаточно
вот так начал
if formatdatetime('dd',date())=inttost r(01) then showmessage('!!!'); если дата 01 то.....нужно написать как очистить папку....помогите!!!
в остальном разобрался и проверил все отлично работает
s:=FormatDateTime('dd.mm.ee',date() );
dm.ADOQuery1.SaveToFile('backup\'+s +'-ostanovki.dim');
dm.personal.SaveToFile('backup\'+s+ '-personal.dim');
dm.remont.SaveToFile('backup\'+s+'-remont.dim');
dm.grafik.SaveToFile('backup\'+s+'-grafik.dim');
dm.otmetka.SaveToFile('backup\'+s+'-otmetka.dim');
dm.prostoi.SaveToFile('backup\'+s+'-prostoi.dim');

[RaMoNeZz]

что, ни кто не знает как программно очистить всю папку?

[Serge_Bliznykov]

Сообщение от RaMoNeZz

что, ни кто не знает как программно очистить всю папку?

знаем. Надо просто удалить все файлы, которые там есть! :-D

вот, выдрано из JvUtils.pas (JVCL).
чуток подкорректировал (убрал проверку на маску):

procedure DeleteFiles(const Folder: TFileName);
var
  SearchRec: TSearchRec;
  DosError: Integer;
  Path: TFileName;
begin
  Path := AddSlash2(Folder);
  DosError := FindFirst(Path + '*.*', faAnyFile and not faDirectory, SearchRec);
  while DosError = 0 do
  begin
    DeleteFile(Path + SearchRec.Name);
    DosError := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;

Будьте бдительны - удаляет ВСЕ файлы в каталоге Folder: TFileName (и без лишних вопросов)!

[RaMoNeZz]

Спасибо, я немного подкоректировал сохранение вот так
var
s:string;
begin
s:=FormatDateTime('dddd',date()); теперь у меня не по числам а по дням недели так проще...и очищать не надо бэк создаеться в папку дня недели
dm.ADOQuery1.SaveToFile('backup\'+s +'/ostanovki.dim');
dm.personal.SaveToFile('backup\'+s+ '/personal.dim');
dm.remont.SaveToFile('backup\'+s+'/remont.dim');
dm.grafik.SaveToFile('backup\'+s+'/grafik.dim');
dm.otmetka.SaveToFile('backup\'+s+'/otmetka.dim');
dm.prostoi.SaveToFile('backup\'+s+'/prostoi.dim');
close;
end;
вопрос теперь в другом...
вот так если пользователь захотел восстановить базу
var
s:string;
begin
s:=combobox1.Text; в комбо просто написано Пн.Вт Ср и тд
dm.ADOQuery1.LoadfromFile('backup\' +s+'\ostanovki.dim');
dm.personal.LoadfromFile('backup\'+ s+'\personal.dim');
dm.remont.LoadfromFile('backup\'+s+ '\remont.dim');
dm.grafik.LoadfromFile('backup\'+s+ '\grafik.dim');
dm.otmetka.LoadfromFile('backup\'+s +'\otmetka.dim');
dm.prostoi.LoadfromFile('backup\'+s +'\prostoi.dim');
close;
end;
а если в папке backup\Понедельник ничего не лежит соответсвенно выкидываеться ошибка...как сделать так чтоб не было ошибки а просто вывелось сообщение что базы за Понедельник нет другую ищи....
пробывал через try...except что то у меня не получилось как правильно реализовать проверку?