| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать установлен ли Jet и его версию, если установлен? [D7]

Denis ©   (2005-08-29 10:08:00) 

Приветствую всех!
Как узнать установлен ли Jet на машине? Его версию, если таки установлен?
ОС: 98 и ХР.

---

Denis   (2005-08-29 12:49:00) [1]

А ларчик-то просто открывается...
Спасибо!

---

sniknik   (2005-08-29 11:37:00) [2]


function ADO_and_Jet40:String;
var con:TADOConnection;
begin
 try
   con:=TADOConnection.Create(nil);
   con.LoginPrompt:=False;
   con.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Text;Data Source=.';
   con.Open;
   Result:=con.Version;
   con.Free;
 except
   on E:Exception do Result:=E.Message;
 end;
end;


правда немного не то. выдает версию MDAC(ADO) и проверяет установлен ли Jet вообще, версия сейчас неактуальна. всегда 4.0.

---

Slym   (2005-08-29 10:19:00) [3]

Лучший способ узнать существование чегото, обратится к нему.

---

Наверх