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![]()

Rispondi quotando
ciao e buonlavoro
