تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
الغزل مع SQL Server
#21
حضرتك انا حملت كل المراجع  وحضرتك هناك مشكلة  والدليل علي ذلك انا لما اوقفت هذه الجزئية كمل لكن لا نستطيع  عمل باك اب. المهم حضرتك هذا الخطا. كيف اصلحه 
كيف واين اضع كلمة new كما هو واضح في الخطا
معلهس انا اسف اثقلت عليك 
حل اي المشكلة
الرد
تم الشكر بواسطة:
#22
السلام عليكم و رحمة الله و بركاته
اخي الكريم كخطوات تكميلية (لان كثير من الامور تغيرت)
احرص على استيراد المراجع التالية
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.LocalMachineRegistryView.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 
بدل بين LoadServer64  او LoadServer32 حسب نوع النظام لديك.


بالنسبة للكلمة New لا داعي لوجودها .
جرب و اخبرنا 
بالتوفيق.
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد
تم الشكر بواسطة: sendbad100 , حريف برمجة , asemshahen5
#23
أو استخد الكود التالي لمعرفة نوع نظام التشغيل :

PHP كود :
       If System.IO.Directory.Exists("C:\Program Files (x86)"Then
            MsgBox
("64-Bit OS")
 
       Else
            MsgBox
("32-Bit OS")
 
       End If 
الرد
تم الشكر بواسطة:
#24
عند اضافة هذه المكتبة اظهر مقدما 11   خطا

للعلم انا استخدم windows  7   32
sql server     2008  r2
قد يكون هناك علاقة 
الله اعلم
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم