[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 آخر
هل من اقتراحات!!!