TSQL中调用存储过程的例子

  1. ------------------------------------
  2. --Author:Flystone
  3. --Version:V1.001
  4. --Date:2008-08-0112:39:33
  5. ------------------------------------
  6. --TestData:ta
  7. Ifobject_id('ta')isnotnull
  8. Droptableta
  9. Go
  10. Createtableta(bnoint,bnamenvarchar(5),editornvarchar(5),bpubnvarchar(7),bdatenumeric(5,1))
  11. Go
  12. Insertintota
  13. select1,'数据库原理','wang','gaojiao',2006.9unionall
  14. select2,'信息系统','liu','kexue',2006.8unionall
  15. select3,'数据库实例','wang','gaojiao',2006.9unionall
  16. select4,'数据库习题','zhang','jixie',2005.4
  17. Go
  18. --createproc
  19. createprocproc_a
  20. @bnoint
  21. as
  22. select*fromtawherebno<=@bno
  23. go
  24. --Start
  25. select*
  26. fromOPENROWSET('SQLOLEDB','SERVER=.;UID=sa;PWD=','execcsdn_test.dbo.proc_a2')ASa
  27. select*
  28. fromOPENROWSET('SQLOLEDB','.';'sa';'','execcsdn_test.dbo.proc_a2')ASa
  29. select*
  30. fromOPENROWSET('SQLOLEDB','DRIVER={SQLServer};SERVER=.;UID=sa;PWD=','execcsdn_test.dbo.proc_a2')ASa
  31. --Dropproc
  32. dropprocproc_a
  33. --Result:
  34. /*
  35. bnobnameeditorbpubbdate
  36. --------------------------------------------------------------------------------------------
  37. 1数据库原理wanggaojiao2006.9
  38. 2信息系统liukexue2006.8
  39. (所影响的行数为2行)
  40. bnobnameeditorbpubbdate
  41. --------------------------------------------------------------------------------------------
  42. 1数据库原理wanggaojiao2006.9
  43. 2信息系统liukexue2006.8
  44. (所影响的行数为2行)
  45. bnobnameeditorbpubbdate
  46. --------------------------------------------------------------------------------------------
  47. 1数据库原理wanggaojiao2006.9
  48. 2信息系统liukexue2006.8
  49. (所影响的行数为2行)
  50. */
  51. --END
DECLARE @Object int; DECLARE @HR int; DECLARE @Property nvarchar(255); DECLARE @Return nvarchar(255); DECLARE @Source nvarchar(255), @Desc nvarchar(255); DECLARE @httpStatus int; DECLARE @response varchar(8000); --创建 OLE 对象的实例 EXEC @HR = sp_OACreate N'MSXML2.XMLHTTP.6.0',@Object OUT; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('Error Creating COM Component 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO END_ROUTINE END BEGIN --Open EXEC @HR = sp_OAMethod @Object,N'open',Null,'GET','http://localhost:1728/HttpServer/submit.aspx',FALSE; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('Open 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO CLEANUP END --setRequestHeader EXEC @HR = sp_OAMethod @Object,N'setRequestHeader',Null,'Content-Type','text/xml'; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('setRequestHeader 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO CLEANUP END --send EXEC @HR = sp_OAMethod @Object,N'send',Null,''; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('send 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO CLEANUP END --readyState EXEC @HR = sp_OAGetProperty @Object,'readyState', @httpStatus OUT; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('readyState 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO CLEANUP END --verify status IF @httpStatus 4 BEGIN RAISERROR('readyState http status bad', 16,1) GOTO CLEANUP END --status EXEC @HR = sp_OAGetProperty @Object,'status', @httpStatus OUT; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('getstatus 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO CLEANUP END --verify status IF @httpStatus 200 BEGIN Print Cast(@httpStatus As varchar) RAISERROR('Open http status bad', 16,1) GOTO CLEANUP END --responseText EXEC @HR = sp_OAGetProperty @Object, 'responseText', @response OUT IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('responseText 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO CLEANUP END Print @response END CLEANUP: BEGIN EXEC @HR = sp_OADestroy @Object; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; SELECT HR = convert(varbinary(4),@HR),Source=@Source,Description=@Desc; END END END_ROUTINE: RETURN; GO
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值