(11-05-19, 08:06 PM)atefkhalf2004 كتب : ما  زلت منتظر التعديل

(11-05-19, 10:23 PM)atefkhalf2004 كتب : فعلا انا هو 
لكن
انا اريد  عمل نسخ احتياطي  كل  2 او 3 ساعة  يوميا
كيف يتم هذا
وهذا طلبي في الموضوع السابق  والحالي
لانه في حالة تهنيج الجهاز  او  اي سبب يكون الفاقد اقل ما يمكن
هذا الخوف ناتج من تجارب سابقة

او ما الحل من وجهة نظركم

(11-05-19, 11:47 PM)عبد  العزيز البسكري كتب :

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

شكري و تقديري أخي الغالي ELGOKR على لطفك و لطف كلامك .. و مساعتك للجميع بدون كلل أو ملل ..

جزاك الله خير الجزاء و زادها بموازين حسناتك إن شاء الله

[b]و بعيدا عن منطق .. ( عنزة و لو طارتْ )[/b]

هذا مثال آخر .. و فكرة بسيطة بساطة معلوماتي .. لروّاد المنتدى و قرّاء الموضوع .. من أجل أخذ نسخة إحتياطية كل دقيقة أو بالتغيير لجعله كل ساعة أو حتى كل 20 ساعة ..

تحياتي

إقتباس :D:\DEBUG\Backup\DB_SALES_DEP.bak

إقتباس : Public Function CommandExecuteScalar(ByVal Cmd As SqlClient.SqlCommand) As Boolean
        Dim ReturnValue As Boolean = False
        'Dim Cn As SqlClient.SqlConnection = Connection

        'If Cn Is Nothing Then Exit Function
        '  If Not OpenConnection() Then Exit Function
        Try
            Cmd.Connection = CON
            If CON.State = 1 Then CON.Close()
            CON.Open()
            _ReturnObject = Cmd.ExecuteScalar
            CON.Close()
            ReturnValue = True
        Catch ex As Exception
            MessageBox.Show(ex.Message & Space(50), "منظومة مــــبــــيـــــعــــات - خطأ غير متوقع", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
        End Try

        Return ReturnValue

    End Function
    Private _ReturnObject As Object

(12-05-19, 03:44 AM)atefkhalf2004 كتب : ان شاء  الله
شكرا علي المعلومات القيمة

(07-05-19, 02:03 PM)asemshahen5 كتب : تفضل هذا الكود :

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim FileBak As String = "D:\MyBackup\Backup" & Today.ToString("dd-MM-yyyy") & ".bak"
       Dim DESCRIPTIONXT As String = "نسخ تلقائي يومي"
       Dim DBName As String = "TestDB"
       If Not IO.File.Exists(FileBak) Then
           Dim Con As New SqlClient.SqlConnection("Data Source=(Local);Initial Catalog=" & DBName & ";Persist Security Info=True;User ID=MyUserName;Password=MyPassword")
           Dim SQLStr As String = "BACKUP DATABASE " & DBName & " TO  DISK = N'" & FileBak & "' WITH  DESCRIPTION = N'" & DESCRIPTIONXT & "', NOFORMAT, NOINIT,  NAME = N'" & DBName & "', SKIP, NOREWIND, NOUNLOAD, STATS = 10"
           Dim da As New SqlClient.SqlDataAdapter(SQLStr, Con)
           Dim dt As New DataTable
           da.Fill(dt)
           MsgBox("تمت عملية النسخ الاحتياطي بنجاح")
       End If
   End Sub