Сохранение последнего пути базы данных

[xsaroo]

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

[Serge_Bliznykov]

в том коде, который у Вас висит на открытии,
перед OpenDialog1Execute значение поля считывать и присваивать
OpenDialog1.InitialDir := Query1.FieldByName ....

после if OpenDialog1.Execute then
прописать сохранение в БД OpenDialog1.InitialDir
Для сохранения, разумеется, нужно или создать соответствующую пользователю таблицу в БД, либо добавить поле в таблицу (или воспользоваться имеющимся в таблице (например, в таблице пользователей полем).

что не получается то?

[xsaroo]

Вот код можно более подроьнее

procedure TForm1.Button4Click(Sender: TObject);
var
PathToDB:string;
begin
adoconnection1.Connected:=false;
ADOQuery1.Active:=false;
If OpenDialog1.Execute then begin
PathToDb:=Opendialog1.FileName;
end;
adoconnection1.ConnectionString:='P rovider=Microsoft.Jet.OLEDB.4.0;Dat a Source=' +PathToDb+';Persist Security Info=False';
ADOConnection1.LoginPrompt := False;
adoconnection1.Connected:=true;
ADOQuery1.Connection:=adoconnection 1;
ADOQuery1.Active:=true;

end;
end.

[eval]

С файлами работали когда-нибудь?

[xsaroo]

неа)
А можно сделать так :
в текстовый док заносится последний путь бд а потом мы из него читаем и присваиваем его значение conectonsstring?

[Luuzuk]

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

после if OpenDialog1.Execute then
прописать сохранение в БД OpenDialog1.InitialDir
Для сохранения, разумеется, нужно или создать соответствующую пользователю таблицу в БД, либо добавить поле в таблицу (или воспользоваться имеющимся в таблице (например, в таблице пользователей полем).

Вы предлагаете хранить путь к БД в самой БД путь к которой нас и интересует?

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

неа)
А можно сделать так :
в текстовый док заносится последний путь бд а потом мы из него читаем и присваиваем его значение conectonsstring?

Можно в файл, можно в реестр.
Использование Ini-файлов
Работа с реестром

[xsaroo]

Можно в файл, можно в реестр.
Использование Ini-файлов
Работа с реестром[/QUOTE]

а нету доброго человека который напишет код)
для сохранения)

[Luuzuk]

Сколько платите?
P.S. читать – полезнее. и дешевле. и вообще лучше

[xsaroo]

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

Сколько платите?
P.S. читать – полезнее. и дешевле. и вообще лучше

а скок хотите?) как я понял для вас это не сложно

[Luuzuk]

Вместо ответа просто оставлю здесь пару кусочков кода из первой ссылки

procedure TForm1.FormCreate
var
  MyIni: TIniFile;
begin
  MyIni := TIniFile.Create('Win.ini');
  Form1.Caption := MyIni.ReadString('Intl', 'sCountry', 'no country listed');
  // не забудьте пo завершении работи разрушить MyIni
  MyIni.Free;
end;

procedure TForm1.FormClose
var
  MyIni:  TIniFile;
begin
  MyIni := TIniFile.Create('Win.ini');
  MyIni.WriteString('Intl', 'sCountry', Form1.Caption);
  // не забудьте пo завершении работи разрушить MyIni
  MyIni.Free;
end;