SqlCommandBuilder.DeriveParameters设置储存过程参数

 SqlCommandBuilder.DeriveParameters设置储存过程参数
之前我一直都用手写的方法,手动添加存储过程参数,实在的麻烦无与,这两天突然在书上看到这个方法,而且在网上查了,对性能也没有太大影响,所以就开始动手使用!网上多是使用C#的实例,但我又是vb.net的忠实fans,所以就准备把他改在vb.net,没想在这个过程还碰到了很多问题,经过无数次的调试终于搞定,写出来供大家享用,从此的我们的数据层就更加强壮了呀!
数据层: mydata.vb

Option Strict Off
Option Explicit On
Imports system.data
Imports system.data.sqlclient
Imports Microsoft.VisualBasic
Imports System.Xml
Imports System.IO

Public Class mydataClass mydata
Private connectionstring As String
    Dim cn As SqlConnection
    Public Sub New()Sub New()
        MyBase.New()
    End Sub
    Public Sub open()Sub open()
        connectionstring = System.Configuration.ConfigurationManager.AppSettings("connectionstring").ToString.Trim
        cn = New SqlConnection(connectionstring)
        If cn.State = ConnectionState.Open Then
            cn.Close()
        End If
        cn.Open()
    End Sub
    Public Sub closed()Sub closed()
        cn.Close()
    End Sub

    ''' <summary>
    ''' 根据存储过程与参数值返回sqlcommand对象
    ''' </summary>
    ''' <param name="spname">存储过程名</param>
    ''' <param name="spvalue">参数数组</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function sqlcom()Function sqlcom(ByVal spname As String, ByVal spvalue As Object()) As SqlCommand
        Dim com As SqlCommand = New SqlCommand(spname, cn)
        com.CommandType = CommandType.StoredProcedure
        Me.open()
        SqlCommandBuilder.DeriveParameters(com)    '将存储过程参数同给com对象,通过com.Parameters返回
        Me.closed()
        Dim spc As SqlParameter() = New SqlParameter(com.Parameters.Count - 1) {}  
                            '返回数组,记住减1因为后面会产生一个为nothing的参数
        com.Parameters.CopyTo(spc, 0)  '复制数组,从0开始
        com.Parameters.Clear()         '复制完以后一定要清空,不然不能添加新参数
        For j As Integer = 0 To spc.Length - 1
            spc(j).Value = spvalue(j).ToString   '赋值参数,记住会产生一个@return_value的多余参数为apc(0)
            com.Parameters.Add(spc(j))       
        Next
        com.Dispose()
        Return com
    End Function
    ''' <summary>
    ''' 根据存储过程返回表
    ''' </summary>
    ''' <param name="spname">存储过程</param>
    ''' <param name="spvalue">值数组</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function getTable()Function getTable(ByVal spname As String, ByVal spvalue As Object()) As DataTable
        Me.open()
        Dim com As SqlCommand = Me.sqlcom(spname, spvalue)
        Dim sdt As SqlDataAdapter = New SqlDataAdapter(com)
        Dim ds As DataSet = New DataSet
        sdt.Fill(ds)
        Dim dt As DataTable = ds.Tables(0)
        Me.closed()
        Return dt
    End Function
End Class

业务层:

 

Imports Microsoft.VisualBasic
Imports data
Imports System.Data

Namespace perNamespace per
    Public Class perClass per
        Inherits data
        Dim _spname As String
        Public Property searchid()Property searchid() As String
            Get
                Return ViewState("searchid")
            End Get
            Set(ByVal value As String)
                ViewState("searchid") = value
            End Set
        End Property
        Public Property spname()Property spname() As String
            Get
                Return _spname
            End Get
            Set(ByVal value As String)
                _spname = value
            End Set
        End Property
        Public Function get_table()Function get_table() As DataTable
            Dim spvalue As Object() = New Object() {0, searchid}     '此时赋值一定要写一个整数0,后面是我们的参数
            Dim dt As DataTable = MyBase.getTable(spname, spvalue)
            Return dt
        End Function

    End Class
End Namespace

表示层:

 

Imports System
Imports System.Data
Imports System.Web
Imports System.Web.UI.WebControls
Imports Ajax
Imports data
Imports System.IO
Imports per
Partial Class perindexClass perindex
    Inherits System.Web.UI.Page
    Dim searchid As String
    Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            bind_gridview()
        End If
    End Sub
    Public Sub bind_gridview()Sub bind_gridview()
        If searchid Is Nothing Or searchid = String.Empty Then
            searchid = 0
        End If
        Dim myper As per.per = New per.per
        myper.spname = "bind_per"
        myper.searchid = searchid
        Dim dt As DataTable = myper.get_table()
        pergridview.DataSource = dt.DefaultView
        pergridview.DataBind()
    End Sub
End Class

 这里面我主要是产生一个sqlcommand对象供大家调用,扩展大家可以自己随意了!水平有限,就写到这里!!