Окно выбора DataSource

[Ramzes]

как его написать
т.е. откуда взять все извесные системе в данный момент датасорсы?

не то, что бы мне было лень разбиратся, просто не мне надо, а времени савсем нет вот и прошу помочь

[Ramzes]

Код: Выделить всё

Imports System.Data.OleDb
Module Module1

    Sub Main()
        Dim Dreader As OleDbDataReader
        Dreader = OleDbEnumerator.GetRootEnumerator
        While Dreader.Read
            Console.WriteLine(Dreader.Item(0) & vbCrLf & Dreader.Item(1) & vbCrLf & Dreader.Item(2) & vbCrLf & Dreader.Item(3) & vbCrLf & Dreader.Item(4) & vbCrLf & Dreader.Item(5))
            Console.WriteLine("-------------------------------------------------")
        End While
        Console.Read()
    End Sub

End Module

пока сам не разберешся, никто не разберется

а вот что пишет MSDN
http://windowssdk.msdn.microsoft.com/en ... ments.aspx

Код: Выделить всё

Imports System.Data
Imports System.Data.OleDb

Module Module1

    Sub Main()
        Dim enumerator As New OleDbEnumerator
        Dim table As System.Data.DataTable = enumerator.GetElements()

        DisplayData(table)

        Console.WriteLine("Press any key to continue.")
        Console.ReadKey()
    End Sub

    Private Sub DisplayData(ByVal table As DataTable)
        For Each row As DataRow In table.Rows
            For Each col As DataColumn In table.Columns
                Console.WriteLine("{0} = {1}", col.ColumnName, row(col))
            Next
            Console.WriteLine("==================================")
        Next
    End Sub
End Module