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

WebForm1.aspx.vb 
 
Imports  ...System.Text 
 
Public   Class WebForm1 Class WebForm1 
    Inherits System.Web.UI.Page 
 
" Web 窗体设计器生成的代码 "Web 窗体设计器生成的代码#Region " Web 窗体设计器生成的代码 " 
 
    '该调用是 Web 窗体设计器所必需的。 
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent() Sub InitializeComponent()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()Sub Page_Init() Sub Page_Init()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()Sub Page_Load() Sub Page_Load()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()Sub Button1_Click() Sub Button1_Click()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 Class Getdata 
 
    Public myconn As SqlClient.SqlConnection 
 
   Public Function getdataview()Function getdataview() Function getdataview()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