SQL Server的預存程序調用Com組件

--SQL Server的預存程序調用Com組件 

/*--下面的部分在VB中完成 首先我們先用VB 作一個最簡單的組件 工程名稱: testSQLCOM
類名: TestMath '函數,計算兩個整數相加的結果
Public Function AddMe(a As Long, b As Long) As Long
   AddMe = a + b
End Function 編譯產生後，我們就可以在 Sql Server 中對這個 Com 組件進行調用了
--*/ /*--下面是SQL中對上面DLL的調用--*/ --定義用到的變數
declare @err int,@src varchar(255),@desc varchar(255)
declare @obj int,@re int --建立調用執行個體
exec @err=sp_OACreate 'testSQLCOM.TestMath', @obj out
if @err<>0 goto lberr  --如果建立失敗,則進行錯誤處理 --調用DLL中的函數
exec @err=sp_OAMethod @obj,'AddMe',@re out,100,200
if @err<>0 goto lberr  --如果調用錯誤,則進行錯誤處理 print '返回的結果是:' + str(@re) --完成後釋放
exec sp_OADestroy @obj return lberr:
 exec sp_oageterrorinfo 0,@src out,@desc out
 select cast(@err as varbinary(4)) as 錯誤號碼
  ,@src as 錯誤源,@desc as 錯誤描述