Ver Mensaje Individual
  #1 (permalink)  
Antiguo 13/12/2009, 17:21
Avatar de frankjoel86
frankjoel86
 
Fecha de Ingreso: noviembre-2008
Ubicación: Ica
Mensajes: 295
Antigüedad: 15 años, 6 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.