[VB.NET] Update con parametri fallisce

[gkcuvb]

Sub Aggiorna(ByVal Elemento As Lista)
Dim sql As String
Dim cn As New OleDb.OleDbConnection(StringaConn)
cn.Open()
If Not EsisteCommessa(Elemento.Commessa) Then
'definisco l'istruzione sql
sql = "INSERT INTO ListaTestata (Commessa,N_Doc) VALUES (@Commessa,@N_Doc)"
Else
sql = "UPDATE ListaTestata SET N_Doc=@N_Doc WHERE Commessa=@Commessa"
End If
Dim cmd As New OleDb.OleDbCommand(sql, cn)
cmd.Parameters.Add("@Commessa", Elemento.Commessa)
cmd.Parameters.Add("@N_Doc", Elemento.N_Documento)
Dim i As Integer
i = cmd.ExecuteNonQuery()
cn.Close()
End Sub

La precedente routine funziona correttamente per l'insrimento, ma non funziona con l'aggiornamento. Non mi da nessuno errore solo che se vado a vedere nel db vedo che non ho aggiornato un bel nulla. Se alla query sostuisco
sql = "UPDATE ListaTestata SET N_Doc=@N_Doc WHERE Commessa='" & Elemento.Commessa & "'"
tutto funziona....sembra un problema sull'utilizzo dei parametri...sapete dirmi dove sbaglio???
Grazie

[raffaeu]

Io credo che tu debba usare anche la tipologia e la lunghezza dei parametri, credo ...

[cassano]

quando fai ExecuteNonQuery ti dice quanti record sono stati influenzati dalla query ???

[raffaeu]

si è un int

[alka]

Come già suggerito, aggiungerei anche le informazioni sul tipo di dati per il parametro e controllerei il valore restituito dal metodo ExecuteNonQuery dell'oggetto Command (che probabilmente restituisce zero).

In caso affermativo, metti un breakpoint prima dell'esecuzione della query e controlla con gli strumenti di debugging che i parametri passati contengano i valori che ti aspetti di utilizzare.

Ciao!

[gkcuvb]

si, infatti ho controllato i parametri, i valori sono giusti e anche il tipo è giusto, però la ExecuteNoQuery mi restituiesce effettivamente 0, il problema sta proprio dopo la clausola WHERE. Questo è conferato dal fatto che la seconda query che ho messo funziona perfettamente e il parametro è solo nella parte di "SET".
Perchè????

[cassano]

cmd.Parameters.Add("@Commessa", Elemento.Commessa) 
cmd.Parameters.Add("@N_Doc", Elemento.N_Documento)

Ti sei assicurato che questi valori siano valorizzati ???.

[gkcuvb]

si lo sono!

[alka]

Qual è la chiave primaria di quella tabella?

Sei certo che il record esista prima di eseguire la query?

[gkcuvb]

la chive primaria è 'commessa', ossia la where è proprio sulla chiave primaria......e il record c'è nel db, è proprio guardando questo nel db che mi accorgo che non funziona la query.
Vorrei sottolineare le due query

sql = "UPDATE ListaTestata SET N_Doc=@N_Doc WHERE Commessa=@Commessa"

questa non funziona

sql = "UPDATE ListaTestata SET N_Doc=@N_Doc WHERE Commessa='" & Elemento.Commessa & "'"

questa funziona