تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إسترجاع النسخة الإحتياطية
#1
السلام عليكم . كيف يمكن إخواني إضافة كود لزر الأمر رقم 2 لاسترجاع النسخة الإحتياطية " RESTORE " و وضعها بمجلد ال :
BIN .. DEBUG
يتم استبدال قاعدة البيانات الموجودة بهذا المسار بقاعدة البيانات التي يتم استرجاعها بزر الأمر 2
أملي المساعدة لو سمحتم
بارك الله فيكم


الملفات المرفقة
.rar   RESTORE.rar (الحجم : 76.02 ك ب / التحميلات : 34)
الرد
تم الشكر بواسطة:
#2
PHP كود :
Public Class Form1


    Dim BackupPath 
As String "C:\AhmedBackup\"
    Dim DBFilename As String = "
DATABASE.mdb"

    Dim DBBackupFullFilename As String = String.Concat(BackupPath, "
\", DBFilename)
    Dim DBCurrentFullFilename As String = String.Concat(Application.StartupPath, "
\", DBFilename)


    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        If Not IO.Directory.Exists(BackupPath) Then IO.Directory.CreateDirectory(BackupPath)
        If IO.File.Exists(DBBackupFullFilename) Then
            If MsgBox( _
                "
الملف الحالي" & vbCrLf & DBCurrentFullFilename & vbCrLf & _
                "
الملف الجديد" & vbCrLf & DBBackupFullFilename & vbCrLf & _
                "
هل تريد استبدال الملف الحالي بالجديد ؟", _
                MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, " 
نسخ ملف") = MsgBoxResult.Cancel _
            Then
                Exit Sub
            End If
        End If
        If CompactDatabase(DBCurrentFullFilename, "
123") Then
            IO.File.Copy(DBCurrentFullFilename, DBBackupFullFilename, True)
            MsgBox("
تمت بنجاح عملية النسخ الاحتياطي")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If IO.File.Exists(DBBackupFullFilename) Then
            If MsgBox("
هل تريد استبدال الملف الحالي بالاحتياطي ؟", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, " استرجاع ملف") = MsgBoxResult.Cancel Then
                Exit Sub
            End If
        End If
        IO.File.Copy(DBBackupFullFilename, DBCurrentFullFilename, True)
        MsgBox("
تمت بنجاح عملية استرجاع الاحتياطي")
    End Sub

    Function CompactDatabase(ByVal dbFilename As String, Optional ByVal password As String = "") As Boolean
        Try
            Dim ext As String = IO.Path.GetExtension(dbFilename).ToLower
            Dim provider As String
            If ext = "
.mdb" Then
                provider = "
Provider=Microsoft.Jet.OLEDB.4.0;"
            ElseIf ext = "
.accdb" Then
                provider = "
Provider=Microsoft.ACE.OLEDB.12.0;"
            Else
                MsgBox("
File not 'mdb' or 'accdb'")
                Return False
            End If
            Dim cpFilename As String = IO.Path.GetTempFileName & "
.accdb"
            Dim je As Object = CreateObject("
JRO.JetEngine")
            je.CompactDatabase( _
                provider & "
;Data Source=" & dbFilename & ";Jet OleDb:Database Password=" & password, _
                provider & "
;Data Source=" & cpFilename & ";Jet OleDb:Database Password=" & password & _
                "
;Jet OLEDB:Engine Type=5")
            IO.File.Delete(dbFilename)
            IO.File.Move(cpFilename, dbFilename)
            IO.File.Delete(cpFilename)
            Return True
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
        End Try
    End Function

End Class 
الرد
تم الشكر بواسطة: أحمد فتح الرحمن
#3
السلام عليكم .لم أجد ما أقوله إلا أنعم الله عليك و رزقك من حيث تحتسب و من حيث لا تحتسب أخي أحمد.هذا هو المطلوب مليون بالمئة
ربنا يزيدك من علمه و فضله و يتفع بك الاسلام و المسلمين .ألف شكر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أفضل مثال في عمل النسخة الاحتياطية باقي له خطوة بس ويكتمل المهنا 13 1,011 01-08-20, 12:27 AM
آخر رد: atefkhalf2004
  [VB.NET] سؤال بخصوص الكود تبع النسخة التجريبية 0theghost0 1 357 03-02-20, 03:25 PM
آخر رد: asemshahen5
  منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله معاذ_ابراهيم 4 855 18-05-19, 11:53 PM
آخر رد: elgokr
  [VB.NET] النسخة التجريبية bensadi 3 702 09-01-19, 09:07 PM
آخر رد: bensadi
  [سؤال] استبدال النسخة القديمة بالنسخة المحدثة ابو يوسف النواوي 2 1 640 22-10-18, 05:52 PM
آخر رد: rnmr
  تحديث الإصدار و حذف النسخة القديمة hichem1 36 3,701 21-06-18, 01:02 AM
آخر رد: عبدالله الدوسري
  اريد مساعدتك في كود النسخة الاحتياطيه للقاعدة البيانات واستراجها ب الفيجوال بيسك nosa 1 649 02-05-18, 11:39 AM
آخر رد: mohammedvego
  تسمية النسخة الإحتياطية أحمد فتح الرحمن 2 782 18-11-17, 09:12 PM
آخر رد: أحمد فتح الرحمن
  خطاء في النسخة الاحتياطية جميل علي 2 1,211 23-11-15, 10:28 AM
آخر رد: sherif khalid
  زر ((النسخة الإحتياطية)) starosta 2 1,279 08-04-15, 06:03 PM
آخر رد: starosta

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


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