Public Function UPDATE_LOGINTIME(ByVal EMPID As String)
Dim stst As Integer
Dim retu As String
Dim conn As New OracleConnection(MasterCoN)
conn.ConnectionString = MasterCoN
OraCmd.CommandText = "PROC_UPDATE_LOGINTIME"
OraCmd.CommandType = CommandType.StoredProcedure
OraCmd.Connection = conn 'Active Connection
conn.ConnectionString = MasterCoN
OraCmd.Parameters.AddWithValue("EMPID", EMPID)
Try
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
stst = OraCmd.ExecuteNonQuery()
OraCmd.Parameters.Clear()
Return stst
Catch ex As Exception
obj_err.ErrorMessage(screen_name, "UPDATE_LOGINTIME", ex.ToString)
Finally
End Try
End Function