- Upvotes Received
- 0
- Posts with Upvotes
- 0
- Upvoting Members
- 0
- Downvotes Received
- 1
- Posts with Downvotes
- 1
- Downvoting Members
- 1
by the way. this is now my problem. THIS IS FOR TIME IN... [CODE]Private Sub cmdIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdIN.Click lblempno.Text = txtempno.Text lblIN.Text = lbltime.Text & lbldate.Text MsgBox("Log in successful!", vbInformation) lv = ListView1.Items.Add(lbltime.Text) txtempno.Text = "" txtempno.Focus() End Sub[/CODE] THIS IS FOR TIME … | |
[CODE]Private Sub cmdOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOut.Click If txtempno.Text = String.Empty Then MsgBox("Insert first your employee number.", vbExclamation) lblIN.Text = "" lblOUT.Text = "" Exit Sub End If Dim ssql As String ssql = "UPDATE tbl_timerec SET TimeOUT=@lblOUT WHERE EmpNo=@txtempno" Dim com As New SqlCeCommand … |