转至繁体中文版     | 网站首页 | 文章中心 | 下载中心 | 图片中心 | 笑话频道 | 教程频道 | 会员中心 | 雁过留声 | 
最新公告:     "MinTao学以致用网"欢迎您的光临,你的支持便是我们的动力,欢迎广大网友和各界人士亲临指导,你们的一个小小的建议便是我们发展的开路石!  [MinTao  2007年9月5日]        
您现在的位置: MinTao学以致用网 >> 文章中心 >> 电子课堂 >> 数据库 >> Sql Server >> 文章正文
专题栏目
更多内容
最新推荐 更多内容
相关文章
SQL Server安全性简介
SQL 语法参考手册
MS SQL Sever 7.0 存储引
SQL SERVER和SYBASE
SQL Server 7.0数据库的
VB应用程序访问SQL Serv
将DBF数据库转换成SQL S
拷贝的SQL Server 7数据
浅谈优化SQL Server数据
如何使用SQL Server客户
更多内容
SQL Server的存储过程调用Com组件         
SQL Server的存储过程调用Com组件
作者:豆腐技术站 文章来源:不详 点击数: 更新时间:2007-11-14 13:15:01

   SQL server 的 T-Sql 语言的功能是 非常的强大,但是有个时候 也确实是有些限制和不方便,一天,豆腐想为什么不象 asp 一样 大量的借用组件呢?说干就干,我这就 开始在 Sql online book 中查找,呵呵终于找到了 一个 Sql 的 系统存储过程 sp_OACreate,下面大家就和豆腐一起去看看这个存储过程的神气之处吧

  首先我们先用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

  我们在这篇文章中介绍了在 Sql server 中使用 组件的方法,具体的 帮助 大家 请查看 SQL Onlone Book

文章录入:mintao    责任编辑:mintao 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007 MinTao学以致用网(www.mintao.net) Inc All Rights Reserved.
    QQ:543098146有事请Q我! QQ:261561092有事请Q我 QQ:179647303有事请Q我 MSN:min906@126.com
    站长:MinTao 信息产业部ICP备案号:鄂ICP备07500065号

    学以致用是我们学习者的至高境界和不懈追求,[MinTao学以致用网]与大家共同学习,共同进步……
    信息产业部备案
    *鄂ICP备07500065号