samplecsp.vb

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

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 StoredProcedures
    <SqlProcedure()> _
    Public Shared Sub csp_OrdersByCustomerID(ByVal CustomerID As SqlString)
        Using cnNwind As New SqlConnection("context connection=true")
            Dim strSQL As String = "SELECT * FROM Orders WHERE CustomerID = '" + _
             CustomerID.ToString + "' ORDER BY OrderID DESC"
            Dim cmOrders As New SqlCommand(strSQL, cnNwind)
            cmOrders.CommandType = CommandType.Text
            cnNwind.Open()
            SqlContext.Pipe.ExecuteAndSend(cmOrders)
            cnNwind.Close()
        End Using
    End Sub
End Class