+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : جملة الاتصال sqlserver واكسس (/showthread.php?tid=17332)
RE: جملة الاتصال sqlserver واكسس - جميل علي - 19-09-16
(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
استاذي العزيز سعود
بارك الله فيك
اسعدني مرورك
RE: جملة الاتصال sqlserver واكسس - atefkhalf2004 - 19-09-16
اعطي خطأ في عذا السطر علي
Dim localMachine = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Default)
الريحستري
RE: جملة الاتصال sqlserver واكسس - جميل علي - 19-09-16
مانوع النواه على جهازك
64 بت
أو
32 بت
؟؟
RE: جملة الاتصال sqlserver واكسس - atefkhalf2004 - 19-09-16
32 win 7
RE: جملة الاتصال sqlserver واكسس - جميل علي - 19-09-16
ممتاز
تأكد من أستدعاء المكتبة
PHP كود :
Imports Microsoft.Win32
ثم أستبدل السطر الي فيه المشكلة بهذا
PHP كود :
Dim localMachine = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry32)
وتأكد من أستدعاء المكتبة ضروري جداً
أنا في أنتظارك
RE: جملة الاتصال sqlserver واكسس - atefkhalf2004 - 19-09-16
نفس المشكلة
RegistryView.Registry32)
RE: جملة الاتصال sqlserver واكسس - جميل علي - 19-09-16
أخوي اذهب إلى خصائص المشروع
وتأكد من النت فريم ورك أنه
.net framework 4
RE: جملة الاتصال sqlserver واكسس - atefkhalf2004 - 19-09-16
في حلالاستاذ سعود مؤقتا
كيف اضيف الاكسبرس
Dim SQL2 As New SqlConnection("Data Source=" & cs.Text & " &'\sqlexpress' ;Initial Catalog=master;integrated security=true")
اعطت ايضا خطأ
RE: جملة الاتصال sqlserver واكسس - جميل علي - 19-09-16
(19-09-16, 12:37 AM)جميل علي كتب : أخوي اذهب إلى خصائص المشروع
وتأكد من النت فريم ورك أنه
.net framework 4
RE: جملة الاتصال sqlserver واكسس - atefkhalf2004 - 19-09-16
305 الاصدار