Count: Integer;
Свойство Count возвращает количество драйверов OLE DB, установленных в системе.
Добавьте ссылки на системные сборки: Dal, Db, Metabase.
Sub UserProc;
Var
MB: IMetabase;
DBDriv: IDalOleDbDrivers;
i: Integer;
Begin
MB := MetabaseClass.Active;
DBDriv := New DalOleDbDrivers.Create;
For i := 0 To DBDriv.Count - 1 Do
Debug.WriteLine(DBDriv.DriverName(i));
End For;
End Sub UserProc;
После выполнения примера в консоль среды разработки будут выведены наименования всех драйверов OLE DB, установленных в системе.
См. также: