Public Shared Function kwkj_user_serverInRole_addrole(ByVal username As String, ByVal rolename As String, ByVal serveronid As Integer, ByVal yearnum As Integer) As Integer
Using connection As New SqlConnection(ConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString)
Using command As New SqlCommand("kwkj_user_ServerInRole_addrole1", connection)
command.CommandType = CommandType.StoredProcedure
Dim p As SqlParameter = command.Parameters.Add("@Return_Value", SqlDbType.Int) '标准参数的写法
p.Direction = ParameterDirection.ReturnValue' 定义参数的传输类型是returnvalue
command.Parameters.Add(New SqlParameter("@username", username))
command.Parameters.Add(New SqlParameter("@rolename", rolename))
command.Parameters.Add(New SqlParameter("@serveronid", serveronid))
command.Parameters.Add(New SqlParameter("@yearnum", yearnum))
Dim list As Integer
Try
connection.Open()
command.ExecuteNonQuery()
list = CInt(p.Value) '取得存储过程的返回值
Catch ex As Exception
Finally
connection.Close()
End Try
Return list '返回值
End Using
End Using
End Function