/*--下面的部分在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 错误描述