在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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有