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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=14680)

خطاء عند أخذ نسخة احتياطية - جميل علي - 09-02-16

السلام عليكم ورحمة الله وبركاتة
أسعد الله صباحكم/مسائكم بكل خير

كماهو واضح في العنوان يظهر هذ الخطاء عند عمل نسخه احتياطية



الكود المستخدم هو

PHP كود :
Dim str As String = TextBox1.Text + DateTime.Now.ToShortDateString.Replace("/", "-") + "-" + DateTime.Now.ToLongTimeString.Replace(":", "-")
        Dim ba As String = "Backup DATABASE swcc1 TO DISK ='" + str + ".bak'"
        cmd = New SqlCommand(ba, co)
        co.Open()
        cmd.ExecuteNonQuery()
        co.Close()
        MessageBox.Show("تم حفظ النسخة الاحتياطية بنجاح", "نم", MessageBoxButtons.OK, MessageBoxIcon.Information) 

وهذا الفورم كامل
PHP كود :
Imports System.Data.SqlClient
Imports System.Data
Imports System.IO

Public Class Form7
    Dim CnString As String = ("server=LAPTOP-2BQA18DH\RA; Database=swcc1; Integrated Security=true")
    Dim co As New SqlConnection(CnString)
    Dim cmd As New SqlCommand

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = FolderBrowserDialog1.SelectedPath
        End If
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
      

        Dim str As String = TextBox1.Text + DateTime.Now.ToShortDateString.Replace("/", "-") + "-" + DateTime.Now.ToLongTimeString.Replace(":", "-")
        Dim ba As String = "Backup DATABASE  swcc1 TO DISK ='" + str + ".bak'"
        cmd = New SqlCommand(ba, co)
        co.Open()
        cmd.ExecuteNonQuery()
        co.Close()
        MessageBox.Show("تم حفظ النسخة الاحتياطية بنجاح", "نم", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub 

أستخدم قاعدة بيانات سيكول سيرفر
وشكراً للجميع

RE: خطاء عند أخذ نسخة احتياطية - HASAN6.0 - 09-02-16

اخي الكريم ...
حيثما تجد كلمه Access is denied الموجوده في سطر 2 .
فالمشكله هي عدم وجود صلاحيات كتابه او قرأه احيانا
عليك محاوله اخذ النسخه في مكان اخر

RE: خطاء عند أخذ نسخة احتياطية - جميل علي - 09-02-16

حياك الله أخوي مشكور على مشاركتك
ولكن مالحل؟؟

ومامعنى اخذ النسخه في مكان اخر؟؟

RE: خطاء عند أخذ نسخة احتياطية - HASAN6.0 - 09-02-16

(09-02-16, 11:42 AM)جميل علي كتب : حياك الله أخوي مشكور على مشاركتك
ولكن مالحل؟؟

ومامعنى اخذ النسخه في مكان اخر؟؟

الله يحييك اخوي .
المعنى ان المستخدم الحالي للوندوز لا يمكنه انشاء ملف في هذا المسار .
يجب عليك اخذ نسخة في D:\ مثلاً

RE: خطاء عند أخذ نسخة احتياطية - جميل علي - 09-02-16

بالفعل اخي الكريم أخذة نسخة على هاردسك خارجي
ونجحة العملية

ولكن هل يوجد حل اخر

وشكراً

RE: خطاء عند أخذ نسخة احتياطية - HASAN6.0 - 09-02-16

نعم سيدي يوجد عدد هائل من الحلول. منها تشغيل البرنامج كمسؤول او اعطائه صلاحيات في جدار الحمايه او تجاهله من قبل الانتي فايروس