Вниз
Скачать: 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.019 c
1-72304
ivansv
2003-01-12 02:48
2003.01.23
Как выбирать эл-ты в TListView при одновременном добавлении новых


14-72528
vic_774N
2003-01-07 11:25
2003.01.23
Прикол с загрузкой win98se rus !!!!


1-72204
БурЖуй
2003-01-11 20:38
2003.01.23
определенее нажатия кнопки DEL в stringgrid


1-72346
Spiteful MAx
2003-01-10 20:48
2003.01.23
Вызов приложения из трея


7-72547
Геннадий
2002-11-11 16:29
2003.01.23
Как перехватить сообщение, посланное конкретному Control у?




   Наверх