ConnectionString

[chinara]

Всем привет!

Есть у меня файл-серверная база (Access). Путь (ConnectionString) к этой базе составляется программно (т.е. пользователь сам через OpenDialog указывает местоположение базы). Для этого я написала следующий код на нажатие кнопки "Редактирование пути БД":

var
N1,N2,S1:string;
label m; 
begin
Assignfile(P1,'idintifik.ini');
Rewrite(P1); 
N1:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='; 
N2:=';Persist Security Info=False';
opendialog1.execute;
S1:=opendialog1.filename; 
if s1='' then 
begin 
MessageDlg('',mtError,[mbok],0); 
goto m;
end;
MainDM.ADOConnection1.ConnectionString:=N1+S1+N2;
Write(P1,s1); 
m:closefile(P1); 
end;

а на событие onShow формы,на которой отображены мои таблицы:
label m;
var constr:string;
N1,N2:string; 
begin 
N1:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='; 
N2:=';Persist Security Info=False'; 
Assignfile(P1,'idintifik.ini');
{$I-} 
reset(P1); 
{$I+} 
if IOResult<>0 then 
begin
Application.MessageBox('The file of DataBase Path cannot be found','Error!',MB_OK);
goto m;
end; 
read(P1,constr);
MainDM.ADOConnection1.ConnectionString:=n1+constr+n2;
MainDM.ADOConnection1.Connected := True;
Closefile(P1); 
m:end;

Работает...Но вот одна маленькая проблема:
после того,как я в программе выбираю базу,я должна ее закрыть,потом заново открыть, чтоб новый путь был считан с файла...
Как эту ошибку можно исправить??(((

[evg_m]

после того,как я в программе выбираю базу

для переподключения надо
1. закрыть все активные наборы (формы с данными)
2. отключить соединение
MainDM.ADOConnection1.Connected := FALSE;
3. сделать подключение с новыми параметрами

[chinara]

Дело в том, что все формы мои закрыты. Вот выбрала я свою Базу, открываю форму с таблицами - он выдает мне ошибку, мол, база не найдена. Все закрываю, запускаю программу снова - и все прекрасно работает... Мне кажется, что проблема именно в сохранении пути в файл ...

[_SERGEYX_]

А зачем такие сложности с label и goto?
Может так проще?

  if OpenDialog1.Execute then
  begin
    with MainDM.ADOConnection1 do
    begin
      Connected := False;
      ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
        OpenDialog1.filename + ';Persist Security Info=False';
      Connected := True;
    end;
  end;

Ну и при OnShow формы...

  var ini: TINIFile;
begin
   ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'idintifik.ini');
    MainDM.ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
   ini.ReadString('Option','ConString','') + ';Persist Security Info=False';
      Connected := True;
   ini.Free;
end;

Кстати, почему при OnShow, а не OnCreate?

[chinara]

_SERGEYX_
спасибо вам за помощь...только вот программа теперь выдает ошибку : Access Violation at address 004BE1B0 ((((

[_SERGEYX_]

А в ini-файле есть нужная строка?
Проверим... Вот я создаю файл idintifik.ini с текстом

[Option]
ConString=e:\0_project\Project_10\CalcQuery\db_test.mdb

Пишу при создании формы (без DataModul-ей)

procedure TForm1.FormCreate(Sender: TObject);
var ini: TINIFile;
begin
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'idintifik.ini');
  ADOConnection1.Connected := False;
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
 ini.ReadString('Option', 'ConString', '') +
 ';Persist Security Info=False';
  ADOConnection1.Connected := True;
  ini.Free;
  ADOQuery1.Open;
end;

При нажатии на кнопку

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    with ADOConnection1 do
    begin
      Connected := False;
      ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
        OpenDialog1.filename + ';Persist Security Info=False';
      Connected := True;
      ADOQuery1.Open;
    end;
  end;
end;

Все прекрасно работает...