本文將解釋如何在SQL Server 2005中以盡可能最簡單的方法創(chuàng)建基于.NET的CLR子例程。本文主要針對(duì)在服務(wù)器端使用SQL Server 2005的.NET開發(fā)者。

　　一. 創(chuàng)建SQL Server 2005數(shù)據(jù)庫

　　這一節(jié)主要討論創(chuàng)建一個(gè)將用于本文中的數(shù)據(jù)庫和表格。詳見下列步驟：

　　· 執(zhí)行"Start->PRograms->Microsoft SQL Server 2005->SQL Server Management Studio"，并使用必要的證書連接到你的SQL Server 2005實(shí)例。

　　· 一旦建立連接，使用"Object Explorer"打開SQL Server 2005實(shí)例，然后右擊"databases"并選擇"New Database"(圖1)。

圖1.

圖2.

圖3.

圖4. 圖5.

圖6.

　　· 一旦你點(diǎn)擊"OK"，將出現(xiàn)一個(gè)"New Database Reference"對(duì)話框。輸入你自己的實(shí)例名，并選擇數(shù)據(jù)庫"Sample"(在上一節(jié)創(chuàng)建的)，并且測(cè)試連接(圖7)。

圖7

　　· 一旦測(cè)試成功，點(diǎn)擊"OK"創(chuàng)建工程。

　　· 然后系統(tǒng)出現(xiàn)一個(gè)對(duì)話框，它詢問你是否啟動(dòng)CLR調(diào)試功能。請(qǐng)點(diǎn)擊"Yes"(圖8)。

圖8

　　· 使用"Solution explorer"，右擊"SampleAllInOne"工程，并點(diǎn)擊"Add->Stored Procedure"(以創(chuàng)建一個(gè)新的存儲(chǔ)過程)(圖9)。

圖9

　　· 之后，出現(xiàn)"Add New Item"對(duì)話框。在該對(duì)話框內(nèi)，選擇"Stored Procedure"作為模板并輸入名字"IncSalaries"，最后點(diǎn)擊"Add"(圖10)。

圖10

　　三. .NET CLR存儲(chǔ)過程編碼

　　一旦創(chuàng)建"IncSalaries.vb"，以下列方法修改你的代碼，如下所示：

Imports System Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlTypes Imports Microsoft.SqlServer.Server Partial Public Class StoredProcedures <Microsoft.SqlServer.Server.SqlProcedure()> _ Public Shared Sub IncSalaries(ByVal IncVal As SqlDouble) 　'在此添加你的代碼 　Using cn As New SqlConnection("context connection=true") 　Dim cmd As New SqlCommand("update sample.dbo.emp set 　sal = sal + " & IncVal.ToString， cn) 　cmd.Connection.Open() 　cmd.ExecuteNonQuery() 　End Using End Sub End Class

　　上面是一個(gè)使用Visual Basic.NET 2005編寫簡單的基于CLR的存儲(chǔ)過程，你可以把它發(fā)布到SQL Server 2005中。該存儲(chǔ)過程名為"IncSalaries"，它只接收一個(gè)參數(shù)-"IncVal"。上面的存儲(chǔ)過程簡單地使用參數(shù)中提供的值來提高表格"emp"中每一位雇員的工資值。

　　四. .NET CLR存儲(chǔ)過程測(cè)試

　　為了測(cè)試上面的存儲(chǔ)過程，請(qǐng)遵循下列步驟：

　　· 使用"Solution Explorer"在"test scr

圖11

　　· 轉(zhuǎn)到最后一行，并如下修改代碼：

--為運(yùn)行你的工程，請(qǐng)編輯你的工程的Test.sql文件。 --這個(gè)文件位于Solution Explorer的"Test Scripts"文件夾下 exec IncSalaries 50

　　· 轉(zhuǎn)到"Start->Programs->Microsoft SQL Server 2005->Configuration Tools->SQL Server Surface Area Configuration"。

　　· 在窗口內(nèi)，點(diǎn)擊"Surface Area Configuration for Features"(圖12)。

圖12.

　　· 啟動(dòng)CLR集成，如下所示(圖13)。

圖13.

　　· 按F5執(zhí)行整個(gè)方案。如果它的執(zhí)行中出現(xiàn)任何錯(cuò)誤，一切都會(huì)被顯示于輸出窗口中。

　　· 如果存儲(chǔ)過程成功執(zhí)行，你應(yīng)該能夠看到所有的工資數(shù)增加了50。

　　五. SQL Server 2005數(shù)據(jù)庫中的.NET CLR用戶定義函數(shù)

　　現(xiàn)在，我們要在我們現(xiàn)有的方案上添加一個(gè)存儲(chǔ)函數(shù)。

