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

 Private Sub Search_Place_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Search_Place_Save.Click
        If opf.ShowDialog = DialogResult.OK Then
            TextBoxX1.Text = opf.SelectedPath
        End If
    End Sub

    Private Sub BackupButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackupButton.Click
        Try
            If TextBoxX1.Text = "" Then
                MessageBox.Show("من فضلك اختر مكان الحفظ", "رسالة تنبية")
            Else
                Dim backupPath As String = TextBoxX1.Text.Trim()
                Dim fileName As String = "ELMOKHTER_" & DateTime.Now.ToString("yyyy_MM_dd__hh_mm_tt") & ".bak"
                Dim filePath As String = Path.Combine(backupPath, fileName)

                ' قراءة سلسلة الاتصال من الملف النصي
                Dim connectionString As String = File.ReadAllText("C:\server\CON_TXT.txt")

                ' تنفيذ النسخ الاحتياطي
                Using connection As New SqlConnection(connectionString)
                    Using command As New SqlCommand()
                        command.Connection = connection
                        connection.Open()

                        ' يجب استبدال "ELMOKHTER" بإسم قاعدة البيانات الخاصة بك
                        command.CommandText = "BACKUP DATABASE ELMOKHTER TO DISK='" & filePath & "'"

                        command.ExecuteNonQuery()
                    End Using
                End Using

                MessageBox.Show("تم حفظ النسخة الاحتياطية بنجاح", "تم", MessageBoxButtons.OK, MessageBoxIcon.Information)

                ' إعادة تعيين قيمة TextBox
                TextBoxX1.Text = ""
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub