Code:
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim MyConnection As OleDb.OleDbConnection = Nothing
Dim MyTransaction As OleDb.OleDbTransaction = Nothing
Try
'mulakan transaksi dan connection
MyConnection = New OleDb.OleDbConnection(My.Settings.Sistem_Transaksi_Kedai_PasuConnectionString)
MyConnection.Open()
MyTransaction = MyConnection.BeginTransaction
'ambik id dari recipt
Dim sql As String
sql = "select max (NoTransaction) as MAXNO from Transaction"
Dim CMD2 As New OleDb.OleDbCommand
CMD2.Connection = MyConnection
CMD2.Transaction = MyTransaction
CMD2.CommandText = Sql
Dim NoTransaction As Long = CMD2.ExecuteScalar()
CMD2.Dispose()
'masukkan detail recipt
Dim i As Integer
For i = 0 To DGV2.Rows.Count - 1
'get the value
Dim NoProduct As String = DGV2.Rows(i).Cells(0).Value
Dim Price As Decimal = DGV2.Rows(i).Cells(2).Value
Dim Quantity As Integer = DGV2.Rows(i).Cells(3).Value
'create command
Dim CMD3 As New OleDb.OleDbCommand
sql = "insert into Transaction" & _
"(NoTransaction,NoProduct,TotalPrice,Quantity,DateTime) " & _
"values " & _
"(:0 ,:1 ,:2 ,:3 ,:4) "
CMD3.Connection = MyConnection
CMD3.Transaction = MyTransaction
CMD3.CommandText = Sql
CMD3.Parameters.AddWithValue(":0", NoTransaction)
CMD3.Parameters.AddWithValue(":1", NoProduct)
CMD3.Parameters.AddWithValue(":2", Quantity)
CMD3.Parameters.AddWithValue(":3", Price)
CMD3.Parameters.AddWithValue(":4", Now.TimeOfDay)
CMD3.ExecuteNonQuery()
CMD3.Dispose()
Next
'save changes
MyTransaction.Commit()
'close connection
MyTransaction.Dispose()
MyConnection.Close()
MyConnection.Dispose()
DGV2.Rows.Clear()
TextBox4.Text = ""
Catch ex As Exception
If MyTransaction IsNot Nothing Then
MyTransaction.Rollback()
MsgBox(ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "error")
End If
If MyConnection IsNot Nothing Then
If MyConnection.State = ConnectionState.Open Then
MyConnection.Close()
End If
End If
End Trybut i got error saying "syntax error in from clause"