/*--下面的部分在VB中完成
首先我們先用VB 作一個(gè)最簡(jiǎn)單的組件
工程名稱(chēng): testSQLCOM
類(lèi)名: TestMath
‘函數,計算兩個(gè)整數相加的結果
Public Function AddMe(a As Long, b As Long) As Long
AddMe = a + b
End Function
編譯生成后，我們就可以在 Sql Server 中對這個(gè) Com 組件進(jìn)行調用了
--*/
/*--下面是SQL中對上面DLL的調用--*/
--定義用到的變量
declare @err int,@src varchar(255),@desc varchar(255)
declare @obj int,@re int
--創(chuàng )建調用實(shí)例
exec @err=sp_OACreate ‘testSQLCOM.TestMath‘, @obj out
if @err<>0 goto lberr --如果創(chuàng )建失敗,則進(jìn)行錯誤處理
--調用DLL中的函數
exec @err=sp_OAMethod @obj,‘AddMe‘,@re out,100,200
if @err<>0 goto lberr --如果調用錯誤,則進(jìn)行錯誤處理
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 錯誤描述
