БД и OpenDialog

[alexeybest]

Здравствуйте. Хочу подключиться к БД Ado с помощью OpenDialog.

//PathToDB:=edit1.text+'.mdb';
   adoconnection1.Connected:=false;
   adotable1.Active:=false;
 If OpenDialog1.Execute then begin
  Opendialog1.FileName:=PathToDb;
   adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ PathToDb +  ';Persist Security Info=False';
   ADOConnection1.LoginPrompt := False;
   adoconnection1.Connected:=true;
   adotable1.Connection:=adoconnection1;
   adotable1.TableName:='Òàáëèöà1';
   adotable1.Active:=true;
  end;

Без OpenDialog открывалось нормально (когда строку с Edit читаю ), а вот когда из диалога то появляется ошибка "Не выполнена проверка подлинности". Подскажите пожалуйста.

[Dark_Spirit]

ну тут наверное ошибочка строку:

Opendialog1.FileName:=PathToDb;

попробуй заменить на:

PathToDb:=Opendialog1.FileName;

[alexeybest]

Спасибо, тут заработало. Хотя очень странно после этого ошибка в программе "несоответствие типа в выражении", хотя пока так открывал такого не было..

[Dark_Spirit]

Спасибо, тут заработало. Хотя очень странно после этого ошибка в программе "несоответствие типа в выражении", хотя пока так открывал такого не было..

странного ничего нету до использования opendialog-а вы задавали имя базы руками, о чём гооврит вот эта строка:

//PathToDB:=edit1.text+'.mdb';

а уже когда вы начали использовать opendialog? допустили ошибку, вместо того чтобы переменной PathToDB надать значение opendialog.filename, вы, сначала надаёте opendialog.filename значение переменной PathToDB, которая в данном случае путстая, то есть никакого значения не имеет. потом вы эту же, пустую, переменную используете в строке подключения к базе.