|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.03.2014, 17:51 | #1 |
Пользователь
Регистрация: 07.03.2014
Сообщений: 27
|
Путь к БД, находящейся в папке программы
Здравствуйте! Мне необходимо сделать чтобы при перемещении моей программы не выдавало ошибки: Не найдена БД (или что-то в это роде).
Прописал код: Код:
Последний раз редактировалось Stilet; 16.03.2014 в 19:32. |
16.03.2014, 18:08 | #2 |
Форумчанин
Регистрация: 11.03.2011
Сообщений: 426
|
Попробуйте перед присвоением строки соединению его закрыть.
|
16.03.2014, 19:00 | #3 |
Пользователь
Регистрация: 07.03.2014
Сообщений: 27
|
|
16.03.2014, 19:03 | #4 |
Форумчанин
Регистрация: 11.03.2011
Сообщений: 426
|
Полагаю, что именно это и нужно сделать. Вы в программе установили значение True в компоненте. При старте приложения пытаетесь изменить значение, не закрыв соединения.
|
16.03.2014, 19:35 | #5 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Но лучше конечно же в дизайнере выключить Active
I'm learning to live...
|
|
16.03.2014, 20:15 | #6 | |
Пользователь
Регистрация: 07.03.2014
Сообщений: 27
|
Цитата:
Я прописал эту строчку, но потом БД не отображалась. И затем до меня долшо что и ADOQuery надо поставить в Active-true. Вот и получился финальный код: procedure TForm1.FormCreate(Sender: TObject); Const ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;D ata Source=%s\Database91.mdb;'; begin ADOConnection1.Connected := False; ADOConnection1.ConnectionString := Format(ConnectionString,[ExtractFileDir(ParamStr(0))]); ADOConnection1.LoginPrompt := False; ADOQuery1.Active := True; try ADOConnection1.Open; except on E: Exception do ShowMessage(E.Message); end; end; Благодарю вас за помощь |
|
16.03.2014, 21:02 | #7 | |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Цитата:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как узнать путь к папке Program Files | Miller-1981 | C++ Builder | 3 | 21.07.2012 11:35 |
Абсолютный путь к файлу/папке | Red_Line | Общие вопросы по Java, Java SE, Kotlin | 0 | 16.02.2012 22:06 |
Открыть доступ к папке находящейся на рабочем столе всем пользователям интернет | romantik2011 | Операционные системы общие вопросы | 4 | 03.08.2011 00:04 |
Путь к папке в проекте | Mr_skiner | Общие вопросы Delphi | 4 | 18.05.2011 00:02 |