Executing an Update Query using the Command Object : SQL Update « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. SQL Update

Executing an Update Query using the Command Object

 
Sub Execute_UpdateQuery2()
   Dim cmd As ADODB.Command
   Dim NumOfRec As Integer
   Dim strPath As String

   strPath = CurrentProject.Path & "\mydb.mdb"

   Set cmd = New ADODB.Command
   With cmd
      .ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath
      .CommandText = "Update Products Set UnitPrice = UnitPrice *1.1"
      .Execute NumOfRec, adExecuteNoRecords
   End With
   MsgBox NumOfRec
   Set cmd = Nothing
End Sub








Related examples in the same category

1.Executing an Update Query
2.Get the updated record count
3.Listing All Saved Queries in a Database
4.Deleting a Stored Query