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