VPF::привязка бд access ado - Форум программистов

alf138

Дата 22.9.2011, 19:32 (ссылка)

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

Загрузка ...

Бывалый

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

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

Суть в теме, как привязать access к программе чтобы на другой машине не прописывать пути, использую adoconnect. Юзал гугл но чето не понятно...
даже пробовал такое

Код


if OpenDialog1.Execute then
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;' +
    'Data Source=' + OpenDialog1.FileName + ';Mode=Share Deny None;Jet OLEDB:System database="";'+
    'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;'+
    'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+
    'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+
    'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+
    'Jet OLEDB:Compact Without Replica Repair=False;'+
    'Jet OLEDB:SFP=False;';

но ado находится на datamodule, и все ругается smile

Данкинг

Дата 22.9.2011, 20:32 (ссылка)

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

Загрузка ...

Yersinia pestis

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

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

Цитата(alf138 @ 22.9.2011, 20:32

)

Суть в теме, как привязать access к программе

Какой Access - БД, что ли? Ну так и открываешь, правильно же у тебя написано. Только строка подключения длинная как... smile

Код


//pp - строка подключения
if not OpenDialog1.Execute then exit;
pp:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+OpenDialog1.FileName+';Persist Security Info=False';
ADOConnection1.ConnectionString:=pp;
ADOConnection1.Connected:=true;

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

There's nothing left but silent epitaphs.

alf138

Дата 23.9.2011, 07:21 (ссылка)

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

Загрузка ...

Бывалый

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

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

Видать что то в той строчке криво было.... smile

Спасибо !

Это сообщение отредактировал(а) alf138 - 23.9.2011, 07:22

Данкинг

Дата 23.9.2011, 09:58 (ссылка)

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

Загрузка ...

Yersinia pestis

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

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

Да уж возможно и криво - сколько параметров ненужных у тебя. smile

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

There's nothing left but silent epitaphs.

Anakin

Дата 24.9.2011, 00:19 (ссылка)

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

Загрузка ...

Бывалый

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

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

Можно ещё минуя OpenDialog

Код


procedure TfrmMain.FormCreate(Sender: TObject);

begin
All_Con.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFileDir(ParamStr(0))  +'\Base.mdb;Persist Security Info=False';
All_Con.Connected:=True;
end;

Добавлено через 36 секунд
Программа будет искать фаил с базой у тебя в папке с программой.

alf138

Дата 24.9.2011, 09:27 (ссылка)

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

Загрузка ...

Бывалый

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

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

Не, у меня в папке base может конечно будет работать так надо попробовать

Код


procedure TfrmMain.FormCreate(Sender: TObject);
begin
All_Con.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFileDir(ParamStr(0))  +'\base\Base.mdb;Persist Security Info=False';
All_Con.Connected:=True;
end;

хотя дана врядли...

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