[جميل علي]

السلام عليكم ورحمة الله وبركاتة

أسعد الله صباحكم بكل خير 

أخواني انا أعمل على برنامج بلغة الفيجوال البيسك ووصلت مرحلة متقدمة

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

أتمنى مساعدتي في عمل النسخة الاحتياطية وان أستطعتم وضع كود لعملية الاسترجاع أيضا.

علماً اني أستخدم قاعدة بيانات اكسس 2007

وشاكر ومقدر جهودكم

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sv As SaveFileDialog = SaveFileDialog1
        sv.Filter = "bak fil (*.Bak) |*.bak"
        If (sv.ShowDialog) = Windows.Forms.DialogResult.OK Then
        End If
        Dim cmd = New OleDbCommand("Backup Database swcc To Disk='" + sv.FileName + "'", co)
        co.Open()
        cmd.ExecuteNonQuery()
        co.Close() 


[جميل علي]

تم حل المشكلة والحمد الله

شكراً لكم جميعاً

[sherif khalid]

الطريقة الافضل فى قاعدة بيانات Access هيا نسخ قاعدة البيانات وليس استخدام T-SQL

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

كود :

   Using saveDialog As New SaveFileDialog()
       saveDialog.CheckFileExists = False
       saveDialog.CheckPathExists = True
       saveDialog.FileName = Date.Now.ToString("yyyyMMdd") & ".mdb"
       saveDialog.Filter = "Microsoft Access Database (*.mdb)|*.mdb"
       saveDialog.RestoreDirectory = True

       If openDialog.ShowDialog() = Windows.Forms.DialogResult.OK AndAlso saveDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
           If File.Exists(openDialog.FileName) Then
               File.Copy(openDialog.FileName, saveDialog.FileName)
           End If
       End If
   End Using