Perchè non mi fa l'Update?

[beke82]

Devo fare l'aggiornamento di una tabella ( tblInterventi ) così strutturata:
Campo Chiave Cod_Inter ( contatore )
Id_Sotto
Num_Comm
Codice
Nome_Inter
Data_Inter
Ore_Inter

Ed ho questa procedura associata all'evento Click di un bottone ( btnUpdate ):

Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click

Dim connessione As String
Dim conn As OleDbConnection
Dim cmdUpdate As OleDbCommand
Dim strUpdate As String

connessione = ConfigurationSettings.AppSettings("conString")
conn = New OleDbConnection(connessione)

conn.Open()

strUpdate = "Update tblInterventi Set tblInterventi.Id_Sotto=@under, tblInterventi.Num_Comm=@comm, tblInterventi.Codice=@persona, tblInterventi.Nome_Inter=@intername, tblInterventi.Data_Inter=@day, tblInterventi.Ore_Inter=@hours Where tblInterventi.Cod_Inter=@code"

cmdUpdate = New OleDbCommand(strUpdate, conn)

cmdUpdate.Parameters.Add("@code", txtCodice.Text)
cmdUpdate.Parameters.Add("@under", DropDownList1.SelectedItem.Value)
cmdUpdate.Parameters.Add("@comm", DropDownList2.SelectedItem.Value)
cmdUpdate.Parameters.Add("@persona", txtPersona.Text)
cmdUpdate.Parameters.Add("@intername", txtNome.Text)
cmdUpdate.Parameters.Add("@day", txtDay.Text)
cmdUpdate.Parameters.Add("@hours", txtHours.Text)


cmdUpdate.ExecuteNonQuery()

conn.Close()

lblOK.Text = "AGGIORNAMENTO EFFETTUATO!"
lblOK.Visible = True

End Sub

Fa tutto, mi stampa anche il contenuto della Label ( lblOk ), ma non mi fa l'aggiornamento nel DataBase.
Come mai?
Grazie per l'aiuto

Beke

[[-MaRcO3-]]

Non vorrei scrivere una bestialità...Ma hai provato a passargli questo parametro come ultimo?
cmdUpdate.Parameters.Add("@code", txtCodice.Text)

Come primo parametro nella stringa SQL hai
tblInterventi.Id_Sotto=@under

Mentre come primo valore gli passo "@code", prova a rispettare l'ordine dei parametri della stringa SQL.
Mi ricordo di aver avuto un problema simile con Access.
Ciao

Marco

[beke82]

Ho risolto il problema
Ho dichiarato nella Page_Load

Session("Intervento")= txtCodice.text

e nell'Update ho messo

dim inter as string

inter=Session("Intervento")

strUpdate = "Update tblInterventi Set tblInterventi.Id_Sotto=@under, tblInterventi.Num_Comm=@comm, tblInterventi.Codice=@persona, tblInterventi.Nome_Inter=@intername, tblInterventi.Data_Inter=@day, tblInterventi.Ore_Inter=@hours Where tblInterventi.Cod_Inter= " & inter & ""

Ed ora funziona perfettamente

[zampa28]

Sinceramente trovo inutile e poco pratico usare una variabile di sessione per questo genere di cose.

Secondo me era un problema di postback. Immagino che ti carichi i dati nella text box nell'evento page_load. Quando schiacci il pulsante per aggiornare l'evento page load viene eseguito nuovamente, percui nella textbox ti ritorna il valore del DB.
per risolvere devi aggiongere:

if not page.ispostback then
   'codice che popola la text box
end if

[beke82]

il controllo if che dici tu è presente nella page_load
anche se non può sembrar il max come soluzione, però è efficace

[[-MaRcO3-]]

Originariamente inviato da beke82
[CODE]
Dim conn As OleDbConnection
strUpdate = "Update tblInterventi Set tblInterventi.Id_Sotto=@under, tblInterventi.Num_Comm=@comm, tblInterventi.Codice=@persona, tblInterventi.Nome_Inter=@intername, tblInterventi.Data_Inter=@day, tblInterventi.Ore_Inter=@hours Where tblInterventi.Cod_Inter=@code"

cmdUpdate.Parameters.Add("@code", txtCodice.Text)
il parametro code passalo per ultimo

Scusa, che DataBase usi? Perchè ho visto che dichiari la connessione come OleDbConnection invece di SQLConnection.
Se usi access, nella stringa SQL devi utilizzare i punti interrovativi al posto di @tuoParametro.
Ho fatto una prova, ricreando la tua stessa situazione, mettendo i punti di domanda nella stringa SQL e passandogli @code come ultimo parametro invece che primo ed ha funzionato alla perfezione, mentre passandolo come primo parametro, non eseguiva l'update e non dava neppure errore...
Ciao


Marco