图12
· 启动CLR集成，如下所示(图13)。 中.国.站长站
中.国站长站
图13 [中国站长站]
· 按F5执行整个方案。如果它的执行中出现任何错误，一切都会被显示于输出窗口中。
· 如果存储过程成功执行，你应该能够看到所有的工资数增加了50。 中国.站.长站
五、SQL Server 2005数据库中的.NET CLR用户定义函数 .com
现在，我们要在我们现有的方案上添加一个存储函数。 Www__com
· 使用"Solution explorer"，右击"SampleAllInOne"工程并转到"Add->User-defined Function"(以创建一个新的存储函数)(图14)。 站长.站
图14 @com
· 之后，出现"Add New Item"对话框。在对话框内，选择"User defined function"作为模板，输入名字"getNetSalary"，最后点击"Add"(图15)。 ~com
Www~~com
图15
一旦创建"getNetSalary.VB"，接下来按下列方式修改你的代码： 中.国.站.长.站
以下为引用的内容：Imports SystemImports System.DataImports System.Data.SqlClientImports System.Data.SqlTypesImports Microsoft.SqlServer.ServerPartialPublic 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 netEnd FunctionEnd Class 中国.站.长站
然后，使用下列步骤测试上面的存储过程：
· 使用"Solution Explorer"在"test scripts"中打开"test.sql"(见前图11)。 中.国.站.长.站
· 转到并修改如下代码：
--为运行你的工程，请编辑你的工程的test.sql文件。 Www@@com
--这个文件位于Solution Explorer的"Test Scripts"文件夹下 中国站.长.站
--exec IncSalaries 50
select dbo.getNetSalary(empno) from sample.dbo.emp
按F5执行该函数，你应该能够看到相应结果。 [中国站长站]
六、定义.NET CLR用户定义聚合器 中.国站长站
现在，我们开始在上一节基础上在我们的现有方案上添加一个聚合函数。 Www..com
· 使用"Solution explorer"，右击"SampleAllInOne"工程并转到"Add->Aggregate"(以创建一个新的聚合函数)(图16)。
中国.站长站
图16 站.长.站
· 之后，出现"Add New Item"对话框。在该对话框内，选择"Aggregate"作为模板，输入名字"NetSal"并点击"Add"(图17)。 [中国站长站]
中国站.长站
图17 中国站长.站
一旦创建"NetSal.VB"，接下来以下列方式修改你的代码：
以下为引用的内容：Imports SystemImports System.DataImports System.Data.SqlClientImports System.Data.SqlTypesImports Microsoft.SqlServer.Server<Serializable()> _<Microsoft.SqlServer.Server.SqlUserDefinedAggregate(Format.Native)> _PublicStructure NetSalPublic SumNetSal As SqlDoublePublic Sub Init()'在此加入你的代码SumNetSal = 0End SubPublic 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 = netEnd SubPublic Sub Merge(ByVal obj As NetSal) '在此加入你的代码 SumNetSal = obj.SumNetSalEnd SubPublic Function Terminate() As SqlDouble '在此加入你的代码 Return SumNetSalEnd FunctionEndStructure 中国.站.长站
为了测试上面的存储过程，遵循下列步骤：
· 使用"Solution Explorer"，然后在"test scripts"中打开"test.sql"。 Www~~com
· 转到最后一行并修改如下代码： Www..com
--为运行你的工程，请编辑你的工程的test.sql文件。 中国.站长站
--这个文件位于Solution Explorer的"Test Scripts"文件夹下 Www..com
--exec IncSalaries 50 中国站长.站
--select dbo.getNetSalary(empno) from sample.dbo.emp
select dbo.NetSal(sal) from sample.dbo.emp
按F5执行该函数，你应该能够观察到相应的结果。 Www^^com
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
