图1. |
图2. |
图3. |
图4. 图5. |
图6. |
图7 |
图8 |
图9 |
图10 |
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 |
图11 |
--为运行你的工程,请编辑你的工程的Test.sql文件。 --这个文件位于Solution Explorer的"Test Scripts"文件夹下 exec IncSalaries 50 |
图12. |
图13. |
图14 |
图15. |
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执行该函数,你应该能够看到相应结果。
六. 定义.NET CLR用户定义聚合器
现在,我们开始在上一节基础上在我们的现有方案上添加一个聚合函数。
· 使用"Solution explorer",右击"SampleAllInOne"工程并转到"Add->Aggregate"(以创建一个新的聚合函数)(图16)。
图16 |
图17 |
Imports System Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlTypes Imports Microsoft.SqlServer.Server <Serializable()> _ <Microsoft.SqlServer.Server.SqlUserDefinedAggregate(Format.Native)> _ 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 |
--为运行你的工程,请编辑你的工程的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 |
Word教程网 | Excel教程网 | Dreamweaver教程网 | Fireworks教程网 | PPT教程网 | FLASH教程网 | PS教程网 |
HTML教程网 | DIV CSS教程网 | FLASH AS教程网 | ACCESS教程网 | SQL SERVER教程网 | C语言教程网 | JAVASCRIPT教程网 |
ASP教程网 | ASP.NET教程网 | CorelDraw教程网 |