Public Function GetIntegrationLogs( _ ByVal FileType As String, _ ByVal dtFrom As Date, _ ByVal dtTo As Date) As DataTable Try #If ORACLE Then Dim dtSC As New DataTable Dim adaptSC As New OracleDataAdapter 'Dim myCommand As New OracleCommand("GetIntegrationLogs", deCCAS.Connection) 'myCommand.CommandType = CommandType.StoredProcedure 'myCommand.Parameters.Add("v_FileType", FileType) 'myCommand.Parameters.Add("v_StartDate", dtFrom) 'myCommand.Parameters.Add("v_EndDate", dtTo) 'reader = Dim objCommand As New OracleCommand("GetIntegrationLogs", deCCAS.Connection) adaptSC.SelectCommand = objCommand Dim sysRefCursor As New OracleParameter With sysRefCursor .OracleDbType = OracleDbType.RefCursor .Direction = ParameterDirection.Output End With With objCommand .CommandType = CommandType.StoredProcedure .Parameters.Add("v_FileType", FileType) .Parameters.Add("v_StartDate", dtFrom) .Parameters.Add("v_EndDate", dtTo) .Parameters.Add(sysRefCursor) End With Dim da As OracleDataAdapter = New OracleDataAdapter(objCommand) adaptSC.Fill(dtSC)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)