Deleting a Record : Recordset Add Update Delete « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. Recordset Add Update Delete

Deleting a Record

 
Sub Delete_Record()
   Dim conn As ADODB.Connection
   Dim myRecordset As ADODB.Recordset
   Dim strConn As String
   Dim strCriteria As String

   strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\mydb.mdb"

   Set conn = New ADODB.Connection
   Set myRecordset = New ADODB.Recordset

   With myRecordset
      .Open "Select * from Employees Where LastName ='Marco'", _
          strConn, adOpenKeyset, adLockOptimistic
      .Delete
      .Close
   End With
   Set myRecordset = Nothing
   Set conn = Nothing
End Sub








Related examples in the same category

1.Add new a row to recordset
2.Adding a New Record to a Recordset
3.Use AddNew and specify the field information
4.Use AddNew method from Recordset and two arrays to add a new row
5.Adding a New Record to a Table
6.Modifying a Record
7.Performing Batch Updates
8.Delete row for a certain criteria
9.Call update method from Recordset
10.Call delete method in Recordset
11.Check the Recordset affected