Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim pippo
pippo = TextBox1.Text.ToString
Dim transaction As OleDbTransaction
' Start a local transaction
'transaction = MyConnessione.BeginTransaction("SampleTransaction")
transaction = MyConnessione.BeginTransaction()
Try
strSQL = "INSERT INTO " & "tbl" &
"([Numero],[Descrizione]) " &
"VALUES (?,?)"
Dim cmdCommand As OleDbCommand = New OleDbCommand(strSQL, MyConnessione)
' Must assign both transaction object and connection
' to Command object for a pending local transaction.
cmdCommand.Transaction = transaction
cmdCommand.Parameters.Add(New OleDbParameter("@AAA", OleDbType.VarChar)).Value = "0" 'Trim(Carrello_Numero_Letto) '21 gennaio 2019
cmdCommand.Parameters.Add(New OleDbParameter("@BBB", OleDbType.VarChar)).Value = Trim(pippo) '21 gennaio 2019
cmdCommand.ExecuteNonQuery()
transaction.Commit()
Catch ex As Exception
transaction.Rollback()
FileClose(1)
FileOpen(1, "LOG Errori" & ".txt", OpenMode.Append, , , ) 'Open "ParametriTest.ini" For Input As 1
PrintLine(1, ex.Message & " Non riesco a connettermi alla Tabella ")
FileClose(1)
FileClose(1)
FileOpen(1, "Trace" & ".txt", OpenMode.Append, , , ) 'Open "ParametriTest.ini" For Input As 1
PrintLine(1, strSQL)
FileClose(1)
End Try
End Sub