backup/restore على SQL Server بالكود بدون إيقافه

بسم الله الرحمن الرحيم

اخي الكريم لا اعتقد ان هنالك طريقة مباشرة لعمل Backup لـِ SQLServer2000 والله اعلم

هنالك حل وهو ان تستخدم الكود لقراءة قاعدة البيانات والهيكلية الخاصة لها وان تنشأء ملف SQLScript

هذا المثال استخدمته في برنامجي منذ فترة ولكن ليس لـ SQLServer بل استخدمته لـ MySQL

ولا اعتقد ان هنالك فرق كبير بين قاعدتين البيانات سوى بعض التعديلات البسيطة

Namespace SearchJo.Cls
    Public Class AdminDB
        Inherits ClsBase

#Region "Class Member Decleration"
        Dim _table As String
#End Region
        Public Sub New()
            '// TODO:: Class Constrcter Logic here
        End Sub
        Public Function GetAllDataBase() As DataTable
            Dim str As String
            str = "SHOW DATABASES;"
            Dim _adpt As New MySqlDataAdapter(str, _oCon)
            Dim _toReturn As New DataTable
            _adpt.Fill(_toReturn)
            Return _toReturn
        End Function
        Public Function GetAllTables() As DataTable
            Dim str As String
            str = "show tables from Searchjo"
            Dim _adpt As New MySqlDataAdapter(str, _oCon)
            Dim _toReturn As New DataTable
            _adpt.Fill(_toReturn)
            Return _toReturn
        End Function
        Public Function DescTable() As DataTable
            Dim str As String
            str = "use searchjo; desc " + _table
            Dim _adpt As New MySqlDataAdapter(str, _oCon)
            Dim _toReturn As New DataTable
            _adpt.Fill(_toReturn)
            Return _toReturn
        End Function
        Public Function GetAllDataLogic() As DataTable
            Dim str As String
            str = "select * from " + _table
            Dim _adpt As New MySqlDataAdapter(str, _oCon)
            Dim _toReturn As New DataTable
            _adpt.Fill(_toReturn)
            Return _toReturn
        End Function
#Region "Class Property Decleration"
        Public Property [Table]() As String
            Get
                Return _table
            End Get
            Set(ByVal Value As String)
                _table = Value
            End Set
        End Property
#End Region
    End Class

وفي الشاشة الرئيسية كالتالي يكون الكود

        Dim _Desc As New DataTable
        Dim MyObj As New SearchJo.Cls.AdminDB
        Dim lstTables As New ListBox
        lstTables.DataSource = MyObj.GetAllTables
        lstTables.DataTextField = MyObj.GetAllTables.Columns(0).ToString()
        lstTables.DataBind()

        If lstTables.Items.Count = 0 Then
            Exit Sub
        End If
        For i = 0 To lstTables.Items.Count - 1
            Dim pk As String = ""
            Dim fk As String = ""
            MyObj.Table = lstTables.Items(i).Text
            str += "DROP TABLE IF EXISTS `" + lstTables.Items(i).Text + "`;" + ControlChars.NewLine
            _Desc = MyObj.DescTable
            str += "Create table " + "'" + lstTables.Items(i).Text + "'" + ControlChars.NewLine
            str += "( " + ControlChars.NewLine
            For j = 0 To _Desc.Rows.Count - 1
                str += "'" + _Desc.Rows(j)(0) + "' " + _Desc.Rows(j)(1)
                If _Desc.Rows(j)(2) = Nothing Or _Desc.Rows(j)(2) = "" Then
                    str += " NOT NULL "
                End If
                If _Desc.Rows(j)(3) = "PRI" Then
                    pk += "PRIMARY KEY  (`" + _Desc.Rows(j)(0) + "`)"
                End If
                If IsDBNull(_Desc.Rows(j)(4)) = True Then
                Else
                    str += "default '" + _Desc.Rows(j)(4) + "' "
                End If
                If IsDBNull(_Desc.Rows(j)(5)) = True Then
                Else
                    str += " " + _Desc.Rows(j)(5)
                End If
                str += "," + ControlChars.NewLine
            Next
            str += pk + ControlChars.NewLine
            str += ");" + ControlChars.NewLine
        Next 'Next i
        txtData.Text = str
[CODE/]

اقتباس

على فكرة استخدم هنا كود ASP.Net ولا يوجد هذا الفرق الكبير في الكود بينها وبين VB.Net / Windows Application


هذا بعض الشرح للتعليمات
اقتباس

تستخدم هذه التعليمة لإظهار قواعد البيانات الموجودة على السيرفر
[CODE]
str = "SHOW DATABASES;"

استخدم هذه التعليمة لإظهار اسماء الجداول الموجودة في قاعدة بيانات معينة

 str = "show tables from Searchjo"

استخدم هذه التعليمة لأرجاع بنية احد الجداول كالتالي

 str = "use searchjo; desc " + _table

حيث table_ هو اسم الجدول المراد اخذ البينة الخاصة به.

هذا الكود قد تتضطر للتعديل عليه حسب هيكلة SQLServer حيث لا اعتقد ان هنالك كلمة use في SQLServer عتقد انه يجب عليك

أن تجد الكلمة البديلة لهذه الكلمة

بالنسبة لموضوع تشغيل وإيقاف SQLServer

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

مرفقا البرنامج

Enjoy

WindowsApplication9.zip

السلام عليكم..

كيف لي أن أعمل Stop و Start لـ SqlServer2000

بإستخدام الشفرة البرمجية في VB.Net 2005

شكراً جزيلاً لك أخي Only The Lonely على تعاونك

السلام عليكم

اقتباس

اخي الكريم لا اعتقد ان هنالك طريقة مباشرة لعمل Backup لـِ SQLServer2000 والله اعلم

ممكن عمل Backup and Restore بى الكود افتح الوصلة التالية

Backup and Restore

عن طريق SQLDMO.dll و الذي تجده ب

C:\Program Files\Microsoft SQL Server\80\Tools\Binn

ضيفه as reference

 
       Dim SqlServ As New SQLDMO.SQLServer
        SqlServ.LoginSecure = True
        SqlServ.Connect("(local)")
        SqlServ.Stop()
        SqlServ.DisConnect()
        MsgBox("Stopped Successfully")
        SqlServ.Start(True, "(local)")
        MsgBox("Start Successfully")

شكراً جزيلاً لكم إخواني على تعاونكم للإجابة سؤالي.

وأخص بالذكر كل من أجاب على سؤالي وجزاكم الله خير.