探讨SQL Server 2005.NET CLR编程(1)

Imports System
五、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
六、定义.NET CLR用户定义聚合器
现在，我们开始在上一节基础上在我们的现有方案上添加一个聚合函数。
◆使用"Solution explorer"，右击"SampleAllInOne"工程并转到"Add->Aggregate"(以创建一个新的聚合函数)(图16)。

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

图17 
一旦创建"NetSal.vb"，接下来以下列方式修改你的代码：



Imports System
 



一、创建SQL Server 2005数据库
这一节主要讨论创建一个将用于本文中的数据库和表格。详见下列步骤：
◆执行"Start->Programs->Microsoft SQL Server 2005->SQL Server Management Studio"，并使用必要的证书连接到你的SQL Server 2005实例。
◆一旦建立连接，使用"Object Explorer"打开SQL Server 2005实例，然后右击"databases"并选择"New Database"(图1)。

图1
然后，出现一个"New Database"对话框。输入数据库名"Sample"并点击"OK"以便在同一个实例内创建新的数据库。
◆一旦创建该数据库，你一定能够在"Object explorer"中看到相同的结果。
◆使用"Object explorer"打开"Sample"数据库，右击"tables"并选择"new table"(图2)。

图2
◆创建如下图3所示的表格结构，并用"emp"保存表格。

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

图4

图5

二、创建SQL Server 2005数据库.NET CLR存储过程
一旦你创建完数据库和表格，接下来让我们使用下列步骤在SQL Server 2005数据库中创建一个.NET CLR存储过程：
◆转到"Start -> Programs -> Microsoft Visual Studio 2005 -> Microsoft Visual Studio 2005"。
◆ 在"New Project"对话框内，从"Visual Basic"树的"Project Type"下选择"database"并选择"SQL Server Project"作为模板，输入名字"SampleAllInOne"。至此，该对话框应该看起来如下图6所示。

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

图7 
◆一旦测试成功，点击"OK"创建工程。
◆然后系统出现一个对话框，它询问你是否启动CLR调试功能。请点击"Yes"(图8)。

图8 
◆使用"Solution explorer"，右击"SampleAllInOne"工程，并点击"Add->Stored Procedure"(以创建一个新的存储过程)(图9)。

图9 
◆之后，出现"Add New Item"对话框。在该对话框内，选择"Stored Procedure"作为模板并输入名字"IncSalaries"，最后点击"Add"(图10)。

图10 

三、.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
 _
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
(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执行该函数，你应该能够看到相应结果。

六、定义.NET CLR用户定义聚合器
现在，我们开始在上一节基础上在我们的现有方案上添加一个聚合函数。
◆使用"Solution explorer"，右击"SampleAllInOne"工程并转到"Add->Aggregate"(以创建一个新的聚合函数)(图16)。

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

图17 
一旦创建"NetSal.vb"，接下来以下列方式修改你的代码：



Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports Microsoft.SqlServer.Server
 _
 _
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 

为了测试上面的存储过程，遵循下列步骤：
◆使用"Solution Explorer"，然后在"test scripts"中打开"test.sql"。
◆转到最后一行并修改如下代码：
--为运行你的工程，请编辑你的工程的test.sql文件。
--这个文件位于Solution Explorer的"Test Scripts"文件夹下
--exec IncSalaries 50
--select dbo.getNetSalary(empno) from sample.dbo.emp
select dbo.NetSal(sal) from sample.dbo.emp 
按F5执行该函数，你应该能够观察到相应的结果。
 
 
 
 


	
	

	
	

 上一篇返回首页 下一篇
			
	

声明：   此文观点不代表本站立场；转载务必保留本文链接；版权疑问请联系我们。
	
	

				

					
别人在看
					
									
				

			

	


		

			
正版 Windows 11产品密钥怎么查找/查看？
			
		
 

		

			
还有3个月，微软将停止 Windows 10 的更新
			
		
 

		

			
Windows 10 终止支持后，企业为何要立即升级？
			
		
 

		

			
Windows 10 将于 2025年10 月终止技术支持，建议迁移到 Windows 11
			
		
 

		

			
Windows 12 发布推迟，微软正全力筹备Windows 11 25H2更新
			
		
 

		

			
Linux 退出 mail的命令是什么
			
		
 

		

			
Linux 提醒 No space left on device，但我的空间看起来还有不少空余呢
			
		
 

		

			
hiberfil.sys文件可以删除吗？了解该文件并手把手教你删除C盘的hiberfil.sys文件
			
		
 

		

			
Window 10和 Windows 11哪个好？答案是：看你自己的需求
			
		
 

		

			
盗版软件成公司里的“隐形炸弹”？老板们的“法务噩梦” 有救了！
			
		
 	
			
		
		
	
			
		
	
		

	
			

	

		

			

				
				
				

					在上方输入关键词后，回车键 开始搜索。Esc键 取消该搜索窗口。