Версия 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]

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

исходник функции 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 - что и надо было...

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