Subversion Repositories DevTools

Rev

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

Rev 5360 Rev 5384
Line 340... Line 340...
340 
 
 340 
 
341 
   If myRtag <> "" Then
 341 
   If myRtag <> "" Then
342 
      OraDatabase.Parameters.Add "RTAG_ID", myRtag, ORAPARM_INPUT, ORATYPE_NUMBER
 342 
      OraDatabase.Parameters.Add "RTAG_ID", myRtag, ORAPARM_INPUT, ORATYPE_NUMBER
343 
 
 343 
 
344 
      Query_String = _
 344 
      Query_String = _
345 
      " SELECT rel.rtag_id, rel.rtag_name, proj.proj_id, proj.proj_name, rel.official"&_
 345 
      " SELECT rel.rtag_id, rel.rtag_name, proj.proj_id, proj.proj_name"&_
346 
      " FROM release_tags rel, projects proj"&_
 346 
      " FROM release_tags rel, projects proj"&_
347 
      " WHERE rel.proj_id = proj.proj_id AND rel.rtag_id = :RTAG_ID"
 347 
      " WHERE rel.proj_id = proj.proj_id AND rel.rtag_id = :RTAG_ID"
348 
 
 348 
 
349 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 349 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
350 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 350 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then