Задать вопрос
@White_Bambie
delphi

Почему ADO не подключается к БД MS Access?

В форме прописываю процедуру для добавления подключения к баз данных access, но последняя не подключается.
Использую среду разработки Delphi XE7.
procedure TfMain.FormCreate(Sender: TObject);
begin
  GetDir(0, DIR);
try
  fDM.ADOConnection1.LoginPrompt := False;
  fDM.ADOConnection1.Connected := False;
    fDM.ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;' + 'Data Source=' + DIR +'/DB/DB.mdb;' + 'Persist Security Info=False;';
  fDM.ADOConnection1.Connected := True;
except
  MessageBox(Handle,'Произошла ошибка при подключении к базе данных!','Ошибка!',MB_ICONERROR + MB_OK);
  Application.Terminate;
  end;
end;

Не могу понять в чем ошибка... Помогите советом добрым :)
p.s.: в Data Module Create процедура срабатывает и база подключается. А почему через главную форму нет?
  • Вопрос задан
  • 191 просмотр
1 комментарий
Подписаться 1 Простой 1 комментарий
Решения вопроса 1
tsklab
@tsklab
Здесь отвечаю на вопросы.
Data Module Create процедура срабатывает и база подключается. А почему через главную форму нет?
Если fDM ещё не создан, то нельзя его использовать.
Ответ написан
Комментировать
Комментировать
Пригласить эксперта
Ответы на вопрос 1
@Kot-da-Vinci
Обычно, чтобы понять в чем ошибка, смотрят, как минимум, текст сообщения возникшего исключения, а то и его класс. А не делают "Ой!" и "Application.Terminate".
Как-то так, например:
except
  on E: Exception do
  begin
    MessageBox(Handle,
      'Произошла ошибка при подключении к базе данных!' + sLineBreak 
        + E.ClassName + ': ' + E.Message, 
      'Ошибка!',
      MB_ICONERROR + MB_OK);
    Application.Terminate;
  end;
end;

Ответ на ваш вопрос вам уже написали.
Ответ написан
Комментировать
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
Вакансии с Хабр Карьеры
Программист-разработчик НСУ
Альбатрос • Москва
от 150 000 ₽
Java developer (Intern/Junior)
N.Academy • Москва
от 100 000 ₽
Kotlin Backend-разработчик
vivaCRM • Москва
от 200 000 до 250 000 ₽
Ещё вакансии
Заказы с Хабр Фриланса
Доработать телеграм бота
19 апр. 2024, в 03:52
1000 руб./за проект
Написать код на python
19 апр. 2024, в 03:01
1000 руб./за проект
Настройка сервера
18 апр. 2024, в 21:56
2000 руб./за проект
Ещё заказы