Subversion Repositories DevTools

Rev

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

Rev 5958 Rev 5961
Line 44... Line 44...
44 
	Dim rsQry, query
 44 
	Dim rsQry, query
45
45
46 
	If parOs_id_list <> "" Then
 46 
	If parOs_id_list <> "" Then
47
47
48 
		OraDatabase.Parameters.Add "OS_ID",  parOs_id_list, ORAPARM_INPUT, ORATYPE_NUMBER
48 
		OraDatabase.Parameters.Add "OS_ID",  parOs_id_list, ORAPARM_INPUT, ORATYPE_NUMBER
49
- 
 
50 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("OsDetails.sql"), ORADYN_DEFAULT )
 49 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("OsDetails.sql"), ORADYN_DEFAULT )
- 
 
 50 
		OraDatabase.Parameters.Remove "OS_ID"
51
51
52 
		If rsQry.RecordCount > 0 Then
 52 
		If rsQry.RecordCount > 0 Then
53 
			outobjDetails.Item ("os_id")   = rsQry("os_id")
 53 
			outobjDetails.Item ("os_id")   = rsQry("os_id")
54 
			outobjDetails.Item ("os_name") = rsQry("os_name")
 54 
			outobjDetails.Item ("os_name") = rsQry("os_name")
55 
			outobjDetails.Item ("os_comments") = rsQry("os_comments")
 55 
			outobjDetails.Item ("os_comments") = rsQry("os_comments")
Line 61... Line 61...
61 
		Else
 61 
		Else
62 
			Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nOs_id="& nOs_id
 62 
			Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nOs_id="& nOs_id
63
63
64 
		End If
 64 
		End If
65
65
66 
		OraDatabase.Parameters.Remove "OS_ID"
 - 
 
67
- 
 
68 
		rsQry.Close
 66 
		rsQry.Close
69 
		Set rsQry = Nothing
 67 
		Set rsQry = Nothing
70
68
71 
	End If
 69 
	End If
72
70