منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2 3 4

(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

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

اعطي خطأ في عذا السطر علي
Dim localMachine = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Default)

الريحستري

مانوع النواه على جهازك
64 بت
أو
32 بت
؟؟

32 win 7

ممتاز

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

PHP كود :

Imports Microsoft.Win32 

ثم أستبدل السطر الي فيه المشكلة بهذا

PHP كود :

           Dim localMachine = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry32) 

وتأكد من أستدعاء المكتبة ضروري جداً

أنا في أنتظارك

نفس المشكلة
RegistryView.Registry32)

أخوي اذهب إلى خصائص المشروع
وتأكد من النت فريم ورك أنه
.net framework 4

في حلالاستاذ سعود مؤقتا
كيف اضيف الاكسبرس

Dim SQL2 As New SqlConnection("Data Source=" & cs.Text & " &'\sqlexpress' ;Initial Catalog=master;integrated security=true")

اعطت ايضا خطأ

(19-09-16, 12:37 AM)جميل علي كتب : [ -> ]أخوي اذهب إلى خصائص المشروع
وتأكد من النت فريم ورك أنه
.net framework 4

305 الاصدار

الصفحات : 1 2 3 4