Clases relacionadas en VB.net !!!

[junior1920]

Hola Sr(es). aqui nuevamente publicando un nuevo tema para dar ideas acerca de las dudas que tengo. Gracias de antemano.
Bueno el tema es que tengo 2 tablas categorias y subcategorias:

Código SQL:

CREATE TABLE categoria(
idcat serial PRIMARY KEY,
nom_cat CHARACTER(50),
desc_cat text)
 
CREATE TABLE subcategoria(
idsubcat serial PRIMARY KEY,
nomsub_cat CHARACTER(60),
idcat INTEGER,
CONSTRAINT subcatego_idcat_fkey FOREIGN KEY (idcat)
      REFERENCES categoria (idcat) MATCH SIMPLE
      ON UPDATE NO ACTION ON DELETE NO ACTION
)
 

esos atributos de las dos tablas los tengo en diferentes clases
clase categoria

Código vb:

Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Namespace Entities
Public Class categoriaEntities
    Private idcat As Integer
    Private nom_cat As String
    Private desc_cat As String
    '--------------------------
    Public Property gidcat
        Get
            Return idcat
        End Get
        Set(ByVal value)
            idcat=value
        End Set
    End Property
    '--------------------------
    Public Property gnom_cat
        Get
            Return nom_cat
        End Get
        Set(ByVal value)
            nom_cat=value
        End Set
    End Property
    '--------------------------
    Public Property gdesc_cat
        Get
            return desc_cat
        End Get
        Set(ByVal value)
            desc_cat=value
        End Set
    End Property
    '--------------------------
End Class
End Namespace
 

y la tabla subcategoria en esta clase

Código vb:

Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Namespace Entities
Public Class subcategoriaEntities
    Private idsubcat As Integer
    Private idcat As Integer
    Private nomsub_cat As String
    '--------------------------
    Public Property gidsubcat
        Get
            Return idsubcat
        End Get
        Set(ByVal value)
            idsubcat=value
        End Set
    End Property
    '--------------------------
    Public Property gidcat
        Get
            Return idcat
        End Get
        Set(ByVal value)
            idcat=value
        End Set
    End Property
    '--------------------------
    Public Property gnomsub_cat
        Get
            return nomsub_cat
        End Get
        Set(ByVal value)
            nomsub_cat=value
        End Set
    End Property
    '--------------------------
End Class
End Namespace
 

Bien ahora mi problema es como hacer para que esas dos clases me retorne los valores que yo requiero, po ejemplo quiero hacer un listado de subcategorias con sus categorias e intente hacerlo pero no me da resultado lo enlaze haciendo que el idcat sea tipo entidad y tambien intente hacer esto public overridable.....
pero eso me enviaba un valor en blanco

Ahora lo que realmente quiero es usar esas dos calses para poder hacer un listado y mostra en un datagridview por que algunos dicen crea vistas y yo pienso y entonces por o para que se crean clases con los campos de tabla o acaso solo se hace eso para hacer insert,update o delete
esa es mi duda por el momento...

[Ka0stj]

Que tal junior1920

Muestra el código del "enlace" que comentas que haces para poder apoyarte mejor ya que en las clases que muestras simplemente tienes métodos get y set.

Saludos.

[junior1920]

Hola KaOstj:
Si aqui el codigo de la clase clsconexion

Código vb:

Imports System.Data
Imports System.Data.SqlClient
Imports Npgsql
Imports System.Configuration
Imports System.Linq
Imports System.Text
Public Class clsconexion
 Public cCon As String="Host=localhost;Port=5432;Database=bodega;User Id=postgres;Password=admin;"
' Public conexion as New NpgsqlConnection(cCon)
 Public Function Strconectado() as String
    Try
     cCon="Host=localhost;Port=5432;Database=bodega;User Id=postgres;Password=admin;"
     Catch  ex As Exception
       MsgBox(ex.Message)
     End Try
     return cCon
    End Function
'   Public Function desconectado()
'    Try
'       dim conexion= New NpgsqlConnection(cCon)
'       If conexion.State=ConnectionState.Open Then
'          conexion.Close()
'          Return True
'       Else
'          Return False
'       End If
'    Catch ex As Exception
'       MsgBox(ex.Message)
'       Return False
'    End Try
'   End Function
End Class
 

Aqui el code de la clase Gest_subcat

Código vb:

