Update sql statement

[mansukh20]

Hi guys,

I am trying to update my database using the code below unfortunately it seems to be doing nothing at all. Any suggestions?

Dim strSQL4 As String
strSQL4 = "UPDATE VEHICLE SET VEHICLESTATUS = 'Booked' WHERE VEHICLEID = '" & dbcVehicleID.Text & "'"

adoVehicleUpdate.RecordSource = strSQL4

 

[ArtieChoke]

That property is only to return a recordset. You'll need to use the execute method of the connection object to do an update.

"I think we're all Bozos on this bus!" - Firesign Theatre

 

[LostInCode]

Exactly. As in:

adoVehicleUpdate.Recordset.ActiveConnection.Execute "UPDATE VEHICLE SET VEHICLESTATUS = 'Booked' WHERE VEHICLEID = '" & dbcVehicleID.Text & "'"