اسماء قواعد البيانات

ساقوم بارفاق مثال صغير قمت بصنعه

ضع زر Commnd Button و 2 Combobox

قم بتعريف متغيرات عامة كالاتى

Dim CN As New SqlConnection()
    Dim CMD As New SqlCommand()
    Dim DR1, DR2 As SqlDataReader
Dim ConStr, DBCMDStr, TBLCMDStr As String

و فى حدث تحميل الفورم

ConStr = "data source=www\dev;initial catalog=master; integrated security=true;"

        DBCMDStr = " select CATALOG_NAME from INFORMATION_SCHEMA.SCHEMATA"

ستقوم بفتح الاتصال عند الضغط على الزر

'Assign Connection String To Connection Object
        CN.ConnectionString = ConStr

        'Test If You Have Opened Connection
        If Not CN.State = ConnectionState.Open Then

            'Catch Open Connection Errors
            Try
                CN.Open()
            Catch EX As Exception
                MessageBox.Show(EX.Source)
            End Try

        End If
        
        'DBCMD Command Properties
        With CMD
            .Connection = CN
            .CommandType = CommandType.Text
            .CommandText = DBCMDStr
        End With

        'Fill The First ComboBox With DataBases Names
        DR1 = CMD.ExecuteReader()
        While DR1.Read
            ComboBox1.Items.Add(DR1.Item(0))
        End While

        'Close Reader
        DR1.Close()

فى حدث ال ComboBox1_SelectedIndexChanged ضع الكود الاتى

 'Clear Combobox Text
        ComboBox2.ResetText()

'Clear Any Previous Items
        ComboBox2.Items.Clear()

TBLCMDStr = "USE" & " " & ComboBox1.Text & " " & _
                                "select TABLE_NAME From information_schema.tables"

        'TBLCMD Command Properties
        With CMD
            .Connection = CN
            .CommandType = CommandType.Text
            .CommandText = TBLCMDStr
        End With

        DR2 = CMD.ExecuteReader
        'Fill The Second ComboBox With Tables Names
        While DR2.Read
            ComboBox2.Items.Add(DR2.Item(0))
        End While

        'Close Reader
        DR2.Close()

لا تنس اغلاق الاتصال فى حدث ال closing للنموذج

المشروع قد تجد به اخطاء منطقية و لكنى وضعته كمثال فقط

AllDBS.rar

احسنت أخي طارق

فكرة جميلة