Private Sub createRecordInDatabase(productID As String, Quantity As String, PrivilegeCardHolder As Integer, privilegeCardNumber As String, paymentMethod As String, totalpayable As String, customerName As String, paymentDetails As String) Dim rw As DataRow rw = Beeme_Laptop_StoreDataSet.Tables(0).NewRow rw.Item("Product_ID") = productID rw.Item("Quantity") = Quantity rw.Item("Order_Date") = Now.Date.ToShortDateString rw.Item("Order_Time") = Now.TimeOfDay.ToString rw.Item("PrivilegeCardHolder?") = PrivilegeCardHolder rw.Item("PrivilegeCardNumber") = privilegeCardNumber rw.Item("Payment_Method") = paymentMethod rw.Item("Total_Payable") = totalpayable rw.Item("Payment_Made") = 0 rw.Item("Customer_Name") = customerName rw.Item("Payment_Details") = paymentDetails Beeme_Laptop_StoreDataSet.Tables(0).Rows.Add(rw) OrdersTableAdapter.Update(Beeme_Laptop_StoreDataSet) MsgBox("records updated") End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)