منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

علماً اني أستخدم قاعدة بيانات اكسس 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() 

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

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

الطريقة الافضل فى قاعدة بيانات 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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

جميل علي

جميل علي

sherif khalid