mostrar datos según selección

[Aquaventus]

jajaja hombre!! no se resienta que error bota? sino como te ayudamos aca en el foro
PDT: Los churros llegaran a Lima-Perú? :P jajaja

[guillebomtrasmiti]

vale .. el problemilla aquaventus te lo pregunto a ti, por que ya eres más que parte del proyecto...es que cuando pulso una familia, en el punto de adaptadro.fill(dataset, "Productos") me dice que la columna refrescos no es válida, la columan refrescos es la de la de FamiliasProducto, tu que tienes todo el proyecto lo podrás entender, no se el motivo por que me dice esto?¿?, he cambiado la consulta que tu me has enviado, pero aún así sigue igual ayudaaaa

[Aquaventus]

ahora ando viendo tu proyect, si logro solucionar te lo envio, xq tuve que correjir varias cosas para que ande en mi pc. Nos vemos y provecho en el balneario!. Saludos!

[Aquaventus]

Hombre solucionado tu problema! mira has estos cambios!

en "cargar_formulario_Productos" esto

Código vb:

cmd.Connection = conexion
        cmd.CommandText = "select Producto from Productos where plu = " & fam & " ORDER BY Orden ASC"
 
        adapta.SelectCommand = cmd
        adapta.Fill(undataset, "Productos")
 

y en "cargar_formulario_familias" esto :

Código vb:

Dim nuevobotonProd As New Button
            nuevobotonProd.BackColor = Color.Khaki
            'Agrego esta propiedad para darle el nombre al boton
            nuevobotonProd.Name = undataset.Tables("FamiliasProducto").Rows(i).Item(0).ToString()
            nuevobotonProd.Location = New Point(x, y)
            nuevobotonProd.Size = New Size(altoBoton, anchoBoton)
            nuevobotonProd.Text = undataset.Tables("FamiliasProducto").Rows(i).Item(1).ToString()
 
            Me.Controls.Add(nuevobotonProd)
 

[Aquaventus]

Si lo ves ese code anterior que te pase, ahora tengo que controlar otro error xq los botones de productos se acumulan :S, seguire corrijiendo los problemas..

[Aquaventus]

Solucionado guille! cualquier otra duda me lo comentas aqui te pongo el codigo entero pero cambiale la cadena de conexion xq esta con la de mi maquina . Nos Vemos guille. Saludos!.

Create esta variable global

Código vb:

'CREO ESTA VARIABLE PARA CONTROLAR SI SE REALIZO CLIC
'EN CUALQUIER BOTON DE UNA DE LAS FAMILIAS
Private accion As Integer = 0
 

cargar_formulario_Productos:

Código vb:

Public Sub cargar_formulario_Productos(ByVal fam As String)
conexion.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Serv\Escritorio\TpvVigoSe\TpvVigo\Tpv.mdf;" & _
"Integrated Security=True;" & _
"Connect Timeout=30;" & _
"User Instance=True"
 
'Dim nuevobotonProd As New Button
'Creo las variables que definen el area de botones por fila
Dim bxf, contador As Integer
'Creo la variables que contendran las dimensiones de los botones
Dim altoBoton, anchoBoton As Integer
'Creo las variables de los puntos en los cuales empiezo a pintar los botones
Dim x, y As Integer
 
'-------------------------------------------------------------------------------------------
bxf = 9 'Por ejemplo defino 9 botones por fila
contador = 0
anchoBoton = 54
altoBoton = 87
x = 10
y = 320
 
'--------------------------------------------------------------------
 
 
''Aqui verifico si se presiono para eliminar los
''botones creados anteriormente y no se esten
''amontonando con los de la otra consulta
If accion = 1 Then
' Recorremos la colección de controles del formulario
For Each ctrl As Control In Me.Controls
' Si el tipo de control es un Button
If TypeOf ctrl Is Button Then
' Si se llama "x"
If ctrl.Name = "x" Then
' Lo eliminamos de la colección
Me.Controls.Remove(ctrl)
End If
End If
Next
'Limpio la tabla productos para que no se incremente
undataset.Tables("productos").Clear()
End If
 
Dim conlumna As New DataColumn
conlumna.ColumnName.Contains("Producto")
 
 
cmd.Connection = conexion
cmd.CommandText = "select Producto from Productos where plu = " & fam & " ORDER BY Orden ASC"
 
adapta.SelectCommand = cmd
adapta.Fill(undataset, "Productos")
 
For i As Integer = 0 To undataset.Tables("Productos").Rows.Count - 1
'Si alcanzo el maximo de columnas de la fila a pintar
If contador = bxf Then
'seteo el valor del contador
contador = 0
'doy la coordenada para que inicie otra fila para crear botones
y = y + anchoBoton
x = 10
End If
 
