Salve. Sapreste dirmi cosa non va in questa subroutine?
Non ricevo nessun messaggio di errore, ma l'aggiornamento non si verifica. Non è nemmeno un problema di permessi di scrittura sul db.
L'unica anomalia che ho notato accedendo ai files con l'FTP, è che il db access rimane aperto (e cioé vedo un file con lo stesso nome del db ma con estensione .ldb)
Non riesco proprio a capire dove sia il problema.
Grazie per l'attenzione.

>> codice

Sub aggiorna_UpdateCommand(Src As Object, e as DataListCommandEventArgs)
'Codice per aggiornamento dati

'ricava l'ID del record da aggiornare
Dim idImmobile As String
idImmobile= dataListImm.DataKeys( e.Item.ItemIndex )


'Recupero i valori dal modulo di aggiornamento
Dim updMq As TextBox
Dim updvani As TextBox
Dim updDescrizione As TextBox
Dim updPrezzo As TextBox
updMq= e.Item.FindControl("xmq")
updvani= e.Item.FindControl("xvani")
updDescrizione= e.Item.FindControl("xdescrizione")
updPrezzo = e.Item.FindControl("xprezzo")


'Imposta la connessione
Dim Con as new OleDbConnection (ConfigurationSettings.AppSettings("con_immob"))

Dim sqlUpdate As String
sqlUpdate= "UPDATE immobili SET mq=@mq, vani=@vani, descrizione=@descrizione, prezzo=@prezzo WHERE IDimm=@idImm "

'Apri la connessione e traduci i parametri
Dim cmdUpdate as new OleDbCommand(sqlUpdate, Con)
cmdUpdate.Parameters.Add("@idImm", idImmobile)
cmdUpdate.Parameters.Add("@mq", updMq.Text)
cmdUpdate.Parameters.Add("@vani", updvani.Text)
cmdUpdate.Parameters.Add("@descrizione", updDescrizione.Text)
cmdUpdate.Parameters.Add("@prezzo", updPrezzo.Text)

Dim verify
Con.Open()
verify= cmdUpdate.ExecuteNonQuery()
Con.Close()


If verify <> 1 Then
avviso.Text= "I dati non sono stati aggiornati"
End If

dataListImm.EditItemIndex = -1
BindDataList

End Sub