Visual Basic

Member 4442916 wrote:

Error 2 Argument not specified for parameter 'Emp_ID' of
'Public Overridable Overloads Function InsertQueryEmp(Log_No As String, Emp_ID As String)

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click<br />
 Dim Emp_IDDataRow As DataRow<br />
        Comdataset = Com.getCOMDataset<br />
<br />
 Emp_IDDataRow = Comdataset.EMPLOYEE_DETAIL.FindByEmp_ID(txtID.Text)<br />
        With Me<br />
            If Emp_IDDataRow IsNot Nothing Then<br />
                If txtPass.Text = Emp_IDDataRow!Password.ToString Then<br />
                    MessageBox.Show("Login Successful!", "infor", MessageBoxButtons.OK, MessageBoxIcon.Information)<br />
                    .LOGIN_OUTTableAdapter.InsertQueryEmp("ddmmyy,hhmmss", .Login_DateDateTimePicker.Value)<br />
                    .LOGIN_OUTTableAdapter.Fill(.Definition_dbDataSet._LOGIN_OUT)<br />
                Else<br />
                    .LOGIN_OUTTableAdapter.InsertQueryEmp("ddmmyy,hhmmss", .Login_DateDateTimePicker.Value)<br />
                    .LOGIN_OUTTableAdapter.Fill(.Definition_dbDataSet._LOGIN_OUT)<br />
                    Form2.Show()<br />
                End If<br />
            ElseIf Emp_IDDataRow IsNot Nothing Then<br />
                MessageBox.Show("Invalid Password!", "Error", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)<br />
            ElseIf Emp_IDDataRow IsNot Nothing Then<br />
                MessageBox.Show("Invalid ID", "ERROR", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)<br />
            End If<br />
        End With

Member 4442916 wrote:

INSERT INTO `LOGIN/OUT` (`Log_No`, `LogIn_time`, `Login_Date`, `Emp_ID`) VALUES (?, dd-MM-yyyy, HH:mm:ss, ?) i'm not sure wheater correct...

Dim adpLogin As OleDbDataAdapter<br />
        Dim oleCommand As New OleDbCommand<br />
        Try<br />
            adpLogin = New OleDbDataAdapter<br />
            conDatabase.Open()<br />
            oleCommand.CommandText = "INSERT INTO [LOGIN] (Login_No, Login_Date, Login_Time, Staff_ID) " & _<br />
            "VALUES ('" & Format(Date.Today, "ddMMyyyy").ToString & Format(Date.Now, "HHmmss").ToString & _<br />
	    "', #" & Format(Date.Today, "dd/MM/yyyy") & "#, #" & Format(Date.Now, "H:mm:ss") & _<br />
	    "#, '" & txtUserID.Text.ToUpper() & "')"<br />
<br />
            oleCommand.Connection = conDatabase<br />
            adpLogin.InsertCommand = oleCommand<br />
            adpLogin.InsertCommand.ExecuteNonQuery()<br />
        Finally<br />
            conDatabase.Close()<br />
        End Try

<br />
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtFileName_DEV.KeyPress<br />
If e.KeyChar = Chr(13) Then<br />
If TextBox1.Text = "" then<br />
'Just jump out of the sub so your code does not try to search for nothing<br />
exit sub<br />
End If<br />
'Reaction when the enter key gets pressed<br />
End If<br />
End Sub

Public Class MyOtherMainForm
    Inherits Main
        ...
End Class