Subversion Repositories DevTools

Rev

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

Rev 13 Rev 29
Line 45... Line 45...
45
45
46 
	OraDatabase.Parameters.Remove "PROJ_ID"
 46 
	OraDatabase.Parameters.Remove "PROJ_ID"
47 
	OraDatabase.Parameters.Remove "BRANCH_ID"
 47 
	OraDatabase.Parameters.Remove "BRANCH_ID"
48
48
49
49
50 
	OutString = NULL
 50 
	OutString = "-- Select Branch --|+|"
51
51
52
52
53 
	While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 53 
	While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
54 
		OutString = OutString & rsQry("branch_name") &"|-|"& rsQry("branch_id") &"|-|"& rsQry("selected") &"|+|"
 54 
		OutString = OutString & rsQry("branch_name") &"|-|"& rsQry("branch_id") &"|-|"& rsQry("selected") &"|+|"
55 
		rsQry.MoveNext
 55 
		rsQry.MoveNext