[kslawy]

لم تخبرتنا عن نوع قاعدة البيانات آكسس أم سيكوال سيرفر .

بفرض أنها آكسس :

طبق التالي (سواء آكسس أم سيكوال سيرفر ) :



يقوم البرنامج في كل تشغيل بنسخ قاعدة البيانات الفارغة لمساره الافتراضي ، لذلك تجد قاعدة البيانات فارغة ، بطبيق ما في الصورة لا يتم ذلك .

ثانيا (لآكسس) :

كود :

Private Sub BackupDatabase()
        Dim MyDatabaseName As String = "Database1"
        Dim DatabasePath As String = Application.StartupPath & "\Database1.mdb"
        Try

            Using sfd As New SaveFileDialog

                With sfd
                    .CheckFileExists = True
                    .CheckPathExists = True
                    .FileName = MyDatabaseName & "-" & Date.Now.ToString("yyyyMMdd") & ".mdb"
                    ' النتيجة حتكون =  Database1-20130307.mdb
                    .Filter = "Microsoft Access Database (*.mdb)|*.mdb"

                    If .ShowDialog = Windows.Forms.DialogResult.OK Then
                        My.Computer.FileSystem.CopyFile(DatabasePath, .FileName, False)
                        MsgBox("تم نسخ قاعدة البيانات بنجاح")
                    End If

                End With

            End Using

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Backup Database")
        End Try
    End Sub

ثالثاً :

يبدوا أنك كتبت باللغة العربية في خصائص الـ Setup وهذا ما لا يقبله (اكتب بالانجليزي فقط) .


والله أعلم