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 )