منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مرحبا اخواني احتاج مساعدتكم بعمل نسخة احتياطية لقاعدة بيانات اكسيس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مرحبا اخواني احتاج مساعدتكم بعمل نسخة احتياطية لقاعدة بيانات اكسيس (/showthread.php?tid=14598)

مرحبا اخواني احتاج مساعدتكم بعمل نسخة احتياطية لقاعدة بيانات اكسيس - رهف العريفي - 31-01-16

مرحبا اخواني احتاج مساعدتكم بعمل نسخة احتياطية لقاعدة بيانات اكسيس الملف موجود بالمرفقات  فقط احتاج اختيار الماسر وعمل نسخ لقاعدة البيانات الموجودة داخل المشروع بأسم Database11  وكذلك عندما اريد استعادة قاعدة البيانات والعكس وشكرا .

RE: مرحبا اخواني احتاج مساعدتكم بعمل نسخة احتياطية لقاعدة بيانات اكسيس - جميل علي - 01-02-16

إن شاء الله هذي الروابط تنفعك

إنشاء نسخة إحتياطية
https://www.youtube.com/watch?v=gHyXgCDHKqs&index=61&list=PLwj1YcMhLRN2Y5O_olVfMT7dFe-INcWQT

استعادة نسخة
https://www.youtube.com/watch?v=jAdoscJPFvE&index=60&list=PLwj1YcMhLRN2Y5O_olVfMT7dFe-INcWQT


إنشاء نسخة إحتياطية
https://www.youtube.com/watch?v=Q6FmV2Hqjm4


استعادة نسخة
https://www.youtube.com/watch?v=rtfgL89M-Po

وبالتوفيق للجميع

RE: مرحبا اخواني احتاج مساعدتكم بعمل نسخة احتياطية لقاعدة بيانات اكسيس - Adrees - 01-02-16

تفضلي انشاء الله تكون مناسبة هذه الطريقة

كود اختيار قاعدة البيانات 

PHP كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim openf As New OpenFileDialog()
        openf.Filter = "Access Database |*.mdb;*.accdb"
        If openf.ShowDialog() = DialogResult.OK Then
            TextBox1.Text = openf.FileName
        End If
    End Sub 
كود عمل النسخة الاحتياطية

PHP كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim savef As New SaveFileDialog()
        savef.Filter = "Backup File|*.bak"
        savef.FileName = "Backup File"
        If savef.ShowDialog() = DialogResult.OK Then
            System.IO.File.Copy(TextBox1.Text, savef.FileName, True)
            MsgBox("Backup Created successfuly")
        End If
    End Sub 
كود استعادة النسخة الاحتياطية

PHP كود :
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim openf As New OpenFileDialog()
        openf.Filter = "Backup File|*.bak"
        If openf.ShowDialog() = DialogResult.OK Then
            System.IO.File.Copy(openf.FileName, TextBox1.Text, True)
            MsgBox("Backup Restored successfuly")
        End If

    End Sub 


RE: مرحبا اخواني احتاج مساعدتكم بعمل نسخة احتياطية لقاعدة بيانات اكسيس - رهف العريفي - 01-02-16

اخي جميل علي الدروس بالروابط اعلاه خاصة بال لغه سي شارب ولك جزيل الشكر ع المساعدة
اخي Adrees لك جزيل الشكر على الافادة