شاطر
اذهب الى الأسفل
عدد المساهمات : 134
تاريخ التسجيل : 08/10/2012
معاينة صفحة البيانات الشخصي للعضو

النسخ الاحتياطى واسترجاع البيانات

في الثلاثاء أكتوبر 09, 2012 12:38 pm
كلنا يعلم أن تطبيق البرنامج فى المقام الأول يجب أن يهتم براحة العميل وتسهيل عملية الإستخدام

ولذلك حتى لا نقوم بتكليف العميل ما لا يطيق, أن يقوم كل يوم بالدخول لقاعدة البيانات لعمل نسخ إحتياطى و إسترجاع البيانات إذا دعت الضرورة لذلك, نعطيه خيار يقوم بتلك الوظائف من خلال الرنامج.

وكنت فى أحد برامجى قد أعددت هذا الأمر وأحببت أن تعم الفائدة..

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

نقوم بعمل قائمة رئيسية ويكون فيها عنصر ين (أحدهما حفظ و الآخر فتح) كما موضح فى الصورة السابقة.

قبل أن نبدأ بعملية كتابة كود الحفظ يجب علينا عمل موديول (Module) ونضع فيه هذا الكود

الكود:

Module Module
Imports System.Data.SqlClient
Public myConnection As SqlConnection
    Public reader As SqlClient.SqlDataReader
    Public myCommand As SqlClient.SqlCommand
    Public mydataadapter As SqlClient.SqlDataAdapter
    Public con_str As String = "server=(local);trusted_connection=true;database=&Your database Name&" مع مراعاة إسم الداتا بيز

  Public Function Command(ByVal Command_query As String) As Integer
        myConnection = New SqlClient.SqlConnection(Modul.con_str)
        myCommand = New SqlClient.SqlCommand(Command_query, myConnection)
        myCommand.Connection.Open()
        Return myCommand.ExecuteNonQuery
        myCommand.Connection.Close()
    End Function
End Module
ولضمان الصحة ظلل كل الموديول وبعد ذلك إعمل طباعة لكل الكود

وبعد ذلك فى العنصر حفظ من القائمة الرئيسية ضع هذاالكود(ونحتاج هنا ل SaveFileDialog و ProgressBar )
الكود:

Cursor = Cursors.WaitCursor
        SaveFileDialog1.OverwritePrompt = True
        SaveFileDialog1.InitialDirectory = "D:\BackupData" 'change to your backup path
        SaveFileDialog1.Filter = "Backup Files (*.Bak)|*.BaK"
        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then 'And Not SaveFileDialog1.FileName.Equals("") Then
            '    MsgBox("Please type the backup file name " & vbCr & "فضلاً أدخل إسم ملف النسخة الإحتياطية", MsgBoxStyle.Critical, msg_title)
            'Else
            OpenFileDialog1.InitialDirectory = "D:\BackupData"
            Dim BackupInformation As String = SaveFileDialog1.FileName
            Command("backup database Your_DataBase_Name to disk='" & BackupInformation & "'with password='Choose your password'")
            Dim I As Integer
            For I = 1 To 5000
                ProgressBar1.Visible = True
                ProgressBar1.Minimum = 1
                ProgressBar1.Maximum = 5000
                ProgressBar1.Step = 1
                ProgressBar1.Value = I
                If I = 5000 Then
                    ProgressBar1.Visible = False
                End If
            Next
            MsgBox("Database was successfully Backuped" & vbCr & "تم نسخ البيانات بنجاح", MsgBoxStyle.Information, msg_title)
        End If
        Cursor = Cursors.Default
وبعد ذلك فى العنصر حفظ من القائمة الرئيسية ضع هذاالكود(ونحتاج هنا ل OpenFileDialog )


الكود:

Cursor = Cursors.WaitCursor
        OpenFileDialog1.InitialDirectory = "D:\BackupData" 'change to your backup path
        OpenFileDialog1.Filter = "Backup Files (*.BaK)|*.BaK"
        If OpenFileDialog1.ShowDialog() = DialogResult.OK And Not OpenFileDialog1.FileName.Equals("") Then
            Command("use master RESTORE DATABASE Your Database name FROM disk='" & OpenFileDialog1.FileName & "' With password='Choose Your Password', Move 'Your Database name_Data' to 'C:\Program Files\Microsoft SQL Server\MSSQL\Data\Your Database name_Data.mdf',Move 'Your Database name_Log' to 'C:\Program Files\Microsoft SQL Server\MSSQL\Data\Your Database name_Log.ldf',Replace")
            Dim I As Integer
            For I = 1 To 5000
                ProgressBar1.Visible = True
                ProgressBar1.Minimum = 1
                ProgressBar1.Maximum = 5000
                ProgressBar1.Step = 1
                ProgressBar1.Value = I
                If I = 5000 Then
                    ProgressBar1.Visible = False
                End If
            Next
            MsgBox("Database was successfully restored" & vbCr & "تم إسترجاع البيانات بنجاح", MsgBoxStyle.Information, msg_title)
        Else
            MsgBox("Error !,No file" & vbCr & "خطأ، لايوجد ملف", MsgBoxStyle.Information, msg_title)
        End If
     
        Cursor = Cursors.Default
ملحوظة:
كلمة Choose Your Password تعنى أن تكتب الباسورد اللى إنت عاوزو علشان تحمى النسخة الإحتاطية
الإخوة الذين يستخدمون إصدار قاعدة بيانات أحدث من sqlserver 2000 يجب عليهم مراعاة مسار حفظ و فتح النسخة الإحتياطية.

و الآن جرب و إدعيلى
الرجوع الى أعلى الصفحة
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى