江西广告网

标题: 在SQL Server的存储过程中调用Com组件 [打印本页]

作者: 游游 时间: 2009-2-7 10:44
标题: 在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 <

欢迎光临江西广告网 (http://bbs.jxadw.com/)