[Doctor GME]

هذا كود حذف كل ال rows داخل ال database والتى يكون تاريخها فى column المسمى AppDate
أقدم من تاريخ اليوم وذلك فى Form Load Event:

كود :

Try
            cnn.Open()
            Dim sql As String = "Delete From [Appointments] WHERE [AppDate]<@mydate"
            Dim cmd As New OleDbCommand(sql, cnn)
            cmd.Parameters.AddWithValue("@mydate", Now.ToShortDateString)
            cmd.ExecuteNonQuery()
            cmd.Dispose()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            If (cnn.State = ConnectionState.Open) Then cnn.Close()
        End Try

الكود يعمل جيداً ولكن أود أولاً نسخ rows التى يتم إلغاءها فى table آخر
هل من اقتراحات!!!

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
الامر جدا بسيظ
قم بانشاء جدول للمحذوفات  حقوله نفس حقول الجدول الذي ستحذف منه الصف اضافة الى حقل اي دي ترقيم تلقائي مستقل خاص بالجدول
واعمل جملة Insert تكون بنفس الحقول التي ستحذف واجعل قيمها من الداتا غرايد او من مربعات النصوص التي تظهر فيها القيم اثناء اختيار الصف من الداتا غرايد بكل مافيها حتى الاي دي للصف المحذوف  ويكون هذا الكود في نفس كود الحذف ويتم تنفيذه اولا ثم يتم تنفيذ كود الحذف
وعنما تريد الاستعلام من جدول الحذف يمكنك الاستعلام اما برقم اي دي الصف المحذوف او بحقل الاسم او غيره حسبما تريد
اعتقد ان الامر اصبح واضحا
دمت بخير

[Doctor GME]

شكراً أخى ابراهيم ايبو
فكرتك واضحة لى الآن