本文将解释如何在SQL Server 2005中以尽可能最简单的方法创建基于.NET的CLR子例程。本文主要针对在服务器端使用SQL Server 2005的.NET开发者。 中.国.站长站
一、创建SQL Server 2005数据库
这一节主要讨论创建一个将用于本文中的数据库和表格。详见下列步骤： Chinaz@com
· 执行"Start->Programs->Microsoft SQL Server 2005->SQL Server Management Studio"，并使用必要的证书连接到你的SQL Server 2005实例。 站长.站
· 一旦建立连接，使用"Object Explorer"打开SQL Server 2005实例，然后右击"databases"并选择"New Database"(图1)。 站.长.站
中.国站长站
图1
Www.Chinaz.com
然后，出现一个"New Database"对话框。输入数据库名"Sample"并点击"OK"以便在同一个实例内创建新的数据库。 站.长.站
· 一旦创建该数据库，你一定能够在"Object explorer"中看到相同的结果。
中国站.长站
· 使用"Object explorer"打开"Sample"数据库，右击"tables"并选择"new table"(图2)。 中.国.站.长.站
图2
· 创建如下图3所示的表格结构，并用"emp"保存表格。
站.长站
中.国.站长站
图3
· 一旦你创建了表格"emp"，打开它(图4)并使用下列数据进行填充(图5)。
图4 Chinaz@com
Www^Chinaz^com
图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所示。
Chinaz_com
中.国.站.长.站
图6 Chinaz@com
· 一旦你点击"OK"，将出现一个"New Database Reference"对话框。输入你自己的实例名，并选择数据库"Sample"(在上一节创建的)，并且测试连接(图7)。
Chinaz@com
Chinaz@com
图7 [中国站长站]
· 一旦测试成功，点击"OK"创建工程。 Www^Chinaz^com
· 然后系统出现一个对话框，它询问你是否启动CLR调试功能。请点击"Yes"(图8)。 站长.站
Www@Chinaz@com
图8
中国.站.长站
· 使用"Solution explorer"，右击"SampleAllInOne"工程，并点击"Add->Stored Procedure"(以创建一个新的存储过程)(图9)。 Www^Chinaz^com
图9
Www.Chinaz.com
· 之后，出现"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 <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 |