Subversion Repositories DevTools

Rev

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

Rev 5957 Rev 6480
Line 524... Line 524...
524 
Sub getSdkVersionDetails
 524 
Sub getSdkVersionDetails
525 
    '   Get Data for an existing entry
 525 
    '   Get Data for an existing entry
526 
    '   Setup for the database access
 526 
    '   Setup for the database access
527 
    Dim sdktag_id : sdktag_id = QStrPar("sdktag_id")
 527 
    Dim sdktag_id : sdktag_id = QStrPar("sdktag_id")
528 
    OraDatabase.Parameters.Add "SDKTAG_ID",      sdktag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 528 
    OraDatabase.Parameters.Add "SDKTAG_ID",      sdktag_id, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 529 
    SqlQry = _
529 
    SqlQry = "SELECT st.SDKTAG_ID, " &_
 530 
        "SELECT st.SDKTAG_ID, " &_
530 
             "  SDKTAG_NAME, " &_
 531 
        "   st.SDKTAG_NAME, " &_
531 
             "  DESCRIPTION, " &_
 532 
        "   st.DESCRIPTION, " &_
532 
             "  st.SDK_ID, " &_
 533 
        "   st.SDK_ID, " &_
533 
             "  TO_CHAR(CREATED_STAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as CREATED_STAMP , " &_
 534 
        "   TO_CHAR(st.CREATED_STAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as CREATED_STAMP , " &_
534 
             "  CREATOR_ID, " &_
 535 
        "   st.CREATOR_ID, " &_
535 
             "  TO_CHAR(STATE_STAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as STATE_STAMP , " &_
 536 
        "   TO_CHAR(st.STATE_STAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as STATE_STAMP , " &_
536 
             "  STATE_ID, " &_
 537 
        "   st.STATE_ID, " &_
537 
             "  SDK_STATE, " &_
 538 
        "   st.SDK_STATE, " &_
538 
             "  SDK_NAME, " &_
 539 
        "   sn.SDK_NAME, " &_
539 
             "  SDK_COMMENT " &_
 540 
        "   sn.SDK_COMMENT," &_
- 
 
 541 
        "   rt.RTAG_NAME," &_
- 
 
 542 
        "   p.PROJ_NAME" &_
540 
             "FROM SDK_TAGS st, " &_
 543 
        " FROM SDK_TAGS st, " &_
541 
             "  SDK_NAMES sn " &_
 544 
        "   SDK_NAMES sn," &_
- 
 
 545 
        "   RELEASE_TAGS rt," &_
- 
 
 546 
        "   PROJECTS p" &_
542 
             "WHERE st.SDKTAG_ID = :SDKTAG_ID " &_
 547 
        " WHERE st.SDKTAG_ID = :SDKTAG_ID " &_
543 
             "AND st.SDK_ID = sn.SDK_ID "
 548 
        " AND st.SDK_ID = sn.SDK_ID " &_
- 
 
 549 
        " AND st.RTAG_ID = rt.RTAG_ID" &_
- 
 
 550 
        " AND rt.PROJ_ID = p.PROJ_ID"
544 
 
 551 
 
545 
    ' Perform Query
 552 
    ' Perform Query
546 
    objEH.ErrorRedirect = FALSE
 553 
    objEH.ErrorRedirect = FALSE
547 
    objEH.TryORA ( OraSession )
 554 
    objEH.TryORA ( OraSession )
548 
    On Error Resume Next
 555 
    On Error Resume Next