L'update lo faccio a livello di VB quando schiaccio sul tasto "Salva" di seguito il codice
Protected Sub bSalva_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSalva.Click
' Effettuo i controlli
If Me.txtCodice.Text = "" Then
PopupErrori("Campo 'Codice' Obbligatorio!", "Inserire un codice.")
Me.txtCodice.Focus()
Exit Sub
End If
If Me.txtDescrizione.Text = "" Then
PopupErrori("Campo 'Descrizione' Obbligatoria!", "Inserire una descrizione.")
Me.txtDescrizione.Focus()
Exit Sub
End If
If Me.txtRevisione.Text = "" Then
PopupErrori("Campo 'Revisione' Obbligatorio!", "Inserire la revisione.")
Me.txtRevisione.Focus()
Exit Sub
End If
If Me.txtDataEmissione.Text = "" Then
PopupErrori("Campo 'Data Emissione' Obbligatoria!", "Inserire la data emissione.")
Me.txtDataEmissione.Focus()
Exit Sub
End If
' NUOVO
If Session.Item("Stato") = "Inserimento" Then
Try
Dim sDataEmissione As String
sDataEmissione = Mid(CStr(Me.txtDataEmissione.Text), 7, 4) & "-" & Mid(CStr(Me.txtDataEmissione.Text), 4, 2) & "-" & Mid(CStr(Me.txtDataEmissione.Text), 1, 2)
Query = "INSERT INTO Q_Procedure (Codice, Descrizione, Revisione, DataEmissione, Formato, DurataCons, Note, Link, TipoDoc, IDArea)"
Query = Query & " VALUES('" & txtCodice.Text & "',' " & txtDescrizione.Text & "', " & txtRevisione.Text & ",'" & sDataEmissione & "', '" & txtFormato.Text & "', '" & txtDurataCons.Text & "', '"
Query = Query & txtNote.Text & "', '" & txtLink.Text & "', '1-PRO', " & txtArea.Text & ")"
Me.SqlDataProcedure.InsertCommand = Query
Me.SqlDataProcedure.Insert()
' REINIZIALIZZO TUTTO
Session.Item("Stato") = ""
Session.Item("RecordSelezionato") = 0
Response.Redirect("procedureView.aspx")
Catch ex As Exception
ClsFileLog.ScriviLog(ex.Message, Session.Item("User"))
End Try
Else 'MODIFICA
Try
Dim sDataEmissione As String
sDataEmissione = Mid(CStr(Me.txtDataEmissione.Text), 7, 4) & "-" & Mid(CStr(Me.txtDataEmissione.Text), 4, 2) & "-" & Mid(CStr(Me.txtDataEmissione.Text), 1, 2)
Dim a As Integer
a = txtRevisione.Text
Query = "UPDATE Q_Procedure SET Codice ='" & Me.txtCodice.Text
Query = Query & "', Descrizione ='" & Me.txtDescrizione.Text & "', Revisione = " & Me.txtRevisione.Text & ", DataEmissione ='" & sDataEmissione & "', Formato ='" & txtFormato.SelectedValue & "', DurataCons ='" & txtDurataCons.SelectedValue
Query = Query & "', Note ='" & Me.txtNote.Text & "', Link ='" & Me.txtLink.Text & "', IDArea =" & Me.txtArea.SelectedValue
Query = Query & " FROM Q_Procedure WHERE IDProcedura =" & Session.Item("RecordSelezionato")
SqlDataProcedure.UpdateCommand = Query
SqlDataProcedure.Update()
Session.Item("RecordSelezionato") = 0
Response.Redirect("procedureView.aspx")
Catch ex As Exception
ClsFileLog.ScriviLog(ex.Message, Session.Item("User"))
End Try
End If