Subversion Repositories DevTools

Rev

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

Rev 19 Rev 21
Line 40... Line 40...
40 
	Dim rsQry, query
 40 
	Dim rsQry, query
41
41
42 
	If nNodeId <> "" Then
 42 
	If nNodeId <> "" Then
43 
		OraDatabase.Parameters.Add "NODE_ID", nNodeId,	ORAPARM_INPUT, ORATYPE_NUMBER
43 
		OraDatabase.Parameters.Add "NODE_ID", nNodeId,	ORAPARM_INPUT, ORATYPE_NUMBER
44
44
45 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("NetworkNodeDetails.sql") , ORADYN_DEFAULT )
 45 
		Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM NETWORK_NODES WHERE NODE_ID ="& nNodeId, ORADYN_DEFAULT )
46
46 
 
47 
		If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 47 
		If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
48 
			outobjDetails.Item ("node_id") = rsQry("node_id")
 48 
			outobjDetails.Item ("node_id") = rsQry("node_id")
49 
			outobjDetails.Item ("node_name") = rsQry("node_name")
 49 
			outobjDetails.Item ("node_name") = rsQry("node_name")
50 
			outobjDetails.Item ("node_comments") = rsQry("node_comments")
 50 
			outobjDetails.Item ("node_comments") = rsQry("node_comments")
51 
			outobjDetails.Item ("node_type_id") = rsQry("node_type_id")
 51 
			outobjDetails.Item ("node_type_id") = rsQry("node_type_id")