Проверка наличия подключенной БД, с помощью ADOConnection

@Str. · Регистрация: 20.04.2012

Студворк — интернет-сервис помощи студентам

Искал по интернету, нигде ничего толкового не нашел. Если кто знает, помогите Plz.
БД подключена с помощью ADOConnection.
Суть в том, что при запуске программы, должна производится проверка наличия подключения БД, и если она корректно подключена - должно вывестись окно, с сообщением о том, что все прошло успешно. Если же нет - окно с кнопкой "Обзор..", где происходит выбор нового пути, к необходимой БД. Как это сделать, я понять не могу. Проблему составляет еще и то, что если тот путь, который уже указан в ADOConnection->ConnectionString не верен и по нему БД нет, то программа вообще даже не начинает выполняться. Просто выдает что определенный файл не найден и закрывается..

@Sasha · 20.04.2012, 21:36

Проверяешь наличие файла базы при помощи метода

C++
1
FileExists()

Добавлено через 8 минут
Если файл присутствует, то подключай его к проекту, если файла нет то используй OpenDialog для открытия фала и нахождения его

@Str. · 20.04.2012, 22:23 **[ТС]**

Сообщение от Sasha

Проверяешь наличие файла базы при помощи метода

C++
1
FileExists()

Добавлено через 8 минут
Если файл присутствует, то подключай его к проекту, если файла нет то используй OpenDialog для открытия фала и нахождения его

Спасибо за наводку, но можно чуть по-подробнее, как подключить его в проект? В ADOConnection в свойстве ConnectionString много всяких параметров, как именно мне указать, что путь, который я выбрал через OpenDialog является путем к БД?

Добавлено через 24 минуты
И, расскажите, пожалуйста, как пользоваться этим методом FileExists)

@Sasha · 20.04.2012, 22:24

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 String WayToBase, filename = "BD.mdb";
  if(!FileExists(ExtractFilePath(Application->ExeName)+filename))
{
   AnsiString ds = "Â êîðíåâîì êàòàëîãå îòñóòñòâóåò ôàéë ñ èìåíåì \n\n\t" +filename;
 
     if (Application->MessageBox(ds.c_str(),"Ïðåäóïðåæäåíèå",MB_OK +MB_TOPMOST+ MB_ICONWARNING)==IDOK)
  {
     if(OpenDialog1->Execute())
      {
        filename = OpenDialog1->FileName;
        WayToBase=ExtractFilePath(Application->ExeName)+filename;
        ADOConnection1->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+WayToBase+";Persist Security Info=True";
       ADOConnection1->Connected = true;
       ADOQuery1->ConnectionString = ADOConnection1->ConnectionString;
 }
  }
 
}
  
else
 {
 
  WayToBase=ExtractFilePath(Application->ExeName)+filename;
  ADOConnection1->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+WayToBase+";Persist Security Info=True";
  ADOConnection1->Connected = true;
  ADOQuery1->ConnectionString = ADOConnection1->ConnectionString;
}

@Str. · 20.04.2012, 22:37 **[ТС]**

Спасибо большое!)
Это, я так понимаю вешать на событие OnCreate? Повесив код туда, ошибка выдается, но OpenDialog не открывается.

_______________
А нет, он не открывался, только при компиляции и выполнении в самом Builder'е. Если запускать через *.exe все работает) Только при выборе БД выбивает вот такую ошибку: (дословно)
Access violation at address 00402D8f in module 'Project1.exe'. Read of address 000002F0.
Но БД все равно подключает. Что за ошибка, не подскажете? И как от нее избавиться?

@Sasha · 20.04.2012, 22:40

Какая ошибка?

@Str. · 20.04.2012, 22:47 **[ТС]**

Сообщение от Sasha

Какая ошибка?

Описал постом выше)

@Sasha · 20.04.2012, 22:48

Какой у тебя билдер?

@Str. · 20.04.2012, 22:53 **[ТС]**

Сообщение от Sasha

Какой у тебя билдер?

Шестой. Данные с БД просмотреть можно, но действия над ней также произвести не возможно. При попытке выдает такую же ошибку

@Sasha · 20.04.2012, 22:56

выложи проект я гляну

@Str. · 20.04.2012, 23:03 **[ТС]**

Сообщение от Sasha

выложи проект я гляну

Вот) На 2 форме твой код, на 4 сама БД. Спасибо)

@Sasha · 20.04.2012, 23:48

Вот держи

@Str. · 20.04.2012, 23:51 **[ТС]**

Сообщение от Sasha

Вот держи

Спасибо еще раз) А что там пришлось исправить? В чем была ошибка?

@Sasha · 20.04.2012, 23:54

Да там я просто код подправил в OpenDialoge кстати поставь фильтр в OpenDialoge, чтобы файл базы фильтровало

@Str. · 21.04.2012, 00:14 **[ТС]**

Сообщение от Sasha

в OpenDialoge кстати поставь фильтр в OpenDialoge, чтобы файл базы фильтровало

уже)
Только вот, БД все равно не отображает. Ни если база в корне есть, ни если ее указать в другом каталоге. СonnectionString остается пустым все равно и он и должен быть пустым в начале?

Добавлено через 14 минут
_____________
А все, проблему решил)

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Str. 0 / 0 / 2 Регистрация: 20.04.2012 Сообщений: 35

	Проверка наличия подключенной БД, с помощью ADOConnection 20.04.2012, 18:58. Показов 2953. Ответов 14 Метки нет (Все метки) Искал по интернету, нигде ничего толкового не нашел. Если кто знает, помогите Plz. БД подключена с помощью ADOConnection. Суть в том, что при запуске программы, должна производится проверка наличия подключения БД, и если она корректно подключена - должно вывестись окно, с сообщением о том, что все прошло успешно. Если же нет - окно с кнопкой "Обзор..", где происходит выбор нового пути, к необходимой БД. Как это сделать, я понять не могу. Проблему составляет еще и то, что если тот путь, который уже указан в ADOConnection->ConnectionString не верен и по нему БД нет, то программа вообще даже не начинает выполняться. Просто выдает что определенный файл не найден и закрывается.. 0

@Str. 0 / 0 / 2 Регистрация: 20.04.2012 Сообщений: 35
	20.04.2012, 22:37 [ТС]
	Спасибо большое!) Это, я так понимаю вешать на событие OnCreate? Повесив код туда, ошибка выдается, но OpenDialog не открывается. _______________ А нет, он не открывался, только при компиляции и выполнении в самом Builder'е. Если запускать через *.exe все работает) Только при выборе БД выбивает вот такую ошибку: (дословно) Access violation at address 00402D8f in module 'Project1.exe'. Read of address 000002F0. Но БД все равно подключает. Что за ошибка, не подскажете? И как от нее избавиться? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	20.04.2012, 22:40
	Какая ошибка? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	20.04.2012, 22:48
	Какой у тебя билдер? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	20.04.2012, 22:56
	выложи проект я гляну 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	20.04.2012, 23:54
	Да там я просто код подправил в OpenDialoge кстати поставь фильтр в OpenDialoge, чтобы файл базы фильтровало 0