C#编写扩展存储过程

      Microsoft® SQL Server™ 2000支持扩展存储过程，使你可以用其他语言编写组件扩展数据库的功能。以前本地代码VC等可以在做好动态链接库后直接放到System32目录下，然后通过在master库中创建存储过程调用sp_addextendedproc来实现功能。
      .NET等托管语言编写的DLL要多做几步工作。首先托管类库要注册COM接口，而要注册COM接口就需要添加一个Interface，声明出要暴露方法，并添加GUID和DispId,例如：

 [Guid("200D1D86-E232-4b52-84F1-6D7FED6EA99F")]
    public interface COM_Interface
    {
        [DispId(1)]
        void Show(ref long hWndParent, ref U8Login.clsLogin Login, Object mRepManage, Object mRepSysInfo);

    }

    //排产书
    [Guid("CD5C1120-FEA4-4abe-AD4D-BF20686A0E05"), ClassInterface(ClassInterfaceType.None)]
    public class COM_SoMain : COM_Interface
    {
        public void Show(ref long hWndParent, ref U8Login.clsLogin Login, Object mRepManage, Object mRepSysInfo)
        {
            if (Func.cUser_Name == string.Empty)
            {
                Data.conn_Default = Login.UfDbName.Substring(Login.UfDbName.IndexOf(";") + 1);
                Func.cUser_ID = Login.cUserId;
                Func.cUser_Name = Login.cUserName;                
                Func.DataBaseName = Login.cAccName;
                MessageBox.Show(Login.cUserId+Login.cUserName+Data.conn_Default);                
            }
            new FormLayer.SaleOrder.SaleOrderList(0,true);
        }

        COM_Interface 成员#region COM_Interface 成员

        void COM_Interface.Show(ref long hWndParent, ref U8Login.clsLogin Login, object mRepManage, object mRepSysInfo)
        {
            throw new Exception("该方法未能实现！");
        }

        #endregion
    }

然后编译并利用Regasm注册（或在VS2005项目属性中直接勾选）。
      然后是编写存储过程了，这里我们可以通过sp_OACreate、sp_OADestroy创建和销毁对象，通过sp_OAMethod、sp_OAGetErrorInfo调用对象和捕捉错误，下面是我以前的发送邮件的一段代码：

CREATE PROCEDURE dbo.SendMail 
@to varchar(50),
@subject varchar(255),
@body varchar(500)
AS
DECLARE @object int 
DECLARE @hr int 
DECLARE @return varchar(255) 
DECLARE @src varchar(255), @desc varchar(255) 

-- 创建对象实例。 
EXEC @hr = sp_OACreate 'ExtendProcC.SendMails', @object OUT 
IF @hr <> 0 
BEGIN 
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT 
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description='111'
RETURN 
END 
-- 调用对象方法。
EXEC @hr = sp_OAMethod @object, 'Send',@return OUT,'smtp.163.com','123@163.com','123','123@163.com','某某',@to,'1',@SUBJECT,@body
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 

-- 销毁对象实例。 
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
GO

扩展存储过程的DLL将会作为COM对象运行于SQLServer的地址空间，所以在实现类中最好只有方法，慎用全局字段。