Sub catat() sql = "insert into [userhistory] ([username],[date recorded],[time recorded],[activity],[reg number]) values (?,?,?,?,?)" kns.Open() Using cmd As New OleDbCommand(sql, kns) cmd.Parameters.AddWithValue("@p1", LOGIN.USERNAME.Text) cmd.Parameters.AddWithValue("@p2", System.DateTime.Today.ToString) cmd.Parameters.AddWithValue("@p3", TimeOfDay.ToString) cmd.Parameters.AddWithValue("@p4", "Deleting User") cmd.Parameters.AddWithValue("@p5", dg.CurrentRow.Cells(0).Value.ToString) cmd.ExecuteNonQuery() End Using kns.Close() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)