проверка пути adoconnection

[Оля2394]

Всем привет
задача в следующем: соединяюсь с базой данных указывая путь в ADOConnection.connectionstring через OpenDialog, подскажите пожалуйста, как сделать проверку на наличие подключения, пыталась через recordcount, не получилось

if ADOQuery1.recordcount<>0 then 
begin
//делать что-то
end else
showmessage('укажите путь');

[Stilet]

if ADOConnection.Connected then подключено.

[Оля2394]

Спасибо, добрый человек

[Аватар]

А как коннектишься?

[Оля2394]

procedure TForm1.changeDBaseClick(Sender: TObject);
var
  exApp, exBook, exSh, exChart : OleVariant;
  Od : TOpenDialog;
begin
  //Диалог выбора файла.
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  if Od.InitialDir = '' then //В качестве начальной выбираем папку, в которой лежит исполняемый файл программы.
    Od.InitialDir := ExtractFilePath(ParamStr(0));
  if not Od.Execute then //Диалог выбора файла.
    Exit;
  if not FileExists(Od.FileName) then //Проверка существования файла.
  begin
    MessageBox(Handle, 'Файл с заданным именем не найден! Действие отменено.',
      'Внимание!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
  ADOConnection1.ConnectionString:= Od.FileName;
   ADOConnection1.GetTableNames(ComboBoxTable.Items, False);
   ComboBoxTable.Text:=ComboBoxTable.Items[1];
end;

procedure TForm1.ComboBoxTableDB(Sender: TObject);
begin
//текст есть, очистим предыдущий запрос в наборе данных
Form1.ADOQuery1.SQL.Clear;
//добавим новый запрос
Form1.ADOQuery1.SQL.Add('select * from ' + ComboBoxTable.Text);     
//открываем набор данных, т.е. выполняем запрос
Form1.ADOQuery1.Open;
end;

[Аватар]

И что это за провайдер, что достаточно только полного имени базы в строке соединения?