(08-10-19, 08:35 AM)asemshahen5 كتب : ضع ComboBox على الفورم و جرب السب التالي :

PHP كود :

   Sub LoadServer(ByVal Combo As ComboBox)
        Try
            Dim Instance As New ArrayList
            Dim Rk As New ArrayList
            Instance.AddRange(Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server", "InstalledInstances", "MSSQLSERVER"))
            If Instance.Count > 0 Then
                For Each Element As String In Instance
                    If Element = "MSSQLSERVER" Then
                        Combo.Items.Add("(Local)")
                        Combo.Items.Add(System.Environment.MachineName)
                    Else
                        Combo.Items.Add("(Local)" + "\" + Element)
                        Combo.Items.Add(System.Environment.MachineName + "\" + Element)
                    End If
                Next Element
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "Error")
        End Try
    End Sub 


ضع في كود تحميل الفورم :

PHP كود :

       LoadServer(ComboBox1)
        ComboBox1.SelectedIndex = 0 


(08-10-19, 03:00 PM)elgokr كتب :

وعليكم السلام ورحمة الله وبركاته

مرحباً اخى Emam emam

يمكنك استخدام هذا الكود

كود :

       Try
           Dim servers As DataTable = System.Data.Sql.SqlDataSourceEnumerator.Instance.GetDataSources()
           For i As Integer = 0 To servers.Rows.Count
               ComboBox1.Items.Add(servers.Rows(i)("ServerName") + "\\" + servers.Rows(i)("InstanceName"))
               ComboBox1.SelectedIndex = 0
           Next
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try

ولتجنب تعليق البرنامج فى عملية جلب البيانات

طبقاً لحالة موارد الجهاز وسرعة الاستجابة فقم باستخدام 

BackgroundWorker

تحياتى لك

وتمنياتى لك التوفيق