Count: Integer;
The Count property returns the number of the DBMS drivers supported in the platform.
Sub UserProc;
Var
MbMan: IMetabaseManager;
Drivers: IDbDrivers;
Driver: IDbDriver;
i: Integer;
Begin
MbMan := MetabaseManagerFactory.Active;
Drivers := MbMan.Drivers;
For i := 0 To Drivers.Count - 1 Do
Driver := Drivers.Item(i);
Debug.WriteLine("Name: " + Driver.Name + "; Identifier: " + Driver.Id + "; Key: " + Driver.Key.ToString);
End For;
End Sub UserProc;
After executing the example the information about all drivers of the DBMS supported by the platform will be displayed in the development environment console.
See also: