如何做在SQL Server中调用的com组件?

如何做在SQL   Server中调用的com组件?最好有实例!我想用其他语言写：） 问题点数：100、回复次数：4Top

1 楼N_chow（Yukon）回复于 2001-12-25 17:41:31 得分 0

請在Books   Online中參考關鍵字sp_OACreate、sp_OADestroy、sp_OAMethod等系統存儲過程。Top

2 楼zenghongmei（这个才是是真的）回复于 2001-12-25 18:15:00 得分 0

新年快乐！Top

3 楼bluepower2008（蓝色力量）回复于 2001-12-25 19:39:33 得分 0

一段实例:  
  DECLARE   @object   int  
  DECLARE   @hr   int  
  DECLARE   @property   varchar(255)  
  DECLARE   @return   varchar(255)  
  DECLARE   @src   varchar(255),   @desc   varchar(255)  
   
  --   Create   an   object.  
  EXEC   @hr   =   sp_OACreate   'SQLDMO.SQLServer',   @object   OUT  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object,   @src   OUT,   @desc   OUT    
        SELECT   hr=convert(varbinary(4),@hr),   Source=@src,   Description=@desc  
          RETURN  
  END  
   
  --   Set   a   property.  
  EXEC   @hr   =   sp_OASetProperty   @object,   'HostName',   'Gizmo'  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object,   @src   OUT,   @desc   OUT    
        SELECT   hr=convert(varbinary(4),@hr),   Source=@src,   Description=@desc  
          RETURN  
  END  
   
  --   Get   a   property   using   an   output   parameter.  
  EXEC   @hr   =   sp_OAGetProperty   @object,   'HostName',   @property   OUT  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object,   @src   OUT,   @desc   OUT    
        SELECT   hr=convert(varbinary(4),@hr),   Source=@src,   Description=@desc  
          RETURN  
  END  
  PRINT   @property  
   
  --   Get   a   property   using   a   result   set.  
  EXEC   @hr   =   sp_OAGetProperty   @object,   'HostName'  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object,   @src   OUT,   @desc   OUT    
        SELECT   hr=convert(varbinary(4),@hr),   Source=@src,   Description=@desc  
          RETURN  
  END  
   
  --   Get   a   property   by   calling   the   method.  
  EXEC   @hr   =   sp_OAMethod   @object,   'HostName',   @property   OUT  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object,   @src   OUT,   @desc   OUT    
        SELECT   hr=convert(varbinary(4),@hr),   Source=@src,   Description=@desc  
          RETURN  
  END  
  PRINT   @property  
   
  --   Call   a   method.  
  EXEC   @hr   =   sp_OAMethod   @object,   'Connect',   NULL,   'my_server',   'my_login',   'my_password'  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object,   @src   OUT,   @desc   OUT    
        SELECT   hr=convert(varbinary(4),@hr),   Source=@src,   Description=@desc  
          RETURN  
  END  
   
  --   Call   a   method   that   returns   a   value.  
  EXEC   @hr   =   sp_OAMethod   @object,   'VerifyConnection',   @return   OUT  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object,   @src   OUT,   @desc   OUT    
        SELECT   hr=convert(varbinary(4),@hr),   Source=@src,   Description=@desc  
          RETURN  
  END  
  PRINT   @return  
   
  --   Destroy   the   object.  
  EXEC   @hr   =   sp_OADestroy   @object  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object,   @src   OUT,   @desc   OUT    
        SELECT   hr=convert(varbinary(4),@hr),   Source=@src,   Description=@desc  
          RETURN  
  END  
   
  Top

4 楼xhfjy（峰）回复于 2001-12-25 21:16:03 得分 100

  关注Top

相关问题

• hr
• source
• server
• returnend
• oageterrorinfo
• desc
• varbinary
• outif
• exec
• returnendprint

• 帖主：love_hate
• xhfjy

• SQL Server类图书