[VB.NET] تعبئة كومبو بوكس بقواعد البيانات الموجوده علي السيرفر

PHP كود :

Dim cn As New SqlConnection("Server=" & ComboServer.Text & ";database=master;integrated security=true")
                Dim da As New SqlDataAdapter("select name from sysdatabases", cn) 'sys.databases
                Dim dt As New DataTable
                da.Fill(dt)
                For i As Integer = 0 To dt.Rows.Count - 1
                    ComboDatabase.Items.Add(dt.Rows(i)("Name").ToString)
                Next

كود :

Imports System.Data.Sql

Imports System.Data.SqlClient



Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' تعبئة السيرفرات عند تحميل الشاشة

        FillServers()

    End Sub



    ' تعبئة السيرفرات في ComboBox الأول

    Private Sub FillServers()

        Try

            Dim serversTable As DataTable = SqlDataSourceEnumerator.Instance.GetDataSources()

            ComboBox1.Items.Clear()

            For Each row As DataRow In serversTable.Rows

                Dim serverName As String = row("ServerName").ToString()

                Dim instanceName As String = If(row("InstanceName").ToString() <> "", "\" & row("InstanceName").ToString(), "")

                ComboBox1.Items.Add(serverName & instanceName)

            Next

        Catch ex As Exception

            MessageBox.Show("خطأ في الحصول على السيرفرات: " & ex.Message)

        End Try

    End Sub



    ' حدث اختيار السيرفر من ComboBox الأول

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim selectedServer As String = ComboBox1.SelectedItem.ToString()

        FillDatabases(selectedServer)

    End Sub



    ' تعبئة قواعد البيانات في ComboBox الثاني

    Private Sub FillDatabases(serverName As String)

        Try

            Dim connectionString As String = $"Data Source={serverName};Integrated Security=True;"

            Using connection As New SqlConnection(connectionString)

                connection.Open()



                ' استعلام للحصول على قواعد البيانات

                Dim cmd As New SqlCommand("SELECT name FROM sys.databases WHERE state = 0", connection)

                Dim reader As SqlDataReader = cmd.ExecuteReader()



                ComboBox2.Items.Clear()

                While reader.Read()

                    ComboBox2.Items.Add(reader("name").ToString())

                End While



                reader.Close()

            End Using

        Catch ex As Exception

            MessageBox.Show("خطأ في الحصول على قواعد البيانات: " & ex.Message)

        End Try

    End Sub

End Class