Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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