|
|
|
[
来路：21kn.com 时间：2007-7-8 18:51:44
点击： ] |
|
|
|
|
|
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 |
|
|
：：：：站长友情提示：多花一分钟学点什么都好：：：：
|
|
|
|
|
|
|
|
|
|
|
|
=
= 免责声明 = = |
|
①
欢迎转载我网所刊信息，请注明“来源：E天下网络”。
② 凡本网注明“来源：XXX（非E天下网络）”的作品，均转载自其它媒体，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责。如因作品内容、版权和其它问题需要同本网联系的，请在30日内进行。
※联系方式：Airtofly@163.com |
|
|
|
|
|
|
