| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Установка связи с Access [D7]

Tolik_tmp ©   (2003-05-11 22:42:00) 

Народ, привет! Подскахите, как в runtime настроить соединение с базой access. вопрос был, но давно - не могу найти. Через какой-то диалог, что-ли?
спасибо.

---

Tolik_tmp   (2003-05-17 21:43:00) [1]

Bingo!!! Всем спасибо! Дырявая моя голова!

---

sniknik   (2003-05-12 01:56:00) [2]

шестое чуство подсказывает что вопросом подразумевалось одно из

AdoConed
EditConnectionString

ADODB
PromptDataSource

(правда сразу понять трудно)

---

Tolik_tmp   (2003-05-12 01:43:00) [3]

Ладно, придется делать через UDL.

---

Tolik_tmp   (2003-05-12 01:13:00) [4]

А может, это из диалогов самого D? Типа как настройка печати и т.п.

---

Anatolyk   (2003-05-12 01:05:00) [5]

Наверное, это немного не то. По крайней мере - не увидел, чего хотел.

---

Тих   (2003-05-12 00:35:00) [6]

Интерфейсы OLEDB IDataInitialize и IDBPromptInitialize, обернуты в ф-ю PromptDataSource из ADODB.pas

---

Tolik_tmp   (2003-05-11 23:43:00) [7]

Понятно. И, если можно иакой вопрос: Смена Ос XP <-> Win9x. Там принципы немного разные. В данном примере настройка чисто программная, и под определенной ОС будет работать. Я помню, был пример вызова ДИАЛОГА, такого же, как в самой среде при создании ConnectionString. Не помню, как его звать.

---

Ihor Osov'yak   (2003-05-11 23:31:00) [8]

зы - может еще придется делать CoInitialize(nil), если в других модулях еще не сделано..

---

Ihor Osov'yak   (2003-05-11 23:30:00) [9]

Если через адо -

conn:=TAdoConnection.Create(nil);
with conn do begin
CommandTimeOut := 30;
ConnectionString := "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False";
ConnectionString := Format("%s;Data Source=%s;Jet OLEDB:Database Password=%s",
[conn.ConnectionString,sCfgSrv.DBFileName,sCfgSrv.DBPassword]);
LoginPrompt := False;
ConnectionTimeout := 15;
ConnectOptions := coConnectUnspecified;
IsolationLevel := ilReadCommitted;
KeepConnection := true;
Mode := cmReadWrite;
Name := "conn"+IntToStr(fID);
Provider := "Microsoft.Jet.OLEDB.4.0";

end;
Conn.Connected := true;

---

Наверх