/*--下面部分在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 ,@src varchar(255),@desc varchar(255)
declare @obj ,@re

--创建例子
exec @err=sp_OACreate ''testSQLCOM.TestMath'', @obj out
@err<>0 goto lberr  --如果创建失败,则进行处理

--DLL中
exec @err=sp_OAMethod @obj,''AddMe'',@re out,100,200
@err<>0 goto lberr  --如果,则进行处理

pr ''返回结果是:'' + str(@re)

--完成后释放
exec sp_OADestroy @obj



lberr:
exec sp_oageterrorinfo 0,@src out,@desc out
select cast(@err as varbinary(4)) as 号
  ,@src as 源,@desc as 描述