I get an error at
"No value given for required parameters".
TimeOut is a Date/Time field. But if I replace it with any field with a string data type, it works.
I just don't know how to retrieve its value because it's a Date/Time field.
Public Shared Function Check8HourTimeOut(ByVal EmpID As String) As String Dim x As String Dim dtfuelpriceinfo As New DataTable If Not DBConnection.State = ConnectionState.Open Then DBConnection.Open() Else End If Dim adapter As New OleDbDataAdapter("SELECT TimeOut FROM EmployeeAttendance where " & _ "EmployeeID='" & EmpID & "' order by WorkingDate desc", DBConnection) adapter.Fill(dtfuelpriceinfo) DBConnection.Close() x = dtfuelpriceinfo.Rows(0).Item(0) Return x End Function
What if you change from "DataTable" type to "DataSet", like so:
DIM dtfuelpriceinfo as Dataset
and see if you still get the error upon your attempt to fill the DataSet. If so, then I'd double-check your SQL to be sure it is actually pulling some records.
Another idea: Maybe EmpID is an integer? Your SQL assumes it is a string. You probably know that.
Oh and (the following change may not be necessary because "tables(0)" is probably optional/assumed, but just in case:
x = dtfuelpriceinfo.Tables(0).Rows(0).Item(0)
Apology if I'm way off!