IT技术网www.itjs.cn

当前位置:首页 > 数据库 > SQl Server > 探讨SQL Server 2005.NET CLR编程(1)

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

发布时间:2015-11-30 00:00 来源:未知

一、创建SQL Server 2005数据库

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

◆执行"Start->Programs->Microsoft SQL Server 2005->SQL Server Management Studio",并使用必要的证书连接到你的SQL Server 2005实例。

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

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

◆转到"Start -> Programs -> Microsoft Visual Studio 2005 -> Microsoft Visual Studio 2005"。

三、.NET CLR存储过程编码

一旦创建"IncSalaries.vb",以下列方法修改你的代码,如下所示:

Imports System

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

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

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

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

图14

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

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

图15

一旦创建"getNetSalary.vb",接下来按下列方式修改你的代码:

Imports System

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

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

◆使用"Solution explorer",右击"SampleAllInOne"工程并转到"Add->Aggregate"(以创建一个新的聚合函数)(图16)。

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

图16

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

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

图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)。

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

图1

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

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

◆使用"Object explorer"打开"Sample"数据库,右击"tables"并选择"new table"(图2)。

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

图2

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

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

图3

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

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

图4

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

图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所示。

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

图6

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

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

图7

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

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

图8

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

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

图9

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

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

图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)。

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

图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)。

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

图12

◆启动CLR集成,如下所示(图13)。

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

图13

◆按F5执行整个方案。假如它的执行中出现任何错误,一切都会被显示于输出窗口中。
◆假如存储过程成功执行,你应该能够看到所有的工资数增加了50。

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

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

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

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

图14

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

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

图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)。

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

图16

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

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

图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执行该函数,你应该能够观察到相应的结果。