[جميل علي]

(18-09-16, 11:15 PM)atefkhalf2004 كتب : انا اضفت وعملت اعداد ل sql2008 r2   غالبا اكسبرس

أخوي الكريم
تأكد من أن السيرفر يعمل لديك
أنا سويت تجربة لتأكد أغلقت الاتصال بالسيرفر
وحاول أجلب أسماء السيرفرات من الكمبو بوكس وظهري نفس لرسالة الخطاً
لكن على كل حال
جرب هذا الكود

جرب هذا  Private Sub

PHP كود :

 Private Sub loadNameserver(ByVal combo As ComboBox)
        Try
            Dim localMachine = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Default)
            Dim rk = localMachine.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server")
            Dim instances = CType(rk.GetValue("InstalledInstances"), String())
            If instances.Length > 0 Then
                For Each element As String In instances
                    If element = "MSSQLSERVER" Then
                        combo.Items.Add(System.Environment.MachineName)
                    Else
                        combo.Items.Add(System.Environment.MachineName + "\" + element)
                    End If
                Next element
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub 


ثم أستدعي هذا SUb  في حدث
DropDown
 للكمبو الخاص بالسيرفر
بهذا الشكل

PHP كود :

cs.Items.Clear()
        loadNameserver(cs) 


ولاتنسى استدعاء المكتبة

PHP كود :

Imports Microsoft.Win32 


هذا والله أعلى وأعلم

---

(18-09-16, 11:37 PM)سعود كتب : اذا هو اكبرس اكتب بعد اسم الخادم 

PHP كود :

\sqlexpress 


استاذي العزيز سعود
بارك الله فيك
اسعدني مرورك