MySQL aanpassen

[phobia]

Ik wil met een druk op de knop de waarde veranderen in mijn database

Ik probeer het zo te doen, ik krijg geen error maar de waarde veranderd niet!

Private Sub Command1_Click()

OpenMySQL

Dim rdoQry  As New rdoQuery
Dim rdoRS   As rdoResultset

SQLcode = "SELECT Ad_Onderdelen FROM TblBrilAdmin WHERE briladmin_id = " & Chr(34) & Klanten!ListView1.SelectedItem & Chr(34)

'set up a remote data object query
' specifying the SQL statement to run.

With rdoQry
    .Name = "selectUsers"
    .SQL = SQLcode
    .RowsetSize = 1
    Set .ActiveConnection = cnMySql
    Set rdoRS = .OpenResultset(rdOpenKeyset, rdConcurRowVer)
End With
On Error Resume Next
rdoRS.Edit
rdoRS!Ad_Onderdelen = 0
rdoRS.Update
MsgBox "waarde aangepast"
rdoQry.Close
rdoRS.Close
cnMySql.Close
SQLcode = ""
End Sub

 

[That Guy]

Er staat in je code

On Error Resume Next

, daardoor krijg je geen error. Als je deze eens weghaalt krijg je mischien wel een error. Daarnaast staat er

rdoRS!Ad_Onderdelen = 0

; een uitroepteken ipv. een punt.