Вниз
Скачать: CL | DM;

Версия Microsoft Jet OLE DB   Найти похожие ветки 

← →
Elshad   (2002-12-25 14:53) [0]

Уважаемые Мастера, Подскажите как мне можно програмно определить версию Microsoft Jet OLE DB т.е. какая версия 4.0 или 3.51?
Заранее благодарен.


← →
zx ©   (2002-12-25 16:31) [1]

не понял?
ты же сам его указываешь!
TADOConnection.Provider


← →
Elshad   (2002-12-26 14:32) [2]

Проблема в том что, мне нужно написать прогу каторая может работать и с версией 4.0 и с 3.51. По этому не могу конкретно указать версию в TADOConnection.Provider. Прога должна сперва выяснить какая версия стоит в данной машине, а потом уже указать Provider как "Microsoft.Jet.OLEDB.4.0" или "Microsoft.Jet.OLEDB.3.51".
Было бы великолепно узнать откуда Data Link берет список провайдеров в OLE DB Provider(s).


← →
Elshad   (2002-12-27 14:40) [3]

Ну же мастера...! Не ужели не у кого нет не какой мысли-:(((


← →
sniknik ©   (2002-12-27 15:22) [4]

исходник функции PromptDataSource получен элементарным выдиранием из модуля ADODB и мыслей никаких не надо, разберись как работает получиш результат.

function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
var
DataInit: IDataInitialize;
DBPrompt: IDBPromptInitialize;
DataSource: IUnknown;
InitStr: PWideChar;
begin
Result := InitialString;
DataInit := CreateComObject(CLSID_DataLinks) as IDataInitialize;
if InitialString <> "" then
DataInit.GetDataSource(nil, CLSCTX_INPROC_SERVER,
PWideChar(InitialString), IUnknown, DataSource);
DBPrompt := CreateComObject(CLSID_DataLinks) as IDBPromptInitialize;
if Succeeded(DBPrompt.PromptDataSource(nil, ParentHandle,
DBPROMPTOPTIONS_PROPERTYSHEET, 0, nil, nil, IUnknown, DataSource)) then
begin
InitStr := nil;
DataInit.GetInitializationString(DataSource, True, InitStr);
Result := InitStr;
end;
end;


← →
Elshad   (2002-12-27 15:50) [5]

Огромное спасибо за идею <sniknik>!!!
Прямо перед функцией PromptDataSource наткнулся на GetProviderNames - что и надо было...



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

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



Память: 0.46 MB
Время: 0.013 c
7-72554
BJValentine
2002-11-12 18:58
2003.01.23
Прога - невидимка


3-72085
Yrtimd
2002-12-28 21:36
2003.01.23
как в SQL-запросе задать условие отбора формата


1-72218
Жанна
2003-01-14 12:52
2003.01.23
Помогите пожалуйста


1-72388
Анатолий
2003-01-11 17:41
2003.01.23
Строки


3-72040
Kaginava
2003-01-05 08:48
2003.01.23
IB6.5




   Наверх