Facendo l'update di una tabella ottengo l'errore:
Nessun valore specificato per alcuni parametri necessari
la procedura è:
codice:
Private Sub aggiornaDatiAccesso(ByVal comando As OleDbCommand)
'l'utente connesso non può modificarsi il privilegio 7, in servizio, abilitato
Dim sql$ = ""
Dim abilitato As Boolean
Try
If CInt(Me.id_utente) = j.id_utente Then
abilitato = True
Else
abilitato = Me.c_abilitato.Checked
End If
sql = "UPDATE UTENTI_REGIONE SET [NOME_COMPLETO] = ?, [SIGLA] = ?, [TELEFONO] = ?, [TITOLO_STUDIO] = ?, [NOTE] = ?, [ABILITATO] = ? WHERE [ID_UTENTE] = ? "
comando.CommandText = sql
comando.Parameters.Clear()
comando.Parameters.Add("nome_completo", OleDbType.VarChar, 50).Value = Libreria.StringNullToDBNull(Me.c_nome_completo.Text)
comando.Parameters.Add("sigla", OleDbType.VarChar, 5).Value = Libreria.StringNullToDBNull(Me.c_sigla.Text)
comando.Parameters.Add("telefono", OleDbType.VarChar, 60).Value = Libreria.StringNullToDBNull(Me.c_telefono.Text)
comando.Parameters.Add("titolo_studio", OleDbType.VarChar, 40).Value = Libreria.StringNullToDBNull(Me.c_titolo_studi.Text)
comando.Parameters.Add("note", OleDbType.VarChar, 200).Value = Libreria.StringNullToDBNull(Me.c_note.Text)
comando.Parameters.Add("abilitato", OleDbType.Boolean).Value = abilitato
comando.Parameters.Add("id_utente", OleDbType.Integer).Value = Me.id_utente
comando.ExecuteNonQuery()
Catch ex As Exception
Throw
End Try
End Sub
Ho verificato col debug che id_utente è un id valido
Non riesco a capire
Mi date una mano?