07-05-19, 02:03 PM
(آخر تعديل لهذه المشاركة : 07-05-19, 02:04 PM {2} بواسطة 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سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
