SqlParameter 基本用法

 本文出处http://developer.51cto.com/art/201105/263535.htm ，少有部分改动

因为通过SQL语句的方式，有时候存在脚本注入的危险，所以在大多数情况下不建议用拼接SQL语句字符串方式，希望通过SqlParameter实现来实现对数据的操作，针对SqlParameter的方式我们同样可以将其封装成一个可以复用的数据访问类，只是比SQL语句的方式多了一个SqlParameter的参数。

 

般来说，在更新DataTable或是DataSet时，如果不采用SqlParameter，那么当输入的Sql语句出现歧义时，如字符串

中含有单引号，程序就会发生错误，并且他人可以轻易地通过拼接Sql语句来进行注入攻击。

1. string sql = "update Table1 set name = 'Pudding' where ID = '1'";//未采用SqlParameter   
2. SqlConnection conn = new SqlConnection();   
3. conn.ConnectionString = "Data Source=.\\SQLExpress;Integrated Security=true;AttachDbFilename=|DataDirectory|\\Database.mdf;User Instance=true";//连接字符串与数据库有关   
4. SqlCommand cmd = new SqlCommand(sql, conn);   
5. try   
6. {   
7. conn.Open();   
8. return(cmd.ExecuteNonQuery());   
9. }   
10. catch (Exception)   
11. {   
12. return -1;   
13. throw;   
14. }   
15. finally   
16. {   
17. conn.Close(); 

 

上述代码未采用SqlParameter，除了存在安全性问题，该方法还无法解决二进制流的更新，如图片文件。通过使用

SqlParameter可以解决上述问题，常见的使用方法有两种，Add方法和AddRange方法。

一、Add方法

sp as SqlParameter  = new SqlParameter("@name", "Pudding");
cmd.Parameters.Add(sp);
sp = new SqlParameter("@ID", "1");
cmd.Parameters.Add(sp);

 

该方法每次只能添加一个SqlParameter。上述代码的功能是将ID值等于1的字段name更新为Pudding(人名)。

二、AddRange方法

 

dim  paras as new  SqlParameter() paras = new SqlParameter{    new SqlParameter("@name", "Pudding"),   

                       new SqlParameter("@ID", "1") };  

 cmd.Parameters.AddRange(paras);  

 

显然，Add方法在添加多个SqlParameter时不方便，此时，可以采用AddRange方法。　

 

下面是通过SqlParameter向D层的用户表中添加用户。

Imports System.Collections
Imports Entity
Imports [Interface]
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports SqlHelper
'/************************************************* 
'类名： SqlUserDAL
'作者： 韩艳坤
'说明：User数据表操作类
'创建日期：2013年3月5日
'**********************************************/
''' 

''' 用户表的操作类
''' 
''' 
Public Class SqlUserDAL
    Implements [Interface].IUser ' 实现IUser接口
    ''' 

    ''' 操作数据表User，增加用户方法
    ''' 
    ''' 参数名称实体类
    ''' 返回boolean类型
    ''' 
    Public Function AddUser(enUser As User.UserEntity) As Boolean Implements IUser.AddUser
        Dim btn As Boolean = False                 ' 是否已陈宫标志
        Dim sqlHelper As New SqlHelper.sqlHelper   '助手类
        Dim strSQL As String 'SQL字符串
        Dim addUserFlag As Integer '受影响的函数

        '参数集合
        Dim sqlParameter As SqlParameter()
        Try

        
        sqlParameter = New SqlParameter() {
                                            New SqlParameter("@userID", enUser.UserID),
                                            New SqlParameter("@userName", enUser.UserName),
                                            New SqlParameter("@userPwd", enUser.UserPwd),
                                            New SqlParameter("@userRank", enUser.UserRank),
                                            New SqlParameter("@statue", enUser.Statue)
            }
        'Sql语句
        strSQL = "insert into T_User(userID,userName,userPwd,userRank,status)" & "value (@userID,@userName,@userRank,@statue)"
        '执行带参数的过程
            addUserFlag = sqlHelper.ExecuteNoQuery(strSQL, CommandType.Text, sqlParameter)
            '标志是否成功
            If addUserFlag > 0 Then
                btn = True '标志成功
            End If

        Catch ex As Exception

            Throw New Exception(MsgBox("用户添加数据没有成功", MsgBoxStyle.Information))
        End Try
        '返回值btn是否成功
        Return btn
    End Function

 

SqlHelper类的部分代码如下

 

    ''' 

    ''' 执行增删改三个操作，(有参)返回值为boolean类型，确认是否成功
    ''' 
    ''' 需要执行的语句，一般是Sql语句，也有存储过程
    ''' 命令类型（存储过程， T-SQL语句， 等等）
    ''' 参数数组，无法确认有多少个参数
    ''' 返回布尔类型，成功为true，否则为false
    ''' 
    Public Function ExecuteNoQuery(ByVal strSql As String, ByVal cmdType As CommandType, ByVal sqlParams As SqlParameter()) As Boolean
        comd.Parameters.AddRange(sqlParams) '传入参数
        comd.CommandType = cmdType '传入语句类型
        comd.Connection = conn '设置连接
        comd.CommandText = strSql '设置查询语句

        Try
            conn.Open() '打开连接
            Return comd.ExecuteNonQuery() '执行增删改语句
            comd.Parameters.Clear() '清楚原有参数

        Catch ex As Exception
            Return False '如果出错，返回false 提示
        Finally
            '判断数据库连接对象是否为断开状态，如果为连接则断开
            '判断数据库操作命令是否存在，若存在则销毁
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
            If Not IsNothing(comd) Then
                comd.Dispose() '销毁comd命令
                comd = Nothing
            End If
        End Try

    End Function