>oc=CREATEOBJECT( "adodb.connection" ) >oc.Open( "Provider=sqloledb;Data Source=<My-IP-SERVER>; Network Library=DBMSSOCN;Initial Catalog=cwebdata;Integrated Security=SSPI;" ) >oc.Execute( "set arithabort on" ) >oc.Execute( "set nocount on" ) >ocom=createobject( "adodb.command" ) >ocom.ActiveConnection = oc >ocom.CommandText="dbo.pdulistaartdetuni" >ocom.CommandType=4 >ocom.Parameters.item( "@lnartcla" )=1 >ors1=ocom.Execute >ors1.MoveFirst >ors1.MoveFirst >>
>ALTER PROCEDURE dbo.pdulistaartdetuni ( @lnartcla int ) >AS > SELECT adu_cla,art_cla,adu_tip,uni_cla,adu_con FROM dbo.artdetuni WHERE art_cla=@lnartcla ORDER BY art_cla >RETURN > >