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
|