　　· 使用"Solution explorer"，右擊"SampleAllInOne"工程并轉(zhuǎn)到"Add->User-defined Function"(以創(chuàng)建一個(gè)新的存儲(chǔ)函數(shù))(圖14)。

圖14

　　· 之后，出現(xiàn)"Add New Item"對(duì)話框。在對(duì)話框內(nèi)，選擇"User defined function"作為模板，輸入名字"getNetSalary"，最后點(diǎn)擊"Add"(圖15)。

圖15.

　　一旦創(chuàng)建"getNetSalary.vb"，接下來按下列方式修改你的代碼：

Imports System Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlTypes Imports Microsoft.SqlServer.Server PartialPublic Class UserDefinedFunctions <Microsoft.SqlServer.Server.SqlFunction (Dataaccess:=DataAccessKind.Read)> _ Public Shared Function getNetSalary(ByVal empno As SqlString) As SqlDouble 　'在此添加你的代碼 　Dim sal As Double 　Using cn As New SqlConnection("context connection=true") 　Dim cmd As New SqlCommand("select sal from 　sample.dbo.emp where empno='" & empno.ToString & "'"， cn) 　cmd.Connection.Open() 　sal = CType(cmd.ExecuteScalar， Double) 　cmd.Dispose() 　End Using 　Dim hra As Double = sal * 10 / 100 　Dim ta As Double = 200 　Dim gross As Double = sal + hra + ta 　Dim epf As Double = sal * 5 / 100 　Dim net As Double = gross - epf 　Return net End Function End Class

　　然后，使用下列步驟測(cè)試上面的存儲(chǔ)過程：

　　· 使用"Solution Explorer"在"test scripts"中打開"test.sql"(見前圖11)。

　　· 轉(zhuǎn)到并修改如下代碼：

--為運(yùn)行你的工程，請(qǐng)編輯你的工程的test.sql文件。 --這個(gè)文件位于Solution Explorer的"Test Scripts"文件夾下 --exec IncSalaries 50 select dbo.getNetSalary(empno) from sample.dbo.emp

　　按F5執(zhí)行該函數(shù)，你應(yīng)該能夠看到相應(yīng)結(jié)果。
　　六. 定義.NET CLR用戶定義聚合器

　　現(xiàn)在，我們開始在上一節(jié)基礎(chǔ)上在我們的現(xiàn)有方案上添加一個(gè)聚合函數(shù)。

　　· 使用"Solution explorer"，右擊"SampleAllInOne"工程并轉(zhuǎn)到"Add->Aggregate"(以創(chuàng)建一個(gè)新的聚合函數(shù))(圖16)。

圖16

　　· 之后，出現(xiàn)"Add New Item"對(duì)話框。在該對(duì)話框內(nèi)，選擇"Aggregate"作為模板，輸入名字"NetSal"并點(diǎn)擊"Add"(圖17)。

圖17

　　一旦創(chuàng)建"NetSal.vb"，接下來以下列方式修改你的代碼：

Imports System Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlTypes Imports Microsoft.SqlServer.Server <Serializable()> _ <Microsoft.SqlServer.Server.SqlUserDefinedAggregate(Format.Native)> _ PublicStructure NetSal Public SumNetSal As SqlDouble Public Sub Init() '在此加入你的代碼 SumNetSal = 0 End Sub Public Sub Accumulate(ByVal value As SqlDouble) 　'在此加入你的代碼 　Dim sal As Double = CType(value， Double) 　Dim hra As Double = sal * 10 / 100 　Dim ta As Double = 200 　Dim gross As Double = sal + hra + ta 　Dim epf As Double = sal * 5 / 100 　Dim net As Double = gross - epf 　SumNetSal += net End Sub Public Sub Merge(ByVal obj As NetSal) 　'在此加入你的代碼 　SumNetSal += obj.SumNetSal End Sub Public Function Terminate() As SqlDouble 　'在此加入你的代碼 　Return SumNetSal End Function EndStructure

　　為了測(cè)試上面的存儲(chǔ)過程，遵循下列步驟:

　　· 使用"Solution Explorer"，然后在"test scripts"中打開"test.sql"。

　　· 轉(zhuǎn)到最后一行并修改如下代碼：

--為運(yùn)行你的工程，請(qǐng)編輯你的工程的test.sql文件。 --這個(gè)文件位于Solution Explorer的"Test Scripts"文件夾下 --exec IncSalaries 50 --select dbo.getNetSalary(empno) from sample.dbo.emp select dbo.NetSal(sal) from sample.dbo.emp

　　按F5執(zhí)行該函數(shù)，你應(yīng)該能夠觀察到相應(yīng)的結(jié)果。