探讨SQL Server 2005.NET CLR编程

三. .NET CLR存储过程编码

　　一旦创建"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

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

　　四. .NET CLR存储过程测试

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

　　· 使用"Solution Explorer"在"test scripts"中打开"test.sql"(图11)。

图11

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

--为运行你的工程，请编辑你的工程的Test.sql文件。 --这个文件位于Solution Explorer的"Test Scripts"文件夹下 exec IncSalaries 50

　　· 转到"Start->Programs->Microsoft SQL Server 2005->Configuration Tools->SQL Server Surface Area Configuration"。

　　· 在窗口内，点击"Surface Area Configuration for Features"(图12)。

图12.

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

图13.

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

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

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

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

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

图14

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

图15.

　　一旦创建"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

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

　　· 使用"Solution Explorer"在"test scripts"中打开"test.sql"(见前图11)。

　　· 转到并修改如下代码：

--为运行你的工程，请编辑你的工程的test.sql文件。 --这个文件位于Solution Explorer的"Test Scripts"文件夹下 --exec IncSalaries 50 select dbo.getNetSalary(empno) from sample.dbo.emp

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