1 select @netAddress=net_address





  2 from master.dbo.sysprocesses





  3 where spid=@@spid





  4 





  5 if exists(select *





  6           from master.dbo.sysdatabases d





  7           inner join master.dbo.sysprocesses p on d.dbid=p.dbid





  8           inner join dbo.users u on p.net_Address=u.macAddress





  9           where d.name=db_name()





 10             and p.net_address<>@netAddress





 11             and u.userID=@userID) begin





 12     raiserror('이미 다른 곳에서 접속중인 아이디입니다.', 16, 1)





 13     return





 14 end

 1 #!C:\istrawberry\perl\bin\perl.exe



 2 



 3 use DBI;



 4 



 5 $server = "(local)";



 6 $db = "temp";



 7 $uid = "sa";



 8 $pwd = "xxxx";



 9 $cn = "DBI:ODBC:Driver={SQL Server};server=$server; database=$db; uid=$uid; pwd=$pwd";



10 $db = DBI -> connect($cn);



11 



12 $sql = "select * from dbo.programs";



13 $cmd = $db -> prepare($sql);



14 $cmd -> execute();



15 



16 while ($rs = $cmd -> fetchrow_hashref()){



17     print $rs -> {"pID"} . "\t"



18         . $rs -> {"programID"} . "\t"



19         . $rs -> {"program"} . "\n";



20 }



21 



22 $cmd -> finish();



23 $db -> disconnect();