1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| Dim myConn As New OracleConnection
Dim myPL As New OracleCommand
Public Function GetExtractDate(ByVal archiveNum As Integer) As Date
Dim C_dPopDate As Date
If myConn.State = ConnectionState.Closed Or myConn.State = ConnectionState.Broken Then
myConn.Open()
End If
Dim dParam As New OracleParameter
Dim nArchiveNum As New OracleParameter
dParam = myPL.Parameters.Add("dPopDate", OracleDbType.Date, ParameterDirection.Output)
If Not archiveNum = Nothing Then
With nArchiveNum
.ParameterName = "nArchive"
.Direction = ParameterDirection.Input
.OracleDbType = OracleDbType.Int32
.Value = archiveNum
End With
Else
With nArchiveNum
.ParameterName = "nArchive"
.Direction = ParameterDirection.Input
.OracleDbType = OracleDbType.Int32
.Value = System.DBNull.Value
End With
End If
myPL.Parameters.Add(nArchiveNum)
myPL.CommandType = CommandType.StoredProcedure
myPL.CommandText = "POPULATIONSEL.GetExtractDate"
myPL.Connection = myConn
myPL.ExecuteNonQuery()
C_dPopDate = CDate(dParam.Value.ToString)
myPL.Parameters.Clear()
Return C_dPopDate
End Function |
Partager