SqlParameter 基本用法
本文出处http://developer.51cto.com/art/201105/263535.htm ，少有部分改动
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.CollectionsImports EntityImports [Interface]Imports System.ConfigurationImports System.DataImports System.Data.SqlClientImports SqlHelper'/************************************************* '类名： SqlUserDAL'作者： 韩艳坤'说明：User数据表操作类'创建日期：2013年3月5日'**********************************************/''' <summary>''' 用户表的操作类''' </summary>''' <remarks></remarks>Public Class SqlUserDAL Implements [Interface].IUser ' 实现IUser接口 ''' <summary> ''' 操作数据表User，增加用户方法 ''' </summary> ''' <param name="enUser">参数名称实体类</param> ''' <returns>返回boolean类型</returns> ''' <remarks></remarks> 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类的部分代码如下
''' <summary> ''' 执行增删改三个操作，(有参)返回值为boolean类型，确认是否成功 ''' </summary> ''' <param name="strSql">需要执行的语句，一般是Sql语句，也有存储过程</param> ''' <param name="cmdType">命令类型（存储过程， T-SQL语句， 等等）</param> ''' <param name="sqlParams">参数数组，无法确认有多少个参数</param> ''' <returns>返回布尔类型，成功为true，否则为false</returns> ''' <remarks></remarks> 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