[abdullhadi999]

(07-05-19, 02:03 PM)asemshahen5 كتب : تفضل هذا الكود :

كود :

   Private Sub Form1_Load(sender As Object, e As 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 SqlClient.SqlConnection("Data Source=(Local);Initial Catalog=" & DBName & ";Persist Security Info=True;User ID=MyUserName;Password=MyPassword")
           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 SqlClient.SqlDataAdapter(SQLStr, Con)
           Dim dt As New DataTable
           da.Fill(dt)
           MsgBox("تمت عملية النسخ الاحتياطي بنجاح")
       End If
   End Sub

السلام عليكم ....

اسف على الازعاج . لو اردت عكس العملية واسترجاع قاعدة البيانات  بشكل يدوي طبعا . تحياتي