Subversion Repositories DevTools

Rev

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

Rev 125 Rev 129
Line 38... Line 38...
38 
Sub UpdateReleaseMetrics
 38 
Sub UpdateReleaseMetrics
39 
   Dim rsQry
 39 
   Dim rsQry
40 
   Dim rsQuery_String
 40 
   Dim rsQuery_String
41 
   Dim rtagid
 41 
   Dim rtagid
42 
 
 42 
 
- 
 
 43 
   On Error Resume Next
- 
 
 44 
 
43 
   OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
 45 
   OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
44 
 
 46 
 
45 
   rsQuery_String = "SELECT rm.rtag_id"&_
 47 
   rsQuery_String = "SELECT rm.rtag_id"&_
46 
                    "  FROM projects p,"&_
 48 
                    "  FROM projects p,"&_
47 
                    "       release_metrics rm,"&_
 49 
                    "       release_metrics rm,"&_
Line 53... Line 55...
53 
   Set rsQry = OraDatabase.DbCreateDynaset( rsQuery_String, cint(0))
 55 
   Set rsQry = OraDatabase.DbCreateDynaset( rsQuery_String, cint(0))
54 
 
 56 
 
55 
   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 57 
   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
56 
      OraDatabase.Parameters.Add "RTAG_ID",         rsQry("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 58 
      OraDatabase.Parameters.Add "RTAG_ID",         rsQry("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
57 
 
 59 
 
- 
 
 60 
      objEH.TryORA ( OraSession )
- 
 
 61 
 
58 
      OraDatabase.ExecuteSQL "BEGIN  PK_RMAPI.UPDATE_RELEASE_METRICS ( :RTAG_ID ); END;"
 62 
      OraDatabase.ExecuteSQL "BEGIN  PK_RMAPI.UPDATE_RELEASE_METRICS ( :RTAG_ID ); END;"
59 
 
 63 
 
- 
 
 64 
      objEH.CatchORA ( OraSession )
- 
 
 65 
 
60 
      OraDatabase.Parameters.Remove "RTAG_ID"
 66 
      OraDatabase.Parameters.Remove "RTAG_ID"
61 
      rsQry.MoveNext
 67 
      rsQry.MoveNext
62 
   WEnd
 68 
   WEnd
63 
 
 69 
 
64 
   OraDatabase.Parameters.Remove "PROJ_ID"
 70 
   OraDatabase.Parameters.Remove "PROJ_ID"