Delphi работа с БД

[v.v.veter]

Суть проблемы такова. Есть база данных access, подключение идет через ADOConnection1, изначально connectionstring

 Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Veter\Desktop\проект\diplombaza.mdb;Persist Security Info=False

, но пользователь может поменять его

procedure TConfigForm.Button2Click(Sender: TObject);
begin
DataModule1.ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source='+Edit1.Text;
DataModule1.ADOConnection1.Connected :=true;
close;
end;

нужно, что-бы если пользователь поменял ConnectionString , то оно кудато сохронялось, и при следующем включении проги подключалось через него.
Хотелось бы сделать это через .ini , но не знаю как это сдалать.
Тоесть изначально в .ini должно быть прописано прописано типо этого

( Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Veter\Desktop\проект\diplombaza.mdb;Persist Security Info=False )

С .ini никогда не сталкивался, так что мало представляю как это делать.
Заранее благодарен.

[v.v.veter]

нашел тут на форуме примерно ответ, сделал так,

procedure TForm1.FormCreate(Sender: TObject);
var ini: TINIFile;
begin
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'C:\Users\Veter\Desktop\проект\conf\config.ini');
  DataModule1.ADOConnection1.Connected := False;
  DataModule1.ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source='+
 ini.ReadString('Option', 'ConString', '');
  DataModule1.ADOConnection1.Connected := True;
  ini.Free;
  DataModule1.ADOQuery1.Open;
end;

но теперь вылетает с ошибкой.

Access violation at address 00562BB1 in module 'proj.exe'.
 Read of address 00000060'. Process proj.exe

подскажите где ошибка?

[Serge_Bliznykov]

вместо

  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'C:\Users\Veter\Desktop\проект\conf\config.ini');

пробуйте

  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini');

ну и config.ini должен быть рядом с EXEшником Вашей программы...

[v.v.veter]

вроде заработало, спасиб. Но есть вопрос. Как сделать чтобы если пользователь менял место подключении базы, то это вносилось в ini

procedure TConfigForm.Button2Click(Sender: TObject);
begin
Form1.ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source='+Edit1.Text;
Form1.ADOConnection1.Connected :=true;
// и тут бы еще вносилось изменение в ини
close;
end;

в ини такой текст

[Option]
ConString=C:\Users\Veter\Desktop\проект\diplombaza.mdb

тоесть все что попадает в Edit1.Text писалось бы в ини

[Serge_Bliznykov]

да очень просто, на закрытие формы (событие OnClose) повесить примерно такой код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  AppIniFile: TIniFile;
begin
  try
    AppIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini');
    AppIniFile.WriteString('Option', 'ConString', Edit1.Text);
  finally
    FreeAndNil(AppIniFile);
  end;
end;

p.s. в принципе, можно писать в INI и при нажатии на Button2Click

p.p.s. на событии создания формы весьма неплохо читать этот параметр из INI в Edit1.Text
сразу будет видно, какое соединение открылось при запуске приложения...

[Jaguar83]

Упс.. пока писал сообщение уже ответили...

procedure TForm1.FormDestroy(Sender: TObject);
var ini: TIniFile;
begin
ini := TIniFile.Create(ExtractFilePath(App lication.ExeName) + 'config.ini');
ini.WriteString('Option','ConString ',Form1.ADOConnection1.ConnectionSt ring); //или Edit1.Text
ini.Free;
end;
end.

[v.v.veter]

Спасиб всем! Нета не было, уже сам примерно такое написал.