Добавление даты в название Access'овского файла.

[Zloi[DED]]

Всем здрасти. у меня вопрос собственно вот с чём: создал программу для хранения нужных данных и выдачи необходимых отчётов. Данные поступают раз в год и необходимо, чтобы все данные за каждый год хранились в файле Accessa, но каждый под своей датой.

Может кто подскажет, как при новой дате не заполнять шаблон Accessa, а просто скопировать его под с тем же названием, но под новой датой?(можно даже без кода, на словах пойму)

Варианты: сделать всё руками я рассматривал, но к сожалению меня никто не послушал

[Stilet]

О каком шаблоне идет речь?

[Zloi[DED]]

ну я имел в виду саму базу где хранятся все данные(файл Accessa, с нужными полями и таблицами).

сейчас дочитаю, как изображения выкладывать и покажу скрины

вот скрины

[_SERGEYX_]

Я, чтобы не заморачиваться созданием таблиц и полей, делал чистый файл Temp.mdb с пустой базой.
А потом, когда нужно создать нову базу просто делал CopyFile('Temp.mdb',<формат текущей даты>) и сразу его в строку подключения. Если я правильно вопрос понял....

[Zloi[DED]]

Спасибо, _SERGEYX_!

[Zloi[DED]]

у меня снова проблема...

procedure TForm1.Button3Click(Sender: TObject);
var a:string;
begin
a:= DateToStr(DateTimePicker1.date);
if CopyFile('G:\ОМО\Отчеты\сведения об офтольмологической помощи.mdb','G:\ОМО\Отчеты\'+a+'\сведения об офтольмологической помощи.mdb',true) then
  ShowMessage('Файл успешно скопирован!')
else
  ShowMessage('Ошибка!'));
end;
стопарится на первом условии... понять не могу почему...

пишет что "[Error] Unit1.pas(1260): Incompatible types: 'String' and 'PAnsiChar'"


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

попробуйте привести тип, обычно этого достаточно:

...CopyFile('G:\ОМО\Отчеты\сведения об офтольмологической помощи.mdb',
   PChar('G:\ОМО\Отчеты\'+a+'\сведения об офтольмологической помощи.mdb'),
   true) ...

кстати, совсем зря Вы в коде программы пишете конкретный диск и путь!!
А если не будет диска G: ? или программу поставят в папку \OFTOMO\ ? всё пропало? переписывать код?!
берите путь либо из настроек, либо путь запуска Вашего приложения.