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
Rispondi quotando