SQL语句参数化（2）DATAGRID数据源绑定

 在 SQL语句参数化（1）插入数据  中，介绍了一般的参数化方法，同理可以应用一些到修改，查询，删除等操作中
下面介绍在DATAGRID等的绑定数据源时的参数化

WebForm1.aspx.vb

Imports System.Text

Public Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region
    Dim myconn As New Conn
    Dim mydata As New Getdata
    Dim sql As StringBuilder = New StringBuilder

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mydata.myconn = New SqlClient.SqlConnection
        mydata.myconn.ConnectionString = myconn.stringconnection
        If Not Page.IsPostBack Then
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
            sql.Append("select chanpin_id,chanpin_name,chanpin_xiaotu,chanpin_putongjia")
            sql.Append(" from chanpin where ")
            sql.Append(" chanpin_name=@chanpin_name")

            '  sql.Append("select chanpin_id,chanpin_name,chanpin_xiaotu,chanpin_putongjia")
            '  sql.Append(" from chanpin where ")
            '  sql.Append(" chanpin_name like '%'+ @chanpin_name +'%'")   ' 用LIKE时，一定要用+号不能用&，+号之前为’（单引号）而不是“
            Dim mypt As SqlClient.SqlParameter() = New SqlClient.SqlParameter() { _
            New SqlClient.SqlParameter("@chanpin_name", SqlDbType.VarChar, 50)}

            mypt(0).Value = TextBox1.Text

            DataGrid1.DataSource = mydata.getdataview(sql.ToString, "chanpin", mypt)   
            DataGrid1.DataBind()

    End Sub
End Class

Getdata.vb

Public Class Getdata

    Public myconn As SqlClient.SqlConnection

   Public Function getdataview(ByVal sql As String, ByVal strTable As String, ByVal myPt As SqlClient.SqlParameter()) As DataView
        Dim myDataAdapter As SqlClient.SqlDataAdapter
        Dim myDataSet As DataSet
        myDataAdapter = New SqlClient.SqlDataAdapter(sql, myconn)
        If Not IsNothing(myPt) Then
            Dim mypt1 As SqlClient.SqlParameter
            For Each mypt1 In myPt
                myDataAdapter.SelectCommand.Parameters.Add(mypt1)
            Next
        End If
        myDataSet = New DataSet
        myDataAdapter.Fill(myDataSet, strTable)
        Dim myTable As DataTable = myDataSet.Tables(strTable)
        getdataview = New DataView(myTable)
    End Function
End Class