Call delete method in Recordset : Recordset Add Update Delete « Access « VBA / Excel / Access / Word






Call delete method in Recordset

 
Public Sub RemoveCompany()
  Dim rst As ADODB.Recordset
  Dim strSQL As String
  Set rs = New ADODB.Recordset

  rs.Open "SELECT * FROM tblCompany WHERE CompanyID=14", CurrentProject.Connection, adOpenStatic, adLockOptimistic
  With rs
    If .RecordCount > 0 Then
      .Delete
    End If
  End With
  rs.Close
  Set rs = 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.Deleting a Record
10.Call update method from Recordset
11.Check the Recordset affected