[asemshahen5]

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

بالنسبة لقواعد البيانات أكسيس :

كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       If IO.File.Exists(Application.StartupPath & "\MyDatabase.accdb") Then
           Dim FileBak As String = "D:\MyBackup\Backup" & Today.ToString("dd-MM-yyyy") & ".backup"
           Dim DESCRIPTIONXT As String = "نسخ تلقائي يومي"
           Dim DBName As String = Application.StartupPath & "\MyDatabase.accdb"
           If Not IO.File.Exists(FileBak) Then
               FileCopy(DBName, FileBak)
               MsgBox("تمت عملية النسخ الاحتياطي بنجاح")
           End If
       End If
   End Sub

وهذا SQL الى OLEDB :

كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim FileBak As String = "D:\MyBackup\Backup" & Today.ToString("dd-MM-yyyy") & ".bak"
       Dim DESCRIPTIONXT As String = "نسخ تلقائي يومي"
       Dim DBName As String = "TestDB"
       If Not IO.File.Exists(FileBak) Then
           Dim Con As New OleDb.OleDbConnection("Provider=SQLNCLI11;Data Source=(Local);Persist Security Info=True;Persist Security Info=True;User ID=MyUserName;Password=MyPassword;Initial Catalog=Test")
           Dim SQLStr As String = "BACKUP DATABASE " & DBName & " TO  DISK = N'" & FileBak & "' WITH  DESCRIPTION = N'" & DESCRIPTIONXT & "', NOFORMAT, NOINIT,  NAME = N'" & DBName & "', SKIP, NOREWIND, NOUNLOAD, STATS = 10"
           Dim da As New OleDb.OleDbDataAdapter(SQLStr, Con)
           Dim dt As New DataTable
           da.Fill(dt)
           MsgBox("تمت عملية النسخ الاحتياطي بنجاح")
       End If
   End Sub