HandsOn Executing an Update Query using the Command Object

1. In the Visual Basic Editor window, choose Insert | Module.

2. In the module's Code window, type the Execute_UpdateQuery2 procedure shown below.

3. Choose Run | Run Sub/UserForm to execute the procedure.

Sub Execute_UpdateQuery2() Dim cmd As ADODB.Command Dim NumOfRec As Integer Dim strPath As String strPath = CurrentProject.Path & "\Northwind.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

0 0

Post a comment