IDalOleDbDrivers.Driver

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    OleDrivers: IDalOleDbDrivers;
    Driver: IDalDriver;
    Descriptor: IDalConnectionDescriptor;
    Params: IDalConnectionDescriptorParams;
    Param: IDalConnectionDescriptorParam;
    i, c: Integer;
Begin
    MB := MetabaseClass.Active;
    OleDrivers := New DalOleDbDrivers.Create;
    c := OleDrivers.Count;
    For i := 0 To c - 1 Do
        Debug.WriteLine("Driver name: " + OleDrivers.DriverName(i));
        Debug.WriteLine("---Driver Parameters---");
        Driver := OleDrivers.Driver(i);
        Debug.Indent;
        Descriptor := Driver.CreateDescriptor;
        Params := Descriptor.Params;
        For Each Param In Params Do
            Debug.WriteLine(Param.Name);
        End For;
        Debug.Unindent;
        Debug.WriteLine("");
    End For;
End Sub UserProc;