Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
dim MyConnection as new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=tuopath\tuodb.mdb")
Dim myCommand As OleDBCommand
Dim sNumeroFattura As string
Dim iIDFornitore As integer
Dim sData As string
Dim sImporto As string
Dim dImporto As decimal
sNumeroFattura=request.form.item(1).tostring()
iIDFornitore=request.form.item(2).tostring()
sData=request.form.item(3).tostring()
sImporto=request.form.item(4).tostring()
iIDFattura=cint(request("IDFattura"))
Dim strUpdateStmt As String
strUpdateStmt = " UPDATE Fattura SET NumeroFattura ='" & sNumeroFattura & "', IDFornitore =" & iIDFornitore & ", DataFattura ='" & sData & "', ImportoFattura =" & sImporto & _
" WHERE IDFattura =" & iIDFattura
myCommand = New OleDBCommand(strUpdateStmt, myConnection)
myConnection.Open()
TRY
myCommand.ExecuteNonQuery()
CATCH DBE as system.data.oledb.oledbexception
label1.Text = "Errore " + dbe.tostring()
Finally
Response.Redirect("GestioneFattura.aspx")
END TRY
myConnection.close()
End Sub