Subversion Repositories DevTools

Rev

Rev 6645 | Rev 6770 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6645 Rev 6694
Line 284... Line 284...
284 
   Set rsTemp = nothing
 284 
   Set rsTemp = nothing
285 
   Set OraDatabase2 = nothing
 285 
   Set OraDatabase2 = nothing
286 
   Set OraSession2 = nothing
 286 
   Set OraSession2 = nothing
287 
End Function
 287 
End Function
288 
'-----------------------------------------------------------------------------------------------------------------------------
 288 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 289 
' Try to replace usage with : DB_PROJ_ID
289 
Function Get_Proj_ID ( SSrtag_id )
 290 
Function Get_Proj_ID ( SSrtag_id )
290 
   Dim rsTemp, Query_String
 291 
   Dim rsTemp, Query_String
291 
 
 292 
 
292 
   Query_String = _
 293 
   Query_String = _
293 
   " SELECT projects.proj_id"&_
 294 
   " SELECT projects.proj_id"&_
Line 303... Line 304...
303 
 
 304 
 
304 
   rsTemp.Close
 305 
   rsTemp.Close
305 
   Set rsTemp = nothing
 306 
   Set rsTemp = nothing
306 
End Function
 307 
End Function
307 
'-----------------------------------------------------------------------------------------------------------------------------
 308 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 309 
' Try to replace usage with : DB_PROJ_NAME
308 
Function Get_Proj_Name ( NNproj_id )
 310 
Function Get_Proj_Name ( NNproj_id )
309 
   Dim rsTemp, Query_String
 311 
   Dim rsTemp, Query_String
310 
 
 312 
 
311 
   Get_Proj_Name = ""
 313 
   Get_Proj_Name = ""
312 
 
 314