Dim nuevobotonProd As New Button
nuevobotonProd.BackColor = Color.Khaki
nuevobotonProd.Name = "x"
nuevobotonProd.Location = New Point(x, y)
nuevobotonProd.Size = New Size(altoBoton, anchoBoton)
nuevobotonProd.Text = undataset.Tables("Productos").Rows(i).Item(0).ToString()
 
Me.Controls.Add(nuevobotonProd)
'Aumento contador de columnas
contador = contador + 1
'aumento la coordenada para crear otro boton en la siguiente columna
x = x + altoBoton
 
Next
 
End Sub
 

cargar_formulario_familias :

Código vb:

Public Sub cargar_formulario_familias()
 
'AddHandler Me.Controls(undataset.Tables("FamiliasProducto").Rows(i).Item(0).ToString()).Click, AddressOf btnEvent_Click
 
conexion.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Serv\Escritorio\TpvVigoSe\TpvVigo\Tpv.mdf;" & _
"Integrated Security=True;" & _
"Connect Timeout=30;" & _
"User Instance=True"
 
'Dim nuevobotonProd As New Button
'Creo las variables que definen el area de botones por fila
Dim bxf, contador As Integer
'Creo la variables que contendran las dimensiones de los botones
Dim altoBoton, anchoBoton As Integer
'Creo las variables de los puntos en los cuales empiezo a pintar los botones
Dim x, y As Integer
 
'-------------------------------------------------------------------------------------------
bxf = 9 'Por ejemplo defino 9 botones por fila
contador = 0
anchoBoton = 54
altoBoton = 87
x = 14
y = 2
 
'--------------------------------------------------------------------
Dim conlumna As New DataColumn
conlumna.ColumnName.Contains("NombreFamilia")
 
 
cmd.Connection = conexion
cmd.CommandText = "select idf, NombreFamilia from FamiliasProducto ORDER BY OrdenFamilia ASC"
 
adapta.SelectCommand = cmd
adapta.Fill(undataset, "FamiliasProducto")
 
 
For i As Integer = 0 To undataset.Tables("FamiliasProducto").Rows.Count - 1
 
'Si alcanzo el maximo de columnas de la fila a pintar
If contador = bxf Then
'seteo el valor del contador
contador = 0
'doy la coordenada para que inicie otra fila para crear botones
y = y + anchoBoton
x = 10
End If
 
Dim nuevobotonProd As New Button
nuevobotonProd.BackColor = Color.Khaki
'Agrego esta propiedad para darle el nombre al boton
nuevobotonProd.Name = undataset.Tables("FamiliasProducto").Rows(i).Item(0).ToString()
nuevobotonProd.Location = New Point(x, y)
nuevobotonProd.Size = New Size(altoBoton, anchoBoton)
nuevobotonProd.Text = undataset.Tables("FamiliasProducto").Rows(i).Item(1).ToString()
 
Me.Controls.Add(nuevobotonProd)
 
'Creo 1 evento para todos los botones
AddHandler Me.Controls(undataset.Tables("FamiliasProducto").Rows(i).Item(0).ToString()).Click, AddressOf btnEvent_Click
'Aumento contador de columnas
contador = contador + 1
'aumento la coordenada para crear otro boton en la siguiente columna
x = x + altoBoton
Next
accion = 0
End Sub
 

btnEvent_Click :

Código vb:

Private Sub btnEvent_Click()
'Identifico el nombre del boton(nombre de la familia seleccionada) 
'al que se hizo clic y almaceno en una variable
valor = Me.ActiveControl.Name.ToString
'Mando a listar los productos de la familia,
'Enviandole la familia respectiva
cargar_formulario_Productos(valor)
'mando accion
accion = 1
End Sub
 

[guillebomtrasmiti]

tengo que reconocer que controlas un huevo tiooo....joerrrr, hay cosillas que no van al 100% pero me acabas de avanzar un gran pedazo muchas muchas gracias amigo...seguimos en contacto con el que ya es...nuestro programita...jejeje

[guillebomtrasmiti]

por si quieres verlo tu, el problema es que al elegir la familia refrescos o ginebras salen un solo producto y solo de refrescos nunca de ginebras...un abrazooo

[Aquaventus]

...asi? yo pense que solo habia 1 registro por cada familia bueno eso lo tendre que ver mas tarde que llego a casa porque ando en el trabajo :). Gracias por la duda mas tarde lo veo y te respondo. Saludos!

[guillebomtrasmiti]

un fallo creo que es seguro en este tema, la consulta de productos la haces con PLU y la de familiasproducto con IdF, pero yo tengo en la base de datos un número para que el programa sepa a que famila pertenece el producto, en productos es NFamilia y en familiasproductos es NFamProd...por lo que si los cambio en las consultas funcionan bien, pero pasa esto que has dicho tu...se amontonan, tengo que pulsar tres veces el botón de la familia correspondiente para que los botones que sobran se vallan eliminando...jejje sigo en el tema gracias

[Aquaventus]

por eso para que no se amontenen hize esto que esta en cargar_formulario_productos, pues y si lo pense que asi se relacionaban tus tablas, pero tu conoces la relacion asi que lo puedes acomodar .

Código vb:

''Aqui verifico si se presiono para eliminar los
''botones creados anteriormente y no se esten
''amontonando con los de la otra consulta
If accion = 1 Then
' Recorremos la colección de controles del formulario
For Each ctrl As Control In Me.Controls
' Si el tipo de control es un Button
If TypeOf ctrl Is Button Then
' Si se llama "x"
If ctrl.Name = "x" Then
' Lo eliminamos de la colección
Me.Controls.Remove(ctrl)
End If
End If
Next
'Limpio la tabla productos para que no se incremente
undataset.Tables("productos").Clear()
End If
 

[guillebomtrasmiti]

ok voy a verlo...thanksss

[guillebomtrasmiti]

hola, hola, holaaaaa, como va la vida, espero que bien, yo por aquí como siempre tocando las pelotillas con preguntitas....jejejeje....necesito que veais que hay mal en esta parte para que no se me borren todos los botones que hay en pantalla y se borren un por uno y no todos de golpe...es decir en pantalla salen tres botones y al pulsar uno en otra parte del programa estos tres botones tienen que borrarse para cargarse otros, el caso es que en vez de los tres botones se me borra solo uno y se ponen solo dos de los nuevos que deberían salir otros tres...si sigo pulsando el botón que carga los botones nuevos...los va eliminando a uno por cada pulsación y colocando a su vez en su sitio...los correctos...os mando el código gracias de antemano como siempre:::::

Código vb:

If accion = 1 Then
            ' Recorremos la colección de controles del formulario
            For Each ctrl As Control In Me.Controls
                ' Si el tipo de control es un Button
                If TypeOf ctrl Is Button Then
                    ' Si se llama "x"
                    If ctrl.Name = "x" Then
                        ' Lo eliminamos de la colección
                        Me.Controls.Remove(ctrl)
                        'Limpio la tabla productos para que no se incremente
                    End If
                    'todo esto es una prueba...................................................
 
                    'la prueba llega hasta aquí..................................................
                End If
            Next
            'Limpio la tabla productos para que no se incremente
            undataset.Tables("productos").Clear()
        End If
 
        Dim conlumna As New DataColumn
        conlumna.ColumnName.Contains("Producto")
 
 
        cmd.Connection = conexion
        cmd.CommandText = "select Producto from Productos where NFamilia = " & fam & " ORDER BY Orden ASC"
 
        adapta.SelectCommand = cmd
        adapta.Fill(undataset, "Productos")
 
        For i As Integer = 0 To undataset.Tables("Productos").Rows.Count - 1
            'Si alcanzo el maximo de columnas de la fila a pintar
            If contador = bxf Then
                'seteo el valor del contador
                contador = 0
 
                'doy la coordenada para que inicie otra fila para crear botones
                y = y + anchoBoton
                x = 10
            End If
 
            Dim nuevobotonProd As New Button
            nuevobotonProd.BackColor = Color.Khaki
            nuevobotonProd.Name = "x"
            nuevobotonProd.Location = New Point(x, y)
            nuevobotonProd.Size = New Size(altoBoton, anchoBoton)
            nuevobotonProd.Text = undataset.Tables("Productos").Rows(i).Item(0).ToString()
 
            Me.Controls.Add(nuevobotonProd)
            'Aumento contador de columnas
            contador = contador + 1
            'aumento la coordenada para crear otro boton en la siguiente columna
            x = x + altoBoton
 
        Next
 
    End Sub
 

[guillebomtrasmiti]

ahora se que es por esto; recorre el primer nivel de controles del formulario
("Me"). Si, por ejemplo, tuvieras un Panel dentro del formulario y botones
dentro del Panel, no se limpiarí­an. Para eso tendrás que hacer una rutina
recursiva que fuera descendiendo a la colección de controles de cada control
encontrado....
y la pregunta es¡¡¡¡
que corcho es una rutina recursiva?

[guillebomtrasmiti]

holaa me oye alguién...?

[Aquaventus]

Si Guille! Hola andaba de una pequeñas vacas del foro xD, lo veo y te respondo. Saludos!.

[Aquaventus]

guille enviame a mi correo el proyecto porque se me perdio :( para poder ayudarte... Saludos!

[guillebomtrasmiti]

ok...de spain a perú......¡¡¡¡proyecttito va

[Aquaventus]

Solucionado!! mi estimado guille! lo que te habian dicho de la recursividad es cierto, faltaba eso aqui te va el code :

pero todo el codigo que te pase para limpiar los botones colocalos dentro de un void asi :

Código vb:

Private Sub renovarBotones()
        ''Aqui verifico si se presiono para eliminar los
        ''botones creados anteriormente y no se esten
        ''amontonando con los de la otra consulta
        If accion = 1 Then
            ' Recorremos la colección de controles del formulario
            For Each ctrl As Control In Me.Controls
                ' Si el tipo de control es un Button
                If TypeOf ctrl Is Button Then
                    ' Si se llama "x"
                    If ctrl.Name = "x" Then
                        ' Lo eliminamos de la colección
                        Me.Controls.Remove(ctrl)
                        'AQUI VUELVO A LLAMAR AL METODO ,SI ELIMINO UN BOTON QUE HAGA
                        'OTRA REVISION SINO QUE NO HAGA NADA PORQUE YA NO HAY
                        renovarBotones()
                    End If
                End If
            Next
            'Limpio la tabla productos para que no se incremente
            undataset.Tables("productos").Clear()
        End If
End Sub
 

y luego lo llamas asi en tu "cargar_formulario_Productos" :

Código vb:

Public Sub cargar_formulario_Productos(ByVal fam As String)
        conexion.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\VISUAL\TpvVigoSe\TpvVigo\Tpv.mdf;" & _
        "Integrated Security=True;" & _
        "Connect Timeout=30;" & _
        "User Instance=True"
        'Creo las variables que definen el area de botones por fila
        Dim bxf, contador As Integer
        'Creo la variables que contendran las dimensiones de los botones
        Dim altoBoton, anchoBoton As Integer
        'Creo las variables de los puntos en los cuales empiezo a pintar los botones
        Dim x, y As Integer
        '-------------------------------------------------------------------------------------------
        bxf = 9 'Por ejemplo defino 9 botones por fila
        contador = 0
        anchoBoton = 54
        altoBoton = 87
        x = 10
        y = 320
        'AQUI HAGO LA RECURSIVIDAD PARA ELIMINAR BOTONES
        renovarBotones()
        ''--------------------------------------------------------------------------------------------------------
        Dim conlumna As New DataColumn
        conlumna.ColumnName.Contains("Producto")
 
        cmd.Connection = conexion
        cmd.CommandText = "select Producto from Productos where NFamilia = " & fam & " ORDER BY Orden ASC"
        adapta.SelectCommand = cmd
        adapta.Fill(undataset, "Productos")
        For i As Integer = 0 To undataset.Tables("Productos").Rows.Count - 1
            'Si alcanzo el maximo de columnas de la fila a pintar
            If contador = bxf Then
                'seteo el valor del contador
                contador = 0
                'doy la coordenada para que inicie otra fila para crear botones
                y = y + anchoBoton
                x = 10
            End If
            Dim nuevobotonProd As New Button
            nuevobotonProd.BackColor = Color.Khaki
            nuevobotonProd.Name = "x"
            nuevobotonProd.Location = New Point(x, y)
            nuevobotonProd.Size = New Size(altoBoton, anchoBoton)
            nuevobotonProd.Text = undataset.Tables("Productos").Rows(i).Item(0).ToString()
            Me.Controls.Add(nuevobotonProd)
            'Aumento contador de columnas
            contador = contador + 1
            'aumento la coordenada para crear otro boton en la siguiente columna
            x = x + altoBoton
        Next
End Sub
 

Espero te sirva mi estimado. . Saludos! cualquier otro problema postealo!.
PDT: CAMBIALE LA CADENA DE CONEXION POR LA DE TU MAQUINA .

[guillebomtrasmiti]

me quito el sombrero, te limpio las botas y compro un pisoooooo....gracias amigo, solucionado...crackkkkk eres genialllll TE QUIEROOOOOOOOOOOOO un abrazo enormeeeee

[Aquaventus]

Excelente! mi estimado guille. Saludos!

[Aquaventus]

checa mi post de aporte talvez te sea de mucha utilidad! Manuales .NET