sql com

                            有时候,出于SQL Server本身的功能不足,我们需要用外部的程序来实现,而Com由于其语言的无关性和强大的功能就成为与Sql Server接口的首选,并且sql Server本身也提供了这方面的系统存储过程用以实现与com的接口。这几个相关的系统存储过程为:  
        sp_OACreate 在 Microsoft® SQL Server™ 执行个体建立 OLE 对象的执行个体。  
        sp_OAMethod 呼叫 OLE 对象的方法  
        sp_OAGetProperty 取得 OLE 对象的属性值  
        sp_OASetProperty 将 OLE 对象属性设定为新值。  
        sp_OAGetErrorInfo 获得 OLE Automation 错误信息  
        sp_OAStop 停止整个服务器 OLE Automation 预存程序执行环境。  
        sp_OADestroy 销毁建立的 OLE 对象。 


        知道了实现的可能性,那么到底该如何实现呢?下面请跟我来: 
一、 其它编程语言建立Com程序(以Delphi为例)  
        1、 关闭所有项目,新建一个工程,将默认的单元文件unit1.pas保存为uMain.pas,将默认的工程文件project1保存为ptestCom。当然你也可以保存为你想要的文件名,但要记住这里设定的工程名就是后面需调用的com名称;  
        2、 点击菜单File->New->Other…,打开新建项目窗口,选择ActiveX页,在其中找到Automation Object(因为sql server中要求被它调用的OLE Automation Server须支持Idispatch接口,所以选择它),然后点OK,在弹出的响导框中输入Class Name(这里输入testObject),其它保持不变,按OK完成;  
        3、 在以上步骤完成后,就会弹出一个名叫testCom的类型库窗口,在窗口的左侧我们就会看到上面所创建的类testObject和一个叫ItestObject的接口类,选中ItestObject,点击工具栏上的New Method创建一个新的方法,命名为testfunc,然后在右边的parameters页上添加两个输入参数param1和param2(Type为BSTR,Modifier为[in])、一个输出参数paramout(Type为Variant *,Modifier为[out, retval]),Return type保持不变,为Hresult。点一下工具栏上的刷新按钮,按保存,将它保存为utestcom.pas和utestcom.tlb,然后关闭窗口;  
        4、 此时,在utestcom单元文件中你将会看到已经产生了一个函数:  
        function TtestObject.testfunc(const param1,param2: Widestring): OLEVariant;  
        begin  

        end;  
        在其中加上如下代码(当然你可以在此函数中使用你自己的方法来实现):  
                Result := Param1 + Param2; //将传入两个字符串相加,然后返回  
        按保存,运行它,确认无误即可,如果有误,请检查以上步骤是否正确完成。 

二、在SQL Server中的调用 
        当创建好了Com程序并确定无误后,我们就可以用上面提到的几个相关系统存储过程来调用了,下面请看实例,具体说明已包含在代码中,不再重述。 


create procedure Check_UserAthor        --定义一个存储过程,接受两个参数 
 @c_id varchar(20), 
 @c_name varchar(20) 
As 
DECLARE @object int 
Declare @Err int 
Declare @return_value varchar(255) 
Declare @src varchar(255), @desc varchar(255) 
 
/**//*創建Com實例,调用如上创建的ptestcom.testobject*/ 
exec @err = master..sp_OACreate "ptestcom.testobject", @object out 

IF @err <> 0     /**//* 創建失敗*/ 
BEGIN 
     
    EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT  
    SELECT hr=convert(varbinary(4),@err), Source=@src, Description=@desc 
        RETURN 
END 
 
/**//*調用如上声明的Com方法testfunc,@return_value为返回值,@c_id与@c_name为输入参数*/ 
EXEC @err = sp_OAMethod @object,'testfunc',@return_value OUT,@c_id,@c_name 
IF @err <> 0 
BEGIN 
    EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT  
    SELECT hr=convert(varbinary(4),@err), Source=@src, Description=@desc 
    EXEC sp_OADestroy @object 
    RETURN 
END 
 
PRINT '返回結果為:' +(@return_value)     --这里显示返回值 
 
/**//*釋放Com實例*/ 
exec sp_OADestroy @object 
 
GO 

三、调用 
        如上存储过程创建无误后,我们就可以直接拿来调用了,在如上的示例中,如果我们输入'123','company',返回的结果就应该是123company这个字符串了。 

四、推论 
        以上的com程序其实适合于任何能与com进行通信的其它程序调用,比如在ASP中,也可以直接调用com组件,方法一样简单,不再详述,如有兴趣可与我探讨。   

                                

查看回复