Установка связи с 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.

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

AdoConed
EditConnectionString

ADODB
PromptDataSource

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

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

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

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