 
			
				13/12/2009, 17:21
			
			
			     |  
        |     |    |    Fecha de Ingreso: noviembre-2008  Ubicación: Ica  
						Mensajes: 295
					  Antigüedad: 17 años 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.           |