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

كود :

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]

السّلام عليكم و رحمة الله و بركاته

أخي الكريم " السيد الجوهري "

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

تحياتي

كتبت كود بسيط آمل ان تجد به المطلوب

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

عبد العزيز البسكري

سعود