[Aminsoft]

(03-01-22, 08:02 PM)aljzazy كتب : هذا الامر يقوم باستدعاء جميع السيرفرات الموجودة في الجهاز

PHP كود :

Public Sub Loadserver(ByVal combo As ComboBox)
        Try
            Dim localmachine = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
            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
            MsgBox(ex.Message)
        End Try
    End Sub 


يتم استدعاء الامر كالتالي

PHP كود :

Loadserver(cmb_Server) 


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

PHP كود :

Imports Microsoft.Win32
Imports System.Data.SqlClient
Imports System.IO 


---

اما لتحميل كافة قواعد البيانات على السيرفر

PHP كود :

Public Sub selectdata(comboserver As ComboBox, combodatabase As ComboBox)

        combodatabase.Items.Clear()

        Dim cn As New SqlConnection("server=" & comboserver.Text & "; database = master ; integrated security=true ")
        Dim da As New SqlDataAdapter("select name from sys.databases ", cn)
        Dim dt As New DataTable
        da.Fill(dt)

        For i As Integer = 0 To dt.Rows.Count - 1
            combodatabase.Items.Add(dt.Rows(i)("name").ToString)
        Next
    End Sub 


---

لكن نصيحة اذا كنت تريد عمل نسخة احتياطية لقاعدة البيانات عن طريق المستخدم
قمت باضافة مسار لحفظ النسخة وتجنب الحفظ على دريف C

السلام عليكم ورحمة الله وبركاته أتمنى أن تكون في صحة وعافية

لقد استخدمت هذا الكود ورجع لي بخطأ (" لم يتم تعيين مرجع كائن لمثيل كائن ") ما السبب

وشكراً