
13/12/2009, 17:21
|
 | | | Fecha de Ingreso: noviembre-2008 Ubicación: Ica
Mensajes: 295
Antigüedad: 16 años, 3 meses Puntos: 0 | |
Is ambiguous in the namespace Saludo gentita, toy haciendo un project en 4 capas, detallo el codigo:
-- CAPA_DATOS --
Imports CAPA_ENTIDAD
Imports Microsoft.ApplicationBlocks.Data
Public Class DAO_USUARIOS
Dim CN As New CADENA_CONEXION
Public Function PA_VALIDAR_USUARIOS(ByVal OBJ_ENT_USUARIOS As ENT_USUARIOS) As Object
Return SqlHelper.ExecuteScalar(CN.MYCONEXION, "PA_VALIDAR_USUARIOS", OBJ_ENT_USUARIOS.USUARIO, OBJ_ENT_USUARIOS.CLAVE)
End Function
End Class
-- CAPA_ENTIDAD --
Public Class ENT_USUARIOS
Private _CODUSU As Integer
Private _USUARIO As String
Private _CLAVE As String
Public Property CODUSU() As Integer
Get
Return _CODUSU
End Get
Set(ByVal value As Integer)
_CODUSU = value
End Set
End Property
Public Property USUARIO() As String
Get
Return _USUARIO
End Get
Set(ByVal value As String)
_USUARIO = value
End Set
End Property
Public Property CLAVE() As String
Get
Return _CLAVE
End Get
Set(ByVal value As String)
_CLAVE = value
End Set
End Property
End Class
-- CAPA_NEGOCIO --
Imports CAPA_DATOS
Imports CAPA_ENTIDAD
Public Class NEG_USUARIOS
Dim OBJ_DAO_USUARIOS As New DAO_USUARIOS
Public Function PA_VALIDAR_USUARIOS(ByVal OBJ_ENT_USUARIOS As ENT_USUARIOS) As Object
Return OBJ_DAO_USUARIOS.PA_VALIDAR_USUARIOS(OBJ_ENT_USUAR IOS)
End Function
End Class
-- CAPA_PRESENTACION --
Imports CAPA_NEGOCIO
Imports CAPA_ENTIDAD
'Imports System.Data.SqlClient
Partial Class MasterPage
Inherits System.Web.UI.MasterPage
Dim OBJ_NEG_USUARIOS As New NEG_USUARIOS
Dim OBJ_ENT_USUARIOS As New ENT_USUARIOS
Protected Sub Ingresar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Ingresar.Click
OBJ_ENT_USUARIOS.USUARIO = Me.User.Text
OBJ_ENT_USUARIOS.CLAVE = Me.Pass.Text
Dim EXITO As Integer
EXITO = OBJ_NEG_USUARIOS.PA_VALIDAR_USUARIOS(OBJ_ENT_USUAR IOS)
If EXITO = 1 Then 'BIEN
Session("Usuario") = OBJ_ENT_USUARIOS.USUARIO
Response.Redirect("Nosotros2.aspx")
Else
Response.Redirect("Nosotros.aspx")
End If
End Sub
End Class
* Cuando ejecuto la ENT_USUARIOS. aparece como ambiguo. no encuentro el motivo por el que aparece como abiguo. si todo esta bien, bueno sigo intentando. .. se agradese cualquier tipo de apoyo. |