Ver Mensaje Individual
  #1 (permalink)  
Antiguo 03/01/2009, 16:29
vicman029
 
Fecha de Ingreso: octubre-2008
Mensajes: 26
Antigüedad: 15 años, 6 meses
Puntos: 0
De acuerdo AYUDA 3 Capas vb.net

Buen dia señores aqui otro tema:

Tengo en vb.net 2005 una aplicación con una solución con 3 proyectos (3 capas).
consegui el ejemplo de un profesor mio hace como 2 años.

bueno al grano:

CAPA DE DATOS:
TENGO AQUI TODO LO REFERENTE A LA CONECCION CON LA BD

CAPA NEGOCIO
AQUI HAY LO SIGUIENTE:

Public Function fx_USUARIO(ByVal USUARIO As String, ByVal CLAVE As String) As DataTable
fx_USUARIO = New DataTable
fx_USUARIO = cls.TraerDataset("USP_USUA", USUARIO, CLAVE).Tables(0)
End Function


USUARIO Y CLAVE SON LOS PARAMETROS QUE MANDO DESDE UNOS TEXBOX PARA MI STORE USP_USUA

O ESTA FUNCION SIN PARAMETROS..

Public Function fx_traer_Cliente() As DataTable
fx_traer_Cliente = New DataTable
fx_traer_Cliente = cls.TraerDataset("Usp_DETALLE").Tables(0)
End Function
DONDE ME MUESTRA TODOS LOS CLIENTES EN UN DATAGRIDVIEW ASI COMO LA ANTERIOR FUNCION

Y EN LA CAPA PRESENTACION DONDE ESTAN LOS FORMS CON SUS RESPECTIVOS CONTROLES COMO EL DATAGRIDVIUW MENCIONADO, DONDE LLAMO A MIS FUNCIONES DE LA CAPA NEGOCIO DE LA SIGUIENTE MANERA:

Sub cargar_datos()
Me.Dgdatos.DataSource = obj.fx_traer_Cliente
Me.Dgdatos.Columns(0).Width = 50
Me.Dgdatos.Columns(0).HeaderText = "Código"
Me.Dgdatos.Columns(1).Width = 190
Me.Dgdatos.Columns(1).HeaderText = "Cliente"
Me.Dgdatos.Columns(2).Width = 80
Me.Dgdatos.Columns(2).HeaderText = "RUC"


End Sub

AQUI VIENE LA PREGUNTA, HASTA AHORA SOLO PUEDO TRAER LO DATOS A LOS DATAGRIDVIUW, PERO COMO HAGO PARA TRAER O ENLAZAR A UN COMBOBOX POR EJEMPLO DONDE ME MUESTRE LOS DISTRITOS U OTRAS COSAS O A UN TEXBOX CON UN SOLO DATO LOGICAMENTE O POR ULTIMO QUE SE ALMACENE EN UNA VARIABLE.

EN EL COMBOBOX HICE LO SIGUIENTE:
Me.ComboBox1.Items.Add(obj.fx_traer_lugar)

PERO NO ME TRAE NADA... ALGUIEN POR FAVOR ME PUEDE AYUDAR.. GRACIAS