Subversion Repositories DevTools

Rev

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

Rev 5102 Rev 5103
Line 331... Line 331...
331 
' Function:    getSdkNames
 331 
' Function:    getSdkNames
332 
' Description: Get Project information
 332 
' Description: Get Project information
333 
'              Array of:
 333 
'              Array of:
334 
'               SDK_ID
 334 
'               SDK_ID
335 
'               SDK_NAME
 335 
'               SDK_NAME
- 
 
 336 
' Parameters:   proj_id (optional) If present, limit names to those available in this project
336 
 
 337 
 
337 
Sub getSdkNames
 338 
Sub getSdkNames
- 
 
 339 
 
- 
 
 340 
    Dim proj_id : proj_id = QStrPar("proj_id")
- 
 
 341 
 
338 
    '   Get Data for an existing entry
 342 
    '   Get Data for an existing entry
339 
    '   Setup for the database access
 343 
    '   Setup for the database access
- 
 
 344 
    If proj_id <> "" Then
- 
 
 345 
        SqlQry = "SELECT SDK_ID, SDK_NAME from SDK_NAMES WHERE proj_id = " & proj_id & " order by UPPER(SDK_NAME) ASC"
- 
 
 346 
    Else
340 
    SqlQry = "SELECT SDK_ID,SDK_NAME from SDK_NAMES order by UPPER(SDK_NAME) ASC"
 347 
        SqlQry = "SELECT SDK_ID,SDK_NAME from SDK_NAMES order by UPPER(SDK_NAME) ASC"
- 
 
 348 
    End If
341 
 
 349 
 
342 
    objEH.ErrorRedirect = FALSE
 350 
    objEH.ErrorRedirect = FALSE
343 
    objEH.TryORA ( OraSession )
 351 
    objEH.TryORA ( OraSession )
344 
    On Error Resume Next
 352 
    On Error Resume Next
345 
    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
 353 
    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )