Скачать: CL | DM;

Установка связи с Access   Найти похожие ветки 

← →
Tolik_tmp   (2003-05-11 22:42) [0]

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

---

← →
Ihor Osov'yak ©   (2003-05-11 23:30) [1]

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

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;

---

← →
Ihor Osov'yak ©   (2003-05-11 23:31) [2]

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

---

← →
Tolik_tmp   (2003-05-11 23:43) [3]

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

---

← →
Тих   (2003-05-12 00:35) [4]

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

---

← →
Anatolyk ©   (2003-05-12 01:05) [5]

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

---

← →
Tolik_tmp   (2003-05-12 01:13) [6]

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

---

← →
Tolik_tmp   (2003-05-12 01:43) [7]

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

---

← →
sniknik ©   (2003-05-12 01:56) [8]

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

AdoConed
EditConnectionString

ADODB
PromptDataSource

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

---

← →
Tolik_tmp   (2003-05-17 21:43) [9]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c