Private Sub loadTransactions(ByVal transactionid As Integer)
Dim dt As New DataTable
Using cnn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=mydataX.mdb")
Using cmd As New OleDbCommand("SELECT s.cid as [ID], c.CheckerName as item_name, " & _
"s.CheckerName as [CheckerName], s.ShipQuantity as [StockQuantity], s.[Date] as [Date], s.CompanyName as [CompanyName], s.CheckerDetail as [CheckerDetail]" & _
" FROM stock s left join checker c on c.cid = s.checkercid where s.checkercid = "& transactionid & " ORDER BY s.cid", cnn)
cmd.Parameters.Add("transactionID", OleDbType.Integer).Value = transactionid
cnn.Open()
dt.Load(cmd.ExecuteReader)
End Using
End Using
DataGridView1.DataSource = dt
End Sub
Private Sub UpdateStock(ByVal transactionid As Integer)
Using cnn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=mydataX.mdb;")
Using cmd As New OleDbCommand("Update stock Set CheckerDetail = CheckerDetail + @detail WHERE checkercid = @transactionID;", cnn)
cmd.Parameters.Add("@detail", OleDbType.Integer).Value = CInt(txtdetail1.Text)
cmd.Parameters.Add("@transactionID", OleDbType.Integer).Value = transactionid
cnn.Open()
cmd.ExecuteNonQuery()
End Using
End Using
End Sub
Dim dt As New DataTable
Using cnn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=mydataX.mdb")
Using cmd As New OleDbCommand("SELECT s.cid as [ID], c.CheckerName as item_name, " & _
"s.CheckerName as [CheckerName], s.ShipQuantity as [StockQuantity], s.[Date] as [Date], s.CompanyName as [CompanyName], s.CheckerDetail as [CheckerDetail]" & _
" FROM stock s left join checker c on c.cid = s.checkercid where s.checkercid = "& transactionid & " ORDER BY s.cid", cnn)
cmd.Parameters.Add("transactionID", OleDbType.Integer).Value = transactionid
cnn.Open()
dt.Load(cmd.ExecuteReader)
End Using
End Using
DataGridView1.DataSource = dt
End Sub
Private Sub UpdateStock(ByVal transactionid As Integer)
Using cnn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=mydataX.mdb;")
Using cmd As New OleDbCommand("Update stock Set CheckerDetail = CheckerDetail + @detail WHERE checkercid = @transactionID;", cnn)
cmd.Parameters.Add("@detail", OleDbType.Integer).Value = CInt(txtdetail1.Text)
cmd.Parameters.Add("@transactionID", OleDbType.Integer).Value = transactionid
cnn.Open()
cmd.ExecuteNonQuery()
End Using
End Using
End Sub
Private Sub loadTransactions(ByVal transactionid As Integer) Dim dt As New DataTable Using cnn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=mydataX.mdb") Using cmd As New OleDbCommand("SELECT s.cid as [ID], c.CheckerName as item_name, " & _"s.CheckerName as [CheckerName], s.ShipQuantity as [StockQuantity], s.[Date] as [Date], s.CompanyName as [CompanyName], s.CheckerDetail as [CheckerDetail]" & _" FROM stock s left join checker c on c.cid = s.checkercid where s.checkercid = " & transactionid & " ORDER BY s.cid", cnn) cmd.Parameters.Add("transactionID", OleDbType.Integer).Value = transactionid cnn.Open() dt.Load(cmd.ExecuteReader) End Using End Using DataGridView1.DataSource = dt End Sub Private Sub UpdateStock(ByVal transactionid As Integer) Using cnn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=mydataX.mdb;") Using cmd As New OleDbCommand("Update stock Set CheckerDetail = CheckerDetail + @detail WHERE checkercid = @transactionID;", cnn) cmd.Parameters.Add("@detail", OleDbType.Integer).Value = CInt(txtdetail1.Text) cmd.Parameters.Add("@transactionID", OleDbType.Integer).Value = transactionid cnn.Open() cmd.ExecuteNonQuery() End Using End Using End Sub