[السيد الجوهري]

كود :

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

هذا الكود مسئول عن اخذ نسخة احتياطية  كيف اكتب التاريخ بجوار اسم قاعدة البيانات التي تم نسخها احتياطيا