ADOConnection

[ADOSnow]

Помогите пожалуйста)
Мне нада сделать бэкап базы, проста копирую файлик .mdb ну и к названию приписываю дату, делаю так

var
I:string;
begin
if saveDialog1.Execute then
I:=saveDialog1.FileName + ' ' + DateToStr(Date) + '.mdb';

CopyFile('D:\db1.mdb', pchar(I), true);

Можно ли как нибуть вместо 'D:\db1.mdb' сделать что бы копировалась имено та база с которой щас идет работа а не ту которая лижит D:\db1.mdb.


Начал делать открытие бэкапа через программу, все открывается, но когда выхожу из программы то возвращается предыдущая база, там же нада изменить путь в конекторе? Я делал так

var db:widestring;
begin

if opendialog1.Execute then begin

datamodule2.ADOConnection1.Close;
datamodule2.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+OpenDialog1.FileName+';Persist Security Info=False';
datamodule2.ADOConnection1.Open;

Ответ на первый вопрос нашел

var
e,k:integer;
s:string;
begin
k:=pos('urce=',datamodule2.ADOConnection1.ConnectionString)+5;
s:=copy(datamodule2.ADOConnection1.ConnectionString,k,
   length(datamodule2.ADOConnection1.ConnectionString)-k);
s:=copy(s,1,pos(';',s)-1);
label4.caption:=s;

ну это в лейбле выводится путь, но второй вопрос ваще хз

[vovk]

собирать строку подключения при запуске программы, к примеру на oncreat формы, а информацию о последней базе хранить придётся гдето, к примеру в ini файле и обновлять его при закрытии.
Ну или вообще всю строку подключения хранить в текстовом файлике, при закрытии обновлять, при открытии подгружать.