04-05-20, 07:11 PM
هذا كود حذف كل ال rows داخل ال database والتى يكون تاريخها فى column المسمى AppDate
أقدم من تاريخ اليوم وذلك فى Form Load Event:
الكود يعمل جيداً ولكن أود أولاً نسخ rows التى يتم إلغاءها فى table آخر
هل من اقتراحات!!!
أقدم من تاريخ اليوم وذلك فى 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 آخر
هل من اقتراحات!!!