+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم مقالات قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=42)
+--- الموضوع : الغزل مع SQL Server (/showthread.php?tid=2358)
RE: الغزل مع SQL Server - atefkhalf2004 - 09-06-19
حضرتك انا حملت كل المراجع وحضرتك هناك مشكلة والدليل علي ذلك انا لما اوقفت هذه الجزئية كمل لكن لا نستطيع عمل باك اب. المهم حضرتك هذا الخطا. كيف اصلحه
كيف واين اضع كلمة new كما هو واضح في الخطا
معلهس انا اسف اثقلت عليك
حل اي المشكلة
RE: الغزل مع SQL Server - ابو ليلى - 10-06-19
السلام عليكم و رحمة الله و بركاته
اخي الكريم كخطوات تكميلية (لان كثير من الامور تغيرت)
احرص على استيراد المراجع التالية
Microsoft.SqlServer.ConnectionInfo
Microsoft.SqlServer.Management.Sdk.Sfc
Microsoft.SqlServer.Smo
Microsoft.SqlServer.SmoExtended
Microsoft.SqlServer.SqlEnum
المرجع المعلم بالاحمر مهم من اجل دوال النسخ و الاستعادة .
و تطوير على كود جلب السيرفرات انسخ هذا الكود لديك .
PHP كود :
#Region "Load Servers"
Public Function LoadServer64() As List(Of String)
LoadServer64 = New List(Of String)
Dim LocalMachine64 = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
Dim Rk64 = LocalMachine64.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server")
Dim Insatnces64 = CType(Rk64.GetValue("InstalledInstances"), String())
If Insatnces64.Length > 0 Then
For Each element As String In Insatnces64
If element = "MSSQLSERVER" Then
LoadServer64.Add(System.Environment.MachineName)
Else
LoadServer64.Add(System.Environment.MachineName + "\" + element)
End If
Next
End If
End Function
Public Function LoadServer32() As List(Of String)
LoadServer32 = New List(Of String)
Dim LocalMachine32 = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry32)
Dim Rk32 = LocalMachine32.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server")
Dim Insatnces32 = CType(Rk32.GetValue("InstalledInstances"), String())
If Insatnces32.Length > 0 Then
For Each element As String In Insatnces32
If element = "MSSQLSERVER" Then
LoadServer32.Add(System.Environment.MachineName)
Else
LoadServer32.Add(System.Environment.MachineName + "\" + element)
End If
Next
End If
End Function
#End Region
PHP كود :
LoadServ()
PHP كود :
For Each itm As String In LoadServer64()
LstSrv.Items.Add(itm)
Next
بالنسبة للكلمة New لا داعي لوجودها .
جرب و اخبرنا
بالتوفيق.
RE: الغزل مع SQL Server - asemshahen5 - 10-06-19
أو استخد الكود التالي لمعرفة نوع نظام التشغيل :
PHP كود :
If System.IO.Directory.Exists("C:\Program Files (x86)") Then
MsgBox("64-Bit OS")
Else
MsgBox("32-Bit OS")
End If
RE: الغزل مع SQL Server - atefkhalf2004 - 10-06-19
عند اضافة هذه المكتبة اظهر مقدما 11 خطا
للعلم انا استخدم windows 7 32
sql server 2008 r2
قد يكون هناك علاقة
الله اعلم
RE: الغزل مع SQL Server - Abdo hamed - 28-03-20
شكرا شرح ? ???رائع