VPF::ADO - Форум программистов

Kirgston

Дата 12.6.2008, 01:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2

Хммммм вот тут возник такой маленький вопросик. Есть база на АДО. Если я перенесу в другую папку или на другой комп то путь в АДО конект поменяетса и база неоткроетса. Дайте советик как ето исправить? Чтоб любой пользователь без понимания дельфи мог запустить ето все smile

Данкинг

Дата 12.6.2008, 02:02 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Действительно, путь поменяетса и база неоткроетса. Потому что в строке подключения ADO надо указывать путь к БД - обычно относительно EXE-файла программы, которая эту базу открывает. А как это сделать - юзай поиск по форуму, это обсуждалось
...цать раз. smile

ЗЫ: только сейчас дошло: "база на ADO" - это сильно сказано. smile

Это сообщение отредактировал(а) Данкинг - 12.6.2008, 02:06

--------------------

There's nothing left but silent epitaphs.

Kirgston

Дата 12.6.2008, 08:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2

ХЗ ... ищу ищу и немогу найти. Может подскажыте конкретный запрос на поиск? smile

А то я так и до японского нового года ненайду smile

pseud

Дата 12.6.2008, 10:22 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(Kirgston @ 12.6.2008, 01:46

)

Есть база на АДО

с этого места поподробнее

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Данкинг

Дата 12.6.2008, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Kirgston @ 12.6.2008, 09:01

)

Может подскажыте конкретный запрос на поиск?

тык

--------------------

There's nothing left but silent epitaphs.

Kirgston

Дата 12.6.2008, 11:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2

База на АДО. ADOConnection, ADOTable, DataSourse, DBGrid. Ну самая обычная база. Просто там прикол в Адо конект прописываетса точный путь к файлу. И тоисть выходит так что при смене папки например C:\ na D:\ база уже нечитаетса. И надо попровлять путь на диск Д. В етом и проблема smile

pseud

Дата 12.6.2008, 12:08 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

используй ini-файл.
храни там "путь к БД"
при запуске проги зачитывай.
при необходимости (для админа, например) делаешь в проге окно Settings
там даешь возможность менять свойство "путь к БД"

Добавлено через 5 минут и 12 секунд
или же генери путь к базе динамически:

Код


procedure TMainForm.FormCreate(Sender: TObject);
begin
  //........  
  FAppFile := Application.ExeName; // полное имя исполняемого файла проги
  FAppPath := ExtractFilePath(FAppFile); // папка проги
  FDatabasePath := FAppPath + 'DATABASE\'; // папка базы

  ADOConnection.ConnectionString := '.....' + FDatabasePath + '...........';
  ADOConnection.Connect;
  //........  
end;

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Данкинг

Дата 12.6.2008, 12:42 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Kirgston @ 12.6.2008, 12:55

)

База на АДО.

Базы на АДО быть не может, потому что базы на АДО не может быть. smile

Пример с БД Access (файл kladr.mdb лежит в той же папке, что и программа):

Код


var p,pp:string;
begin
p:=extractfilepath(application.ExeName)+'\kladr.mdb';
pp:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+p+';Persist Security Info=False';
conn.ConnectionString:=pp;
conn.Connected:=true;

--------------------

There's nothing left but silent epitaphs.

valentos

Дата 12.6.2008, 22:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 7.12.2006
Где: Belarussia, Gomel

Репутация: нет
Всего: 2

Используй для подключения UDL файл smile

или кидай базу в папку с екзешником, а в строке подключения указывай тока имя файла (например Baza.mdb)

Цитата(Kirgston @ 12.6.2008, 01:46

)

Есть база на АДО

Дай заюзать smile

--------------------

[code=sql]select name, telephone from Girls where age between 20 and 25 and (.)(.) >= 2 order by IQ desc [/code]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »