samplecfs.vb

来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 28 行

Option Explicit On
Option Strict On

Imports System
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlTypes
Imports Microsoft.SqlServer.Server

'Added
Imports System.Data.SqlClient

Partial Public Class UserDefinedFunctions
    <SqlFunction(DataAccess:=DataAccessKind.Read)> _
    Public Shared Function cfs_OrderCountByCustomerID(ByVal CustomerID As SqlString) As SqlInt32
        Using cnNwind As New SqlConnection("context connection=true")
            Dim strSQL As String = "SELECT COUNT(OrderID) " + _
             "FROM Orders WHERE CustomerID = '" + CustomerID.ToString + "'"
            Dim cmOrders As New SqlCommand(strSQL, cnNwind)
            cmOrders.CommandType = CommandType.Text
            cnNwind.Open()
            Dim intCount As SqlInt32 = CType(CInt(cmOrders.ExecuteScalar), SqlInt32)
            cnNwind.Close()
            Return intCount
        End Using
    End Function
End Class