Subversion Repositories DevTools

Rev

Rev 5933 | Rev 5957 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5933 Rev 5952
Line 77... Line 77...
77 
    If NOT isNull(OraDatabase.Parameters("RESULTS").Value) Then
 77 
    If NOT isNull(OraDatabase.Parameters("RESULTS").Value) Then
78 
        Set outSet = OraDatabase.Parameters("RESULTS").Value
 78 
        Set outSet = OraDatabase.Parameters("RESULTS").Value
79 
    End If
 79 
    End If
80 
 
 80 
 
81 
   OraDatabase.Parameters.Remove "PV_ID"
 81 
   OraDatabase.Parameters.Remove "PV_ID"
82 
   OraDatabase.Parameters.Remove "PV_ID"
 82 
   OraDatabase.Parameters.Remove "RTAG_ID"
83 
   OraDatabase.Parameters.Remove "OVERRIDE_WARNINGS"
 83 
   OraDatabase.Parameters.Remove "OVERRIDE_WARNINGS"
84 
   OraDatabase.Parameters.Remove "RESULTS"
 84 
   OraDatabase.Parameters.Remove "RESULTS"
85 
End Sub
 85 
End Sub
86 
 
 86 
 
87 
Function getRecordCount( obj )
 87 
Function getRecordCount( obj )