منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف اجعل الكود يكتب التاريخ بجوار اسم قاعدة البيانات عند النسخ الاحتياطي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف اجعل الكود يكتب التاريخ بجوار اسم قاعدة البيانات عند النسخ الاحتياطي (/showthread.php?tid=24517)

كيف اجعل الكود يكتب التاريخ بجوار اسم قاعدة البيانات عند النسخ الاحتياطي - السيد الجوهري - 12-04-18

كود :
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

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



[attachment=17667]

RE: كيف اجعل الكود يكتب التاريخ بجوار اسم قاعدة البيانات عند النسخ الاحتياطي - عبد العزيز البسكري - 13-04-18

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


RE: كيف اجعل الكود يكتب التاريخ بجوار اسم قاعدة البيانات عند النسخ الاحتياطي - سعود - 13-04-18

كتبت كود بسيط آمل ان تجد به المطلوب
PHP كود :
 Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim sfd As New SaveFileDialog
        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim dn As String = IO.Path.GetDirectoryName(sfd.FileName)
            Dim fn As String = (IO.Path.GetFileNameWithoutExtension(sfd.FileName))
            Dim ex As String = IO.Path.GetExtension(sfd.FileName)
            Dim all As String = dn & "\" & fn & "_" & Now.ToShortDateString.ToString.Trim.Replace("\", "_").Replace("/", "_") & ex
            My.Computer.FileSystem.WriteAllText(all, "BY saud", False)
        End If
    End Sub