Recordset ile Veri Silme (Delete)
Recordset döngüsü ile tablolarınıza ya da sorgularınıza verileri ekleyebilir, silebilir veya güncelleştirebilirsiniz. Burada DAO yöntemiyle ilgili tablodan verileri nasıl güncelleyeceğiniz açıklanmıştır. Uygulamaya geçmeden önce Microsoft DAO 3.6 Object Library referansımızı eklememiz gerekiyor. Bunun için VBE editöründe Tools > Reference > Yolunu izleyip aşağıdaki referansımızı işaretlememiz gerekiyor.
Şimdi VBE penceresinde iken bir modül ekleyelim ve aşağıdaki kodu yazalım.
Sub DAODeleting()
'Kayıt silme
On Error GoTo Handler
Dim str As String
Dim rs As DAO.Recordset
str = "SELECT * FROM tblTeachers WHERE TeacherID=20"
Set rs = CurrentDb.OpenRecordset(str)
With rs
If .RecordCount <> 0 Then
If .Updatable Then
.Delete
End If
End If
.Close
End With
ExitSub:
Set rs = Nothing
Exit Sub
Handler:
Resume ExitSub
End Sub
Yukarıdaki yordam çalıştırıldığında tblTeacher tablosunda TeacherID değeri 20 olan gükaydı silecektir. Bu alt yordamı istediğiniz yerden aşağıdaki komutu vererek çalıştırabilirsiniz.
Call DAODeleting
0 Yorumlar