Subversion Repositories DevTools

Rev

Rev 5052 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5052 Rev 5053
Line 37... Line 37...
37 
' Determine the size of the record set
 37 
' Determine the size of the record set
38 
'   Gives bad results when searching
 38 
'   Gives bad results when searching
39 
Dim MaxCount : MaxCount = 0
 39 
Dim MaxCount : MaxCount = 0
40 
 
 40 
 
41 
SqlQry = "select count(*) as count from SDK_CONTENT skc where SDKTAG_ID = '" & sdktag_id &"'"
 41 
SqlQry = "select count(*) as count from SDK_CONTENT skc where SDKTAG_ID = '" & sdktag_id &"'"
- 
 
 42 
If sdk_statefilter Then
- 
 
 43 
    SqlQry = SqlQry & " AND skc.sdkpkg_state in ('E')"
- 
 
 44 
End If
42 
 
 45 
 
43 
On Error Resume Next
 46 
On Error Resume Next
44 
objEH.ErrorRedirect = FALSE
 47 
objEH.ErrorRedirect = FALSE
45 
objEH.TryORA ( OraSession )
 48 
objEH.TryORA ( OraSession )
46 
Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
 49 
Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )