Codigo default.aspx
[code="VBnet"]
Imports System.Data
Imports Clase_Negocio
Imports LibEntidad
Partial Class Control_Security_Assistance_Default
Inherits System.Web.UI.Page
Dim objBL As New ClsAplicacion1_BL
Dim objEN As New ClsEntidad
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'capturo el nombre de usuario
objEN.User = (Membership.GetUser(My.User.Name)).ToString
If Not Page.IsPostBack Then
'me bota 1 como unico varlos
'DropDownList1.Items.Add("seleccione")
DropDownList1.DataSource = objBL.ListarAñoBL(objEN)
DropDownList1.DataBind()
End If
[/code]
Codigo ClsAplicacion1_B
Código:
Codigo ClsAplicacion1_DALPublic Function ListarAñoBL(ByVal objEn As ClsEntidad) As String Return objDAL.ListarAñoDAl(objEn) End Function
Código:
Codigo ClsEntidadPublic Function ListarAñoDAl(ByVal objEn As ClsEntidad) As String Return SqlHelper.ExecuteNonQuery(cn, "usp_ListarAño", objEn.User) End Function
Código:
Procedimiento AlmacenadoPrivate _userkey As String Public Property User() As String Get Return _userkey End Get Set(ByVal value As String) _userkey = value End Set End Property
Código:
Create proc usp_Listaraño @user varchar(50) as select distinct s.año from seccion s, aspnet_Users u where u.userid = s.userid and s.username=@user go