21-03-24, 04:59 PM
السلام عليكم
عندى قاعدة بيانات سيكوال على السيرفر واقوم باخذ نسخة احتياطية من على جهاز يوسر من تلك القاعدة باستخدام الكود التالى
المشكلة تكمن فى انه عند اخذ النسخة وتحديد مسار الحفظ على جهاز اليوسر يعطى رسالة خطا بان المسار خطا على الرغم
ان المسار صحيح
وللعلم عندما اقوم باخز النسخة وانا على السيرفر وحفظها على السيرفر تتم بنجاح
اذا المشكله وانا باعمل نسخة وانا على جهاز يوسر
والى حضرتكم الكود
عندى قاعدة بيانات سيكوال على السيرفر واقوم باخذ نسخة احتياطية من على جهاز يوسر من تلك القاعدة باستخدام الكود التالى
المشكلة تكمن فى انه عند اخذ النسخة وتحديد مسار الحفظ على جهاز اليوسر يعطى رسالة خطا بان المسار خطا على الرغم
ان المسار صحيح
وللعلم عندما اقوم باخز النسخة وانا على السيرفر وحفظها على السيرفر تتم بنجاح
اذا المشكله وانا باعمل نسخة وانا على جهاز يوسر
والى حضرتكم الكود
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
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
