Ciao raga!
è la prima volta che cerco di fare un UPDATE...non mi funge...dove sbaglio ??? o cosa manca ?
codice:
Private Sub cmdMod_Click()
Dim query As String
Dim IdCliente, DesCliente, Ref, NoteCliente As String
On Error GoTo Error_Handler
If rs.State And adStateOpen Then rs.Close
IdCliente = "'%" & txtIdCliente.Text & "%'"
DesCliente = "'%" & txtDesCliente.Text & "%'"
Ref = "'%" & txtRef.Text & "%'"
NoteCliente = "'%" & txtDesCliente.Text & "%'"
'definizione della query
query = "UPDATE cliente SET DesCliente = '" & DesCliente & "' WHERE IdCliente = '" & IdCliente & "' "
cn.Execute query
Exit Sub
Error_Handler:
MsgBox "Error " & Err.Number & vbCr & vbCr & Err.Description, vbCritical, "ERROR"
End Sub