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

最新推荐文章于 2021-10-22 08:56:54 发布

zss1100

最新推荐文章于 2021-10-22 08:56:54 发布

阅读量1.8k

点赞数

分类专栏：代码文章标签： sql textbox webform button class function

本文链接：https://blog.csdn.net/zss1100/article/details/1509315

版权

代码专栏收录该内容

8 篇文章 0 订阅

订阅专栏

WebForm1.aspx

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 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(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("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

Public myconn As SqlClient.SqlConnection

    Public 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