SQL语句参数化（1）插入数据

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 TextBox2 As System.Web.UI.WebControls.TextBox 
    Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox 
    Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox 
    Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox 
    Protected WithEvents TextBox6 As System.Web.UI.WebControls.TextBox 
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button 
 
    '注意: 以下占位符声明是 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("insert into chanpin(") 
        sql.Append("chanpin_name,chanpin_bianhao,chanpin_xiaotu,chanpin_putongjia,chanpin_kucun,chanpin_xiangxi") 
        sql.Append(")") 
        sql.Append(" values(") 
        sql.Append("@chanpin_name,@chanpin_bianhao,@chanpin_xiaotu,@chanpin_putongjia,@chanpin_kucun,@chanpin_xiangxi") 
        sql.Append(")") 
 
        Dim mypt As SqlClient.SqlParameter() = New SqlClient.SqlParameter() { _ 
        New SqlClient.SqlParameter("@chanpin_name", SqlDbType.VarChar, 50), _ 
        New SqlClient.SqlParameter("@chanpin_bianhao", SqlDbType.VarChar, 50), _ 
        New SqlClient.SqlParameter("@chanpin_xiaotu", SqlDbType.VarChar, 1000), _ 
        New SqlClient.SqlParameter("@chanpin_putongjia", SqlDbType.Decimal, 9), _ 
        New SqlClient.SqlParameter("@chanpin_kucun", SqlDbType.Int, 4), _ 
        New SqlClient.SqlParameter("@chanpin_xiangxi", SqlDbType.Text)} 
 
        mypt(0).Value = TextBox1.Text 
        mypt(1).Value = TextBox2.Text 
        mypt(2).Value = TextBox3.Text 
        mypt(3).Value = TextBox4.Text 
        mypt(4).Value = TextBox5.Text 
        mypt(5).Value = TextBox6.Text 
 
        mydata.myconn.Open() 
        mydata.executesql(sql.ToString, mypt) 
        ' mydata.executesql(sql.ToString, Nothing) '不需要用到参数时，传nothing 
 
        mydata.myconn.Close() 
 
    End Sub 
End Class   
 
  
 
Getdata.vb 
 
Public   Class Getdata Class Getdata 
 
    Public myconn As SqlClient.SqlConnection 
 
    Public Function executesql()Function executesql() Function executesql()Function executesql(ByVal sql As String, ByVal myPt As SqlClient.SqlParameter()) 
        Dim myCmd As SqlClient.SqlCommand 
        myCmd = New SqlClient.SqlCommand(sql, myconn)               ' 存储过程时sql应改为存储过程名 
        ' myCmd.CommandType = CommandType.StoredProcedure ' 存储过程时需要添加该语句       
        If IsNothing(myPt) Then 
            myCmd.ExecuteNonQuery() 
        Else 
            Dim mypt1 As SqlClient.SqlParameter 
            For Each mypt1 In myPt 
                myCmd.Parameters.Add(mypt1) 
            Next 
            myCmd.ExecuteNonQuery() 
            myCmd.Parameters.Clear() 
        End If  
End Function 
   End Class