Imports System
imports Npgsql
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Data.SqlClient
Imports System.Configuration
Imports BodegaEntities.Entities
imports libreria_conexion
Imports System.Data
Public Class Gest_subcat
    Private Shared Function Convertirsubcat(ByVal reader As IDataReader) As subcategoriaEntities
        Dim subcategoria As New subcategoriaEntities()
        subcategoria.gidsubcat = Convert.ToInt32(reader("idsubcat"))
        subcategoria.gnomsub_cat = lTrim(RTrim(Convert.ToString(reader("nomsub_cat"))))
        subcategoria.gidcat=Convert.ToInt32(reader("idcat"))
        Return subcategoria
    End Function
        Public Shared Function list_subcat() As List(Of subcategoriaEntities )
         Dim lista As New List(Of subcategoriaEntities)()
         Try
         Dim subcategoria As subcategoriaEntities = Nothing
         Dim categoria As categoriaEntities=Nothing
         Dim Myconexion As New clsconexion
         Dim objconexion As New NpgsqlConnection(Myconexion.Strconectado)
         objconexion.Open()
         Dim Sql As New String("Select idsubcat,nomsub_cat,idcat FROM subcategoria order by nomsub_cat,idsubcat asc")
         Dim cmd As New NpgsqlCommand(Sql,objconexion)
         Dim reader as NpgsqlDataReader=cmd.ExecuteReader()
         'msgbox(objconexion.State)
         If(reader.HasRows=True) Then
            While reader.Read()
                lista.Add(Convertirsubcat(reader))
                'categoria=Convertircategoria(reader)
            End While
         objconexion.Close()
         Else
            MsgBox("Mensaje",vbCritical,"No existen registros")
         end if
         Catch ex As Exception
            MsgBox(ex.Message)
         Finally
            NpgsqlConnection.ClearAllPools()
        End Try
        Return lista
    End Function
End Class
 

y Aqui el del formulario donde listo las subcategorias:

Código vb:

imports System.Data
Imports libreria_datos
imports BodegaEntities.Entities
Public Partial Class listsubcat
    Public Sub New()
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        Me.InitializeComponent()
        
        '
        ' TODO : Add constructor code after InitializeComponents
        '
    End Sub
    Private Sub cargarsubcat()
        Try
        dgwlistsubcat.DataSource=Gest_subcat.list_subcat()
        Catch ex As Exception
        End Try
    End Sub
    
    Sub ListsubcatLoad(sender As Object, e As EventArgs)
        cargarsubcat()
    End Sub
End Class
 

Bueno a simple vista en el datagridview se muesta asi:
idsubcat | nomsub_cat | idcat |
1 Detergente 1

Ahora la verdad quiero mostrar esto:
idsubcat | nomsub_cat | nom_cat |
1 Detergente Abarrotes

Pero la clase subcategoriaEntitie solo tiene el atributo idcat; lo que quiero es saber si existe la posibilidad de enlazar el atributo nom_cat de categoriaEntities y poder mostrar solo el campo que voy a utilizar que en este caso sería q me retorne el atributo "gnom_cat" de la clase categoriaEntities
Por que si inserto otro atributo no puede ser por q estas clases representan a las tablas y deben de estar tal y como estan las tablas o me equivoco

Y estoy haciendo en sharpdevelop y postgres desarrollando en 3 capas

[Aquaventus]

Hola junior1920, eso lo puedes lograr haciendo un inner join en tu consulta con la otra tabla que creaste :

Código SQL:

SELECT s.idsubcat,s.nomsub_cat,c.nom_cat FROM subcategoria s INNER JOIN categoria c ON s.idcat=c.idcat ORDER BY s.nomsub_cat,c.nom_cat ASC
 

Saludos!.

[junior1920]

Aquaventus ya hice eso pero no podria hacer el inner join con el atributo seleccionado nom_cat
ya que ese atributo le pertenece a la clase categoriaEntities y en la clase subcategoriaEntities hay el atributo idcat que es de tipo integer y esta representado como la FK que pertenece a la tabla categoria

[wilmerkid]

Hola junior1920 haber siguiendo tu esquema y hasta donde he podido entenderte puedes hacer lo siguiente. Tenemos las tres capas Entidad, Acceso Datos Y Presentacion.

CAPA ENTIDAD
Clase: categoriaEntities

Public Class categoriaEntities
Private idcat As Integer
Private nom_cat As String
Private desc_cat As String
'--------------------------
Public Property gidcat()
Get
Return idcat
End Get
Set(ByVal value)
idcat = value
End Set
End Property
'--------------------------
Public Property gnom_cat()
Get
Return nom_cat
End Get
Set(ByVal value)
nom_cat = value
End Set
End Property
'--------------------------
Public Property gdesc_cat()
Get
Return desc_cat
End Get
Set(ByVal value)
desc_cat = value
End Set
End Property
'--------------------------
End Class

Clase: subcategoriaEntities

Public Class subcategoriaEntities
Private idsubcat As Integer
Private idcat As Integer
Private nomsub_cat As String
'--------------------------
Public Property gidsubcat()
Get
Return idsubcat
End Get
Set(ByVal value)
idsubcat = value
End Set
End Property
'--------------------------
Public Property gidcat()
Get
Return idcat
End Get
Set(ByVal value)
idcat = value
End Set
End Property
'--------------------------
Public Property gnomsub_cat()
Get
Return nomsub_cat
End Get
Set(ByVal value)
nomsub_cat = value
End Set
End Property

'*********** AGREGAMOS UNA ASOCIACION A LA CLASE categoriaEntities *************
Private _categoriaEntities As categoriaEntities
Public Property categoriaEntities() As categoriaEntities
Get
Return _categoriaEntities
End Get
Set(ByVal value As categoriaEntities)
_categoriaEntities = value
End Set
End Property
'--------------------------

End Class

CAPA ACCESO DATOS

Clase: CategoriaAD

Imports System.Data.SqlClient
Public Class CategoriaAD
Private miConexion As String = "Data Source=.; Initial Catalog =PruebasLocales; Integrated Security=true;"
Public Function BuscarPorID(ByVal idcat As Integer) As categoriaEntities
Try
Using cn As SqlConnection = New SqlConnection(miConexion)
Dim cmd As SqlCommand = New SqlCommand("SELECT idcat, nom_cat, desc_cat FROM categoriaEntities WHERE idcat = @idcat;", cn)
cmd.Parameters.Add("@idcat", SqlDbType.Int).Value = idcat
cn.Open()

Dim dr As SqlDataReader = cmd.ExecuteReader()
Dim iCategoriaEntities As categoriaEntities = New categoriaEntities()

If dr.Read() Then
iCategoriaEntities.gidcat = dr("idcat")
iCategoriaEntities.gnom_cat = dr("nom_cat")
iCategoriaEntities.gdesc_cat = dr("desc_cat")
End If
Return iCategoriaEntities
End Using
Catch ex As Exception
Throw New Exception("Error: CategoriaEntities-->BuscarPorID() " + ex.Message, ex)
End Try
End Function
End Class

Clase: SubCategoriaAD

Imports System.Data.SqlClient

Public Class SubCategoriaAD
Private miConexion As String = "Data Source=.; Initial Catalog =PruebasLocales; Integrated Security=true;"
Public Function Listar(ByVal nombre As String) As List(Of subcategoriaEntities)
Try
Dim subcategoriaEntitiesLT As New List(Of subcategoriaEntities)

Using cn As SqlConnection = New SqlConnection(miConexion)
Dim cmd As SqlCommand = New SqlCommand("SELECT * FROM subcategoriaEntities WHERE nomsub_cat LIKE @nomsub_cat;", cn)
cmd.Parameters.Add("@nomsub_cat", SqlDbType.VarChar, 50).Value = "%" + nombre + "%"
cmd.CommandType = CommandType.Text

cn.Open()
Dim iCategoriaEntitiesAD As CategoriaAD = New CategoriaAD()

Dim dr As SqlDataReader = cmd.ExecuteReader()
While dr.Read()
Dim iSubcategoriaEntities As subcategoriaEntities = New subcategoriaEntities
iSubcategoriaEntities.gidsubcat = dr("idsubcat")
iSubcategoriaEntities.gnomsub_cat = dr("nomsub_cat").ToString()
iSubcategoriaEntities.gidcat = dr("idcat")
iSubcategoriaEntities.categoriaEntities = iCategoriaEntitiesAD.BuscarPorID(iSubcategoriaEnti ties.gidcat)
subcategoriaEntitiesLT.Add(iSubcategoriaEntities)
End While
End Using

Return subcategoriaEntitiesLT

Catch ex As Exception
Throw New Exception("Error: SubcategoriaEntities-->Listar() " + ex.Message, ex)
End Try
End Function
End Class

CAPA LOGICA NEGOCIO

Clase: CategoriaLN

Public Class CategoriaLN
Private iCategoriaEntitiesAD As CategoriaAD
Sub New()
iCategoriaEntitiesAD = New CategoriaAD()
End Sub
Public Function BuscarPorID(ByVal idcat As Integer) As categoriaEntities
Return iCategoriaEntitiesAD.BuscarPorID(idcat)
End Function

End Class

Clase: SubCategoriaLN

Public Class SubCategoriaLN

Private iSubcategoriaEntitiesAD As SubCategoriaAD
Sub New()
iSubcategoriaEntitiesAD = New SubCategoriaAD()
End Sub
Public Function Listar(ByVal nombre As String) As List(Of subcategoriaEntities)
Return iSubcategoriaEntitiesAD.Listar(nombre)
End Function

End Class

CAPA PRESENTACION

Private Sub btnListar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListar.Click
Try
Dim iSubcategoriaEntitiesLN As SubCategoriaLN = New SubCategoriaLN
Dim SubcategoriaEntitiesLT As List(Of subcategoriaEntities) = iSubcategoriaEntitiesLN.Listar(TextBox1.Text.Trim( ))
Dim Query = (From a In SubcategoriaEntitiesLT Select New With {.Codigo = a.gidsubcat, .SubCategoria = a.gnomsub_cat, .CategoriaID = a.gidcat, .Categoria = a.categoriaEntities.gnom_cat}).ToList()
DataGridView1.DataSource = Query

Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub

[junior1920]

Alguien tiene otra idea de como se podría hacer ....!!!