[Emam emam]

السلام عليكم اخوتي الاحباب
كيف لي ان اجلب اسم سيرفر ال SQL 
يعني عند الضغط علي زر تظهر رساله مثلا وفيها اسم السيرفر

وجزاكم الله خيرا

[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 


[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

تحياتى لك

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

[Emam emam]

(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

تحياتى لك

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

اخي الجوكر اشكرك شكرا كثيرا 
بارك الله فيك علي اهتمامك وجعله في ميزان حسناتك ان شاء الله