12-04-18, 11:43 PM
(آخر تعديل لهذه المشاركة : 12-04-18, 11:44 PM {2} بواسطة السيد الجوهري.)
كود :
Sub blank(ByVal str As String)
If cmbserver.Text = "" Or cmbdatabase.Text = "" Then
MsgBox("Server Name & Database Blank Field")
Exit Sub
Else
If str = "backup" Then
SaveFileDialog1.FileName = cmbdatabase.Text
SaveFileDialog1.ShowDialog()
Timer1.Enabled = True
ProgressBar1.Visible = True
Dim s As String
s = SaveFileDialog1.FileName
query("backup database " & cmbdatabase.Text & " to disk='" & s & "'")
'=================
ElseIf str = "restore" Then
OpenFileDialog1.ShowDialog()
Timer1.Enabled = True
ProgressBar1.Visible = True
query("RESTORE DATABASE " & cmbdatabase.Text & " FROM disk='" & OpenFileDialog1.FileName & "'")
End If
End If
End Sub
هذا الكود مسئول عن اخذ نسخة احتياطية كيف اكتب التاريخ بجوار اسم قاعدة البيانات التي تم نسخها احتياطيا