SQL Server的存储过程调用Com组件 /*--下面的部分在VB中完成 首先我们先用VB 作一个最简单的组件 工程名称: testSQLCOM 类名: TestMath '函数,计算两个整数相加的结果 Public Function AddMe(a As Long, b As Long) As Long AddMe = a + b End Function 编译生成后,我们就可以在 Sql Server 中对这个 Com 组件进行调用了 --*/ /*--下面是SQL中对上面DLL的调用--*/ --定义用到的变量 declare @err int,@src varchar(255),@desc varchar(255) declare @obj int,@re int --创建调用实例 exec @err=sp_OACreate 'testSQLCOM.TestMath', @obj out if @err<>0 goto lberr --如果创建失败,则进行错误处理 --调用DLL中的函数 exec @err=sp_OAMethod @obj,'AddMe',@re out,100,200 if @err<>0 goto lberr --如果调用错误,则进行错误处理 print '返回的结果是:' + str(@re) --完成后释放 exec sp_OADestroy @obj return lberr: exec sp_oageterrorinfo 0,@src out,@desc out select cast(@err as varbinary(4)) as 错误号 ,@src as 错误源,@desc as 错误描述 |