This month’s featured course covers 16 hours of training in installation, management, and deployment of VMware vSphere virtualization environments. It's free for Premium Members, Team Accounts, and Qualified Experts!
Public Sub save_Table(cn As ADODB.Connection, lpTable_No As String, Customer_name As String, Time_in As String, Time_Out As String, The_Total As String) Dim rs As ADODB.Recordset Dim sql As String Set rs = New ADODB.Recordset sql = "select * from The_Table where Table_No='" & lpTable_No & "'" rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Open sql, cn With rs If .BOF = True And _ .EOF = True Then .AddNew !Table_No = lpTable_No End If !Customer_name = Trim(grid.TextMatrix(grid.Row, 0)) !Time_in = Trim(grid.TextMatrix(grid.Row, 1)) !Time_Out = grid.TextMatrix(grid.Row, 5) !The_Total = IsNull(!The_Total) + Trim(lblDueAmount.Caption) .Update .Close End With Set rs = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.