Public Function ExecuteNonQueryCommand(ByVal strSQL As String, ByVal params() As SqlParameter) As SqlCommand
        Dim oconn As SqlConnection = GetConnection()
        Dim command As New SqlCommand(strSQL, oconn)
         = CommandType.Text
        For i As Integer = 0 To params.Length - 1
            command.Parameters.Add(params(i))
        Next
        oconn.Open()
        Dim retval As Integer = command.ExecuteNonQuery()
        oconn.Close()
        oconn.Dispose()
        Return command
    End Function



我想调用这个类来执行以下SQL
Dim StrSql As String = "Delete  from SysUser where NTIDName='Yu_yuk' and ValidityDate='07/25/2017'"

可以指点一下吗？SqlParameter 我不懂得怎么写

谢谢版主，我再好好学习下，先搞透SQLCommand,再次感谢！

我研究出来了，跟大家分享！如果谁有兴趣的我可以把这个类完整分享给大家。

 Dim SqlCmd As SQLHelper = New SQLHelper

        Dim paras As SqlParameter() = {New SqlParameter("@IDNumer", TextBox1.Text),
                                          New SqlParameter("@NTIDName", TextBox2.Text)}

        Dim StrSql As String = "Delete from shortuser where NTIDName=@NTIDName and IDNumer=@IDNumer"
        SqlCmd.ExecuteNonQueryCommand(StrSql, paras)

收到的鲜花

• 不说也罢 于 2016-11-05 10:01 送鲜花  20朵   附言：我很赞同