[存储过程] 在SQL Server的存储过程中调用Com组件

SQL server 的 T-Sql 语言的功能是 非常的强大，但是有个时候 也确实是有些限制和
不方便,为什么不象 asp 一样 大量的借用组件呢？开始在 Sql online book 中查找，终于找
到了 一个 Sql 的 系统存储过程 sp_OACreate,下面大家就一起去 看看这个 存储过程的神
　　 s首先我们先用VB 作一个最简单的组件 ，因为是介绍性的文章，所以这个组件是非常的
　　 工作中，可以写个 比这个 业务复杂的多的 组件
　　 Project Name: testSQLCOM
　　 Class Name: TestMath
　　 Public Function AddMe(a As Long, b As Long) As Long
　　 AddMe = a + b
　　 End Function
　　 编译生成后，我们就可以在 Sql Server 中对这个 Com 组件进行调用了
　　 declare @i int
　　 declare @intRet int
　　 declare @intRetCode int
　　 DECLARE @strErr varchar (255)
　　 DECLARE @strErr1 varchar (255)
　　 /* 首先创建Com 实例 */
　　 exec @ret_code = sp_OACreate "testSQLCOM.TestMath", @i out
　　 IF @intRetCode <> 0
　　 BEGIN
　　 /* 创建实例 失败 */
　　 EXEC sp_OAGetErrorInfo @i, @strErr OUT, @strErr1 OUT
　　 PRINT "创建实例失败，失败的原因是：: " + @strErr + " " + @strErr1
　　 RETURN
　　 END
　　 /* 创建成功，开始调用 */
　　 EXEC @intRetCode = sp_OAMethod @i,'AddMe',@ret OUT,100,200
　　 IF @intRetCode <> 0
　　 BEGIN
　　 /* 调用方法出错 */
　　 EXEC sp_OAGetErrorInfo @i, @strErr OUT, @strErr1 OUT
　　 PRINT "调用方法失败，失败的原因是：: " + @strErr + " " + @strErr1
　　 EXEC sp_OADestroy @i
　　 RETURN
　　 END
　　 PRINT "返回的结果是" + Str(@intRet)
　　 exec sp_OADestroy @i
　　 以前是存储过程的输出
　　 Step 4:
　　 返回的结果是 300