探讨SQL Server 2005.NET CLR编程

2007-07-30 00:08:04 作者：探索者来源：浏览次数：0 网友评论 0 条

本文将解释如何在SQL Server 2005中以尽可能最简单的方法创建基于.NET的CLR子例程。本文主要针对在服务器端使用SQL Server 2005的.NET开发者。

一、创建SQL Server 2005数据库

这一节主要讨论创建一个将用于本文中的数据库和表格。详见下列步骤：

· 执行" tart-> rograms->Microsoft SQL Server 2005-> QL Server Management Studio"，并使用必要的证书连接到你的SQL Server 2005实例。

· 一旦建立连接，使用"Object Explorer"打开SQL Server 2005实例，然后右击"database quot;并选择" ew Database"(图1)。

图1

然后，出现一个" ew Database"对话框。输入数据库名" ample"并点击"OK"以便在同一个实例内创建新的数据库。

· 一旦创建该数据库，你一定能够在"Object explorer"中看到相同的结果。

· 使用"Object explorer"打开" ample"数据库，右击"table quot;并选择" ew table"(图2)。

图2

· 创建如下图3所示的表格结构，并用"em quot;保存表格。

图3

· 一旦你创建了表格"em quot;，打开它(图4)并使用下列数据进行填充(图5)。

图4

图5

二、创建SQL Server 2005数据库.NET CLR存储过程

一旦你创建完数据库和表格，接下来让我们使用下列步骤在SQL Server 2005数据库中创建一个.NET CLR存储过程：

· 转到" tart -> Programs -> Microsoft Visual Studio 2005 -> Microsoft Visual Studio 2005"。

· 在" ew Project"对话框内，从"Visual Basic"树的" roject Type"下选择"database"并选择" QL Server Project"作为模板，输入名字" ampleAllInOne"。至此，该对话框应该看起来如下图6所示。

图6

· 一旦你点击"OK"，将出现一个" ew Database Reference"对话框。输入你自己的实例名，并选择数据库" ample"(在上一节创建的)，并且测试连接(图7)。

图7

· 一旦测试成功，点击"OK"创建工程。

· 然后系统出现一个对话框，它询问你是否启动CLR调试功能。请点击"Ye quot;(图8)。

图8

· 使用" olution explorer"，右击" ampleAllInOne"工程，并点击"Add-> tored Procedure"(以创建一个新的存储过程)(图9)。

图9

· 之后，出现"Add New Item"对话框。在该对话框内，选择" tored Procedure"作为模板并输入名字"IncSalarie quot;，最后点击"Add"(图10)。

图10

三、.NET CLR存储过程编码

一旦创建"IncSalaries.V quot;，以下列方法修改你的代码，如下所示：

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

上面是一个使用Visual Basic.NET 2005编写简单的基于CLR的存储过程，你可以把它发布到SQL Server 2005中。该存储过程名为"IncSalarie quot;，它只接收一个参数-"IncVal"。上面的存储过程简单地使用参数中提供的值来提高表格"em quot;中每一位雇员的工资值。

四、.NET CLR存储过程测试

为了测试上面的存储过程，请遵循下列步骤：

· 使用" olution Explorer"在"test script quot;中打开"test.sql"(图11)。

图11

· 转到最后一行，并如下修改代码：

--为运行你的工程，请编辑你的工程的Test.sql文件。

--这个文件位于Solution Explorer的"Test Script quot;文件夹下

exec IncSalaries 50

· 转到" tart-> rograms->Microsoft SQL Server 2005->Configuration Tools-> QL Server Surface Area Configuratio quot;。

· 在窗口内，点击" urface Area Configuration for Feature quot;(图12)。

图12

· 启动CLR集成，如下所示(图13)。

图13

· 按F5执行整个方案。如果它的执行中出现任何错误，一切都会被显示于输出窗口中。

· 如果存储过程成功执行，你应该能够看到所有的工资数增加了50。

五、SQL Server 2005数据库中的.NET CLR用户定义函数

现在，我们要在我们现有的方案上添加一个存储函数。

· 使用" olution explorer"，右击" ampleAllInOne"工程并转到"Add->User-defined Functio quot;(以创建一个新的存储函数)(图14)。

图14

· 之后，出现"Add New Item"对话框。在对话框内，选择"User defined functio quot;作为模板，输入名字"getNetSalary"，最后点击"Add"(图15)。

图15

一旦创建"getNetSalary.V quot;，接下来按下列方式修改你的代码：

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports Microsoft.SqlServer.Server
PartialPublic Cla UserDefinedFunctio
<Microsoft.SqlServer.Server.SqlFunction
(DataAcce :=DataACCE Kind.Read)> _
Public Shared Function getNetSalary(ByVal em o As SqlString)
As SqlDouble
　'在此添加你的代码
　Dim sal As Double
　Using cn As New SqlCo ection("context co ection=true")
　Dim cmd As New SqlCommand(" elect sal from
　sample.dbo.emp where em o='" &am em o.ToString &am "'"， cn)
　cmd.Co ection.Open()
　sal = CType(cmd.ExecuteScalar， Double)
　cmd.Di ose()
　End Using
　Dim hra As Double = sal * 10 / 100
　Dim ta As Double = 200
　Dim gro As Double = sal + hra + ta
　Dim epf As Double = sal * 5 / 100
　Dim net As Double = gro - epf
　Return net
End Function
End Cla

然后，使用下列步骤测试上面的存储过程：

· 使用" olution Explorer"在"test script quot;中打开"test.sql"(见前图11)。

· 转到并修改如下代码：

--为运行你的工程，请编辑你的工程的test.sql文件。

--这个文件位于Solution Explorer的"Test Script quot;文件夹下

--exec IncSalaries 50

select dbo.getNetSalary(em o) from sample.dbo.emp

按F5执行该函数，你应该能够看到相应结果。

六、定义.NET CLR用户定义聚合器

现在，我们开始在上一节基础上在我们的现有方案上添加一个聚合函数。

· 使用" olution explorer"，右击" ampleAllInOne"工程并转到"Add->Aggregate"(以创建一个新的聚合函数)(图16)。

图16

· 之后，出现"Add New Item"对话框。在该对话框内，选择"Aggregate"作为模板，输入名字" etSal"并点击"Add"(图17)。

图17

一旦创建" etSal.V quot;，接下来以下列方式修改你的代码：

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports Microsoft.SqlServer.Server
< erializable()> _
<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 gro As Double = sal + hra + ta
　Dim epf As Double = sal * 5 / 100
　Dim net As Double = gro - 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