Generar listbox en base a otro listbox en una base de datos sql, asp.net

stuart_david3 · #1 (**permalink**) 03/10/2011, 09:39

Hola!!! Buen día a todos!!! Pues verán tengo una duda y no eh encontrado como solucionarla, tengo 1 listbox, el cuál me muestra las tablas de mi base de datos, me gustaría saber como al hacer la selección de uno o varios elementos de la lista me generará otro listbox en el que aparecieran las columnas de la tabla o tablas que seleccione, lo único que eh logrado es mostrar los 2 listbox uno con las tablas de la base de datos, y el otro con TODAS las columnas de TODAS las tablas de mi base de datos, el problema como les dije es este, no se como hacerle por medio de la selección de uno o varios elementos del listbox para que solo me muestre los elementos seleccionados, aquí les dejo el código de lo que hasta el momento tengo :s...

Código ASP:

Ver original<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
        Dim conn As SqlConnection =
         New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim sql As String =
         "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.COLUMNS GROUP BY TABLE_NAME"
        Dim sql2 As String =
         "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS GROUP BY COLUMN_NAME"
        Dim dr As New SqlCommand(sql, conn)
        Dim dr2 As New SqlCommand(sql2, conn)
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim values2 As ArrayList = New ArrayList()
        conn.Open()
        reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("TABLE_NAME").ToString())
        End While
        reader.Close()
        reader = dr2.ExecuteReader()
        While reader.Read()
            values2.Add(reader.Item("COLUMN_NAME").ToString())
        End While
        lb.DataSource = values
        lb.DataBind()
        lb2.DataSource = values2
        lb2.DataBind()
        reader.Close()
        conn.Close()
    End Sub
</script>
<html>
<head>
<title>Tablas y Columnas</title>
</head>
<body>
    <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
<form id="Form1" method="post" runat="server">
<asp:ListBox id="lb" SelectionMode="Multiple" runat="server" Height="643px" 
    Width="196px"/>
    <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="643px" 
    Width="196px"/>
</form>
</body>
</html>

Muchas gracias de antemano, eh buscado pero no he encontrado una solución hasta ahora, de nuevo gracias...

rikakashi · #2 (**permalink**) 03/10/2011, 14:51

Primero en tu segunda cadena SQL deberias de crearla con una variable donde agregues las tablas seleccionadas de las cuales quieres obtener las columnas es decir:
Listbox.selectitem=1,2 etc...
en una variable tipo cadena almacena los item seleccionados creando una cadena ya sea si solo se selecciona una tabla sea TABLE_NAME ='nombre de la tabla' con las comillas simples y si se seleccionan 2 o mas

entonces tu cadena seria table_name='tabla1' and table_name='tabla2'

sql2 = "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE" & CADENA & "GROUP BY COLUMN_NAME"

stuart_david3 · #3 (**permalink**) 06/10/2011, 09:00

Sinceramente no entendí muy bien, intente de otras maneras pero solo consigo mover elementos que yo meto a través de un textbox y no de mi base de datos

, eh aqui el ejemplo:

Código ASP:

Ver original<%@ Page Language="VB" AutoEventWireup="false" CodeFile="MoverList.aspx.vb" Inherits="MoverList" %>
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html>
<form id="form1" runat="server" name="form1">
<script language="vb" runat="server">
 
    Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click
        
                Dim Nombre As String = Me.txtnombre.Text
                Me.txtnombre.Text = ""
                Me.lstdisponibles.Items.Add(Nombre)
            
    End Sub
 
 
    Private Sub btnasignartodo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnasignartodo.Click
        Dim i As Integer
        If lstdisponibles.Items.Count > 0 Then
            For i = 0 To lstdisponibles.Items.Count - 1
                Me.lstasignadas.Items.Add(
                Me.lstdisponibles.Items.Item(i))
            Next i
            lstdisponibles.Items.Clear()
        End If
    End Sub
 
    Private Sub btnquitartodo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquitartodo.Click
        Dim i As Integer
        If lstasignadas.Items.Count > 0 Then
            For i = 0 To lstasignadas.Items.Count - 1
                Me.lstdisponibles.Items.Add(
                Me.lstasignadas.Items.Item(i))
            Next i
            lstasignadas.Items.Clear()
        End If
    End Sub
</script>
 
<asp:TextBox ID="txtnombre" runat="server"></asp:TextBox>
<asp:ListBox ID="lstdisponibles" runat="server"></asp:ListBox>
<asp:Button ID="btnAgregar" runat="server" Text="Agregar" />
<asp:Button ID="btnquitartodo" runat="server" Text="Eliminar Todas" />
<asp:Button ID="btnasignartodo" runat="server" Text="Asignar Todas" />
<asp:ListBox ID="lstasignadas" runat="server"></asp:ListBox>
</form>
</html>

... Soy un novato, si pudieras decirme algo más especifico, lo agradecería mucho intente hacerlo como me dijiste pero como vincularía un listbox con otro??... Intente con el código que te puse al principio pero simplemente estoy algo frío...

Código ASP:

Ver original<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
        Dim cadena
        Dim conn As SqlConnection =
         New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim sql As String =
         "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES GROUP BY TABLE_NAME"
        Dim sql2 As String =
         "SELECT COLUMN_NAME FROM '&cadena&' GROUP BY COLUMN_NAME"
        Dim dr As New SqlCommand(sql, conn)
        Dim dr2 As New SqlCommand(sql2, conn)
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim values2 As ArrayList = New ArrayList()
        conn.Open()
        reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("TABLE_NAME").ToString())
        End While
        reader.Close()
        reader = dr2.ExecuteReader()
        While reader.Read()
            values2.Add(reader.Item("COLUMN_NAME").ToString())
        End While
        lb.DataSource = values
        lb.DataBind()
        lb2.DataSource = values2
        lb2.DataBind()
        cadena=table_name='b_traba1' and table_name='b_traba2'
        reader.Close()
        conn.Close() 
    End Sub
    
 
</script>
<html>
<head>
<title>Tablas y Columnas</title>
</head>
<body>
    <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
<form id="Form1" method="post" runat="server">
<asp:ListBox id="lb" SelectionMode="Multiple" runat="server" Height="643px" 
    Width="196px"/>
    <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="643px" 
    Width="196px"/>
<asp:Button ID="Button1" runat="server" Text="Button" />
 
 
 
</form>
</body>
</html>

rikakashi · #4 (**permalink**) 06/10/2011, 09:33

Código vb:

Ver originalSub Page_Load(Sender As Object, E As EventArgs)
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim values2 As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
         New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
 
        Dim sql As String =
         "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.COLUMNS GROUP BY TABLE_NAME"
        Dim dr As New SqlCommand(sql, conn)
 reader = dr.ExecuteReader()
        While reader.Read()
            LISTBOX1.INSERT(0,READER.VALUE)
        End While
        reader.Close()
 
DIM CADENA AS STRING = LISTBOX1.SELECTITEM
  Dim sql2 As String =
         "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS  WHERE TABLE NAME =" & CADENA & "GROUP BY COLUMN_NAME"
        Dim dr2 As New SqlCommand(sql2, conn)
                  
        reader = dr2.ExecuteReader()
        While reader.Read()
            LISTBOX2.INSERT(0,READER.VALUE)
        End While
        lb.DataSource = values
        lb.DataBind()
        lb2.DataSource = values2
        lb2.DataBind()
        reader.Close()
        conn.Close()
    End Sub

ES MAS O MENOS ASI LA LOGICA, TRATA DE ADAPTARLO

stuart_david3 · #5 (**permalink**) 06/10/2011, 14:39

Creo que si le voy entendiendo pero el problema es que me arroja un problema con la sntaxis del insert:

lb1.INSERT(0,READER.VALUE) <-----

Me dice esto:

BC30456: 'INSERT' no es un miembro de 'System.Web.UI.WebControls.ListBox'.

Gracias de nuevo!!!

rikakashi · #6 (**permalink**) 07/10/2011, 10:19

ok entonces la propiedad seria lb1.add(.....)

stuart_david3 · #7 (**permalink**) 12/10/2011, 08:09

Ok, pues hice los cambios que me dijiste y me quedo así:

Código ASP:

Ver original<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim values2 As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
         New SqlConnection("server=10.11.2.49;database=extractor;User ID=sa;Password=administrador;Trusted_Connection=no")
 
        Dim sql As String =
         "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.COLUMNS GROUP BY TABLE_NAME"
        Dim dr As New SqlCommand(sql, conn)
 reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("TABLE_NAME").ToString())
        End While
        reader.Close()
 
DIM CADENA AS STRING = values.SELECTEDITEM
  Dim sql2 As String =
         "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS  WHERE TABLE NAME =" & CADENA & "GROUP BY COLUMN_NAME"
        Dim dr2 As New SqlCommand(sql2, conn)
                  
        reader = dr2.ExecuteReader()
        While reader.Read()
            values2.Add(reader.Item("COLUMN_NAME").ToString())
        End While
        lb1.DataSource = values
        lb1.DataBind()
        lb2.DataSource = values2
        lb2.DataBind()
        reader.Close()
        conn.Close()
    End Sub
</script>
<html>
<head>
<title>Tablas y Columnas</title>
</head>
<body>
    <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
<form id="Form1" method="post" runat="server" name="ListEnlaza">
<asp:ListBox id="lb1" SelectionMode="Multiple" runat="server" Height="643px" 
    Width="196px"/>
    <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="643px" 
    Width="196px"/>
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
</form>
</body>
</html>

Y me sigue arrojando un error, ahora en la declaración de la variable cadena:

Mensaje de error del compilador: BC30456: 'SELECTEDITEM' no es un miembro de 'System.Collections.ArrayList'.

Disculpa la tardanza rikakashi, espero y me puedan ayudar...

Aquaventus · #8 (**permalink**) 12/10/2011, 08:21

Ese error te arroja por que los arraylist no tienen esa propiedad, verifica bien lo que te ah dado rikakashi, has colocado values en donde supuestamente tienen que ir el listbox. Saludos!

.

stuart_david3 · #9 (**permalink**) 12/10/2011, 08:35

Gracias Aquaventus. Le cambie el value por el nombre del Listbox que en este caso es lb2, y le hice un cast para que lo leyera como un String de esta manera:

Código ASP:

Ver originalDIM CADENA AS STRING = lb2.SELECTEDITEM.ToString()

Pero ahora me arroja este error en el Reader:

System.InvalidOperationException: ExecuteReader requiere una Connection abierta y disponible. El estado actual de la conexión es cerrada.

Y se me hace raro ya que la conexión la cierro en la línea 35 y me dice que ya no existe conexión en la línea 15

...

stuart_david3 · #10 (**permalink**) 12/10/2011, 08:41

Ok, el mensaje pasado la regue y ya vi donde solo le agregue el "conn.Open" antes del reader :s... lo siento, Pero ahora me vuelve a arrojar un error en la declaración de cadena:

Código ASP:

Ver originalDIM CADENA AS STRING = lb2.SELECTEDITEM.ToString()

Este es el error:

Detalles de la excepción: System.NullReferenceException: Referencia a objeto no establecida como instancia de un objeto.

Gracias de nuevo...

Aquaventus · #11 (**permalink**) 12/10/2011, 08:52

Puede que ese mensaje te genere porque no ahi ningun elemento seleccionado en el listbox2 y tu estes forzando esa propiedad, por ello lo del NullReferenceException, verifica eso. Saludos!

.

stuart_david3 · #12 (**permalink**) 12/10/2011, 08:58

Pues, ya quedo el código, pero jajaja lo tengo como al principio, es decir, me genera el listbox con los datos, pero lo que quiero que haga, pues no lo hace, es decir, que al seleccionar un elemento me lo mande al otro listbox, aquí les dejo el código... :p...

Código ASP:

Ver original<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim values2 As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
         New SqlConnection("server=local;database=mydb;User ID=myId;Password=mypass;Trusted_Connection=no")
        Dim sql As String =
         "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.COLUMNS GROUP BY TABLE_NAME"
        Dim dr As New SqlCommand(sql, conn)
        conn.Open()
 reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("TABLE_NAME").ToString())
        End While
        reader.Close()
DIM CADENA AS STRING = Convert.ToString(lb1.SELECTEDITEM)
  Dim sql2 As String =
         "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME =' & CADENA & ' GROUP BY COLUMN_NAME"
        Dim dr2 As New SqlCommand(sql2, conn)
                  
        reader = dr2.ExecuteReader()
        While reader.Read()
            values2.Add(reader.Item("COLUMN_NAME").ToString())
        End While
        lb1.DataSource = values
        lb1.DataBind()
        lb2.DataSource = values2
        lb2.DataBind()
        reader.Close()
        conn.Close()
    End Sub
</script>
<html>
<head>
<title>Tablas y Columnas</title>
</head>
<body>
    <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
<form id="Form1" method="post" runat="server" name="ListEnlaza">
<asp:ListBox id="lb1" SelectionMode="Multiple" runat="server" Height="643px" 
    Width="196px"/>
    <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="643px" 
    Width="196px"/>
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
</form>
</body>
</html>

El error de arriba fue solo cambiar la cadena haciendole un cast así, bueno, al menos eso creo:

Código ASP:

Ver originalDIM CADENA AS STRING = Convert.ToString(lb1.SELECTEDITEM)

Gracias por sus respuestas. Sigo en lo mismo, espero y me puedan seguir ayudando por que nada más no avanzo de mostrar los elementos del listbox y hasta ahí

...

stuart_david3 · #13 (**permalink**) 12/10/2011, 10:35

Bueno viendo el código según yo, no me va a mostrar nada en el segundo listbox ya que la variable cadena siempre esta vacía, supongo que necesitaría algun evento del mouse para indicarle que la variable "cadena" es leída al darle clic al elemento del listbox, y así sepa que cadena fue la seleccionada. Pero no se si esto ya lo hace la función selectedItem, así que hasta este momento he estado buscando y sigo sin terminar de entender como poder lograr que me arroje el resultado...

rikakashi · #14 (**permalink**) 12/10/2011, 15:38

agrega un nuevo boton y en el agrega este codigo, eliminandolo del anterior

Código vb:

Ver originalDIM CADENA AS STRING = Convert.ToString(lb1.SELECTEDITEM)
  Dim sql2 As String =
         "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME =' & CADENA & ' GROUP BY COLUMN_NAME"
        Dim dr2 As New SqlCommand(sql2, conn)
                  
        reader = dr2.ExecuteReader()
        While reader.Read()
            values2.Add(reader.Item("COLUMN_NAME").ToString())
        End While
        lb1.DataSource = values
        lb1.DataBind()
        lb2.DataSource = values2
        lb2.DataBind()
        reader.Close()
        conn.Close()

y has la prueba con una sola tabla seleccionada y veamos que pasa

stuart_david3 · #15 (**permalink**) 14/10/2011, 14:31

Hola rikakashi gracias por tu respuesta. Pues lo coloque como dijiste, solo que agregue las variables del reader y la conexión en el evento del botón, pero el mismo resultado al darle clic a dicho botón, mi otro listbox sigue en blanco

... Aquí dejo el código por si me pudieran ayudar a resolver mi duda n_n... Gracias de nuevo...

Código ASP:

Ver original<%@ Import Namespace="System.Data" %>
 
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim values2 As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
         New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim sql As String =
         "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES GROUP BY TABLE_NAME"
        Dim dr As New SqlCommand(sql, conn)
        conn.Open()
 reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("TABLE_NAME").ToString())
        End While
        lb1.DataSource = values
        lb1.DataBind()
        reader.Close()
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim reader As SqlDataReader
        Dim values2 As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
        New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        conn.Open()
        DIM CADENA AS STRING = Convert.ToString(lb1.SELECTEDITEM)
  Dim sql2 As String =
         "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME =' & CADENA & ' GROUP BY COLUMN_NAME"
        Dim dr2 As New SqlCommand(sql2, conn)
                  
        reader = dr2.ExecuteReader()
        While reader.Read()
            values2.Add(reader.Item("COLUMN_NAME").ToString())
        End While
        
        lb2.DataSource = values2
        lb2.DataBind()
        reader.Close()
        conn.Close()
    End Sub
</script>
<html>
<head>
<title>Tablas y Columnas</title>
</head>
<body>
    <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
<form id="Form1" method="post" runat="server" name="ListEnlaza">
<asp:ListBox id="lb1" SelectionMode="Multiple" runat="server" Height="217px" 
    Width="196px"/>
    <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="147px" 
    Width="196px"/>
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
<asp:Button ID="Button1" runat="server" Text="Button" />
</form>
</body>
</html>

rikakashi · #16 (**permalink**) 14/10/2011, 14:42

estas realizando ambas funciones dentro del load de la pagina por eso aun siguen asi, debes de meter la segunda instruccion en el evento click del boton, es decir sera el boton quien realize la consulta del segundo list y no todo en el load ya que ahi la variable cadena no se llena porque apenas acabas de llenar un list y no se a seleccionado ningun elemento

stuart_david3 · #17 (**permalink**) 17/10/2011, 07:51

Ahm, como soy nuevo en asp.net, pues pensaba que el load de la página era lo que esta dentro del Sub Page_Load(Sender.... Y bueno pensé que al solo ponerlo fuera de la instrucción End Sub sería suficiente, disculpa la ignorancia pero si no es así donde podría poner el borón fuera del Load??...

rikakashi · #18 (**permalink**) 17/10/2011, 12:37

si estas usando visual studio o webdeveloper solo da doble click al boton y te abrira la seccion de codigo necesaria para colocar ahi el codigo

stuart_david3 · #19 (**permalink**) 18/10/2011, 07:58

Pues cuando le doy doble clic, solo me abre la parte del código donde se crea el botón, pero ningún evento...

Código ASP:

Ver original<asp:Button ID="Button1" runat="server" Text="Button" />

Uso Visual Studio 2010 por cierto...

rikakashi · #20 (**permalink**) 18/10/2011, 09:50

Código vb:

Ver original<asp:Button ID="Button1" runat="server" Text="Button"  OnClick="list2" />
 
sub list2 ByVal sender As Object, ByVal e As EventArgs)
    'AQUI TU CODIGO DE LIST 2      
End Sub

stuart_david3 · #21 (**permalink**) 18/10/2011, 11:18

rikakashi Muchas gracias por tanta ayuda y disculpa también por tantas molestias, desafortunadamente sigo con el mismo problema mi listbox1 esta con sus campos pero el 2 se rehúsa a aceptar los campos que le mando

... No se que pasa :s... Aquí dejó el código que puse... De nuevo muchísimas gracias:

Código ASP:

Ver original<%@ Import Namespace="System.Data" %>
 
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
         New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim sql As String =
         "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES GROUP BY TABLE_NAME"
        Dim dr As New SqlCommand(sql, conn)
        conn.Open()
 reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("TABLE_NAME").ToString())
        End While
        lb1.DataSource = values
        lb1.DataBind()
        reader.Close()
    End Sub
</script>
<html>
<head>
<title>Tablas y Columnas</title>
</head>
<body>
    <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
<form id="Form1" method="post" runat="server" name="ListEnlaza">
<asp:ListBox id="lb1" SelectionMode="Multiple" runat="server" Height="217px" 
    Width="196px"/>
    <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="147px" 
    Width="196px"/>
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
<asp:Button ID="Button1" runat="server" Text="Button" OnClick="list2"/>
<script language="vbscript" runat="server">
sub list2 (ByVal sender As Object, ByVal e As EventArgs)
       Dim reader As SqlDataReader
        Dim values2 As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
        New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        conn.Open()
        DIM CADENA AS STRING = Convert.ToString(lb1.SELECTEDITEM)
  Dim sql2 As String =
         "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME =' & CADENA & ' GROUP BY COLUMN_NAME"
        Dim dr2 As New SqlCommand(sql2, conn)
                  
        reader = dr2.ExecuteReader()
        While reader.Read()
            values2.Add(reader.Item("COLUMN_NAME").ToString())
        End While
        
        lb2.DataSource = values2
        lb2.DataBind()
        reader.Close()
        conn.Close()
End Sub
</script>
</form>
</body>
</html>

Aquaventus · #22 (**permalink**) 18/10/2011, 11:22

Hola stuart_david3, tengo una inquietud... coloca esto en tu load

Código vb:

Ver original<script language="vbscript" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
 
If Not Page.IsPostBack Then
'Todo tu codigo aqui..
End If
 
 End Sub
</script>

Y seleccionas tu listbox2 y veras que aparece una pestañita con una flecha, lo clickeas y habilitas el Enable AutoPostBack. Nos cuentas. Saludos!

.

stuart_david3 · #23 (**permalink**) 18/10/2011, 12:25

Gracias por tu respuesta Aquaventus, mira lo intente sin el botón así:

Código ASP:

Ver original<%@ Import Namespace="System.Data" %>
 
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
If Not Page.IsPostBack Then
        Dim values As ArrayList = New ArrayList()   
        Dim values2 As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
        New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim reader As SqlDataReader
        Dim sql As String =
         "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES GROUP BY TABLE_NAME"
        Dim dr As New SqlCommand(sql, conn)
        conn.Open()
 reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("TABLE_NAME").ToString())
        End While
        reader.Close()
        DIM CADENA AS STRING = Convert.ToString(lb1.SELECTEDITEM)
  Dim sql2 As String =
         "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME =' & CADENA & ' GROUP BY COLUMN_NAME"
        Dim dr2 As New SqlCommand(sql2, conn)
                  
        reader = dr2.ExecuteReader()
        While reader.Read()
            values2.Add(reader.Item("COLUMN_NAME").ToString())
        End While
        lb1.DataSource = values
        lb1.DataBind()
        lb2.DataSource = values2
        lb2.DataBind()
        reader.Close()
        conn.Close()
    End If
    End Sub
</script>
<html>
<head>
<title>Tablas y Columnas</title>
</head>
<body>
    <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
<form id="Form1" method="post" runat="server" name="ListEnlaza">
<asp:ListBox id="lb1" SelectionMode="Multiple" runat="server" Height="217px" 
    Width="196px" AutoPostBack="True"/>
    <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="147px" 
    Width="196px" AutoPostBack="True"/>
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
<asp:Button ID="Button1" runat="server" Text="Button" />
</form>
</body>
</html>

Y cuando le daba clic al listbox2 me aparecía el dibujo del puntero del mouse cuando carga pero menos de un segundo y no me llenaba nada, intente habilitando el AutoPostBack para el list2, para el list1, para ambos y nada.... También lo intente con el botón, y nada:

Código ASP:

Ver original<%@ Import Namespace="System.Data" %>
 
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
        If Not Page.IsPostBack Then
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
         New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim sql As String =
         "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES GROUP BY TABLE_NAME"
        Dim dr As New SqlCommand(sql, conn)
        conn.Open()
 reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("TABLE_NAME").ToString())
        End While
        lb1.DataSource = values
        lb1.DataBind()
        reader.Close()
        End If
    End Sub
</script>
<html>
<head>
<title>Tablas y Columnas</title>
</head>
<body>
    <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
<form id="Form1" method="post" runat="server" name="ListEnlaza">
<asp:ListBox id="lb1" SelectionMode="Multiple" runat="server" Height="217px" 
    Width="196px" AutoPostBack="True"/>
    <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="147px" 
    Width="196px" AutoPostBack="True"/>
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
<asp:Button ID="Button1" runat="server" Text="Button" OnClick="list2"/>
<script language="vbscript" runat="server">
sub list2 (ByVal sender As Object, ByVal e As EventArgs)
       Dim reader As SqlDataReader
        Dim values2 As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
        New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        conn.Open()
        DIM CADENA AS STRING = Convert.ToString(lb1.SELECTEDITEM)
  Dim sql2 As String =
         "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME =' & CADENA & ' GROUP BY COLUMN_NAME"
        Dim dr2 As New SqlCommand(sql2, conn)
                  
        reader = dr2.ExecuteReader()
        While reader.Read()
            values2.Add(reader.Item("COLUMN_NAME").ToString())
        End While
        
        lb2.DataSource = values2
        lb2.DataBind()
        reader.Close()
        conn.Close()
End Sub
</script>
</form>
</body>
</html>

De nuevo gracias!!!...

rikakashi · #24 (**permalink**) 18/10/2011, 14:37

sigues sin llenar la variable cadena cuando menos con un solo elemento seleccionado del primer list, ademas no la tienes correctamente llamada en el string de sql

Código vb:

Ver original"SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME =' " & CADENA & " ' GROUP BY COLUMN_NAME"

las comillas al lado de cadena van dobles.

ahora bien hay que hacer una prueba simple

cambia la cadena anterior por una así

Código vb:

Ver original"SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME =' nombredealgunacualquiera' GROUP BY COLUMN_NAME"

y veamos si asta aquí vamos bien después veremos lo de llenar la variable cadena

stuart_david3 · #25 (**permalink**) 21/10/2011, 08:03

Gracias rikakashi Pues intente con las comillas dobles y es el mismo resultado, al meterle como parámetro el nombre de alguna tabla si me genera las columnas de dicha tabla al darle clic al botón n_n, pero no si lo hago mediante el String "Cadena"

... Si no es como lo estoy haciendo al llenar la cadena entonces cómo?? Ahm, yo pensaba que el "SELECTEDITEM" hacía eso, bueno aunque no estoy del todo seguro :s... De nuevo gracias...

rikakashi · #26 (**permalink**) 21/10/2011, 15:45

bueno teniendo ya ese punto entonces ahora vamos a crear la cadena segun el select item del list claro es con esta funcion que lo generaremos.
primero borraremos cualquier rastro de la variable cadena anterior, solo coloca el nombre de tu primer list y este codigo utilizalo en el evento del boton

Código vb:

Ver originalDim cadena As String = ""
        For i As Integer = 0 To lst1.Items.Count - 1
            If lst1.SelectedItem(i) = True Then
                If cadena = "" Then
                    cadena = "TABLE_NAME='" & lst1.SelectedItem(i).ToString & "'"
                Else
                    cadena = cadena + (" OR TABLE_NAME='" & lst1.SelectedItem(i).ToString & "'")
                End If
            End If
        Next
        Dim sql2 As String = "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE " & cadena & " GROUP BY COLUMN_NAME"

stuart_david3 · #27 (**permalink**) 27/10/2011, 08:13

Hola rikakashi, disculpa por tardar tanto en contestar... Pues intente con el código que me hiciste el favor de postear, pero pues me sale este error:

No se puede indizar la clase 'System.Web.UI.WebControls.ListItem' porque no tiene ninguna propiedad predeterminada.

En esta línea:

Código ASP:

Ver originalIf lb1.SelectedItem(i) = True Then

De nuevo gracias por tu ayuda =)... Este es el código completo:

Código ASP:

Ver original<%@ Import Namespace="System.Data" %>
 
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
        If Not Page.IsPostBack Then
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
         New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim sql As String =
         "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES GROUP BY TABLE_NAME"
        Dim dr As New SqlCommand(sql, conn)
        conn.Open()
 reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("TABLE_NAME").ToString())
        End While
        lb1.DataSource = values
        lb1.DataBind()
        reader.Close()
        End If
    End Sub
</script>
<html>
<head>
<title>Tablas y Columnas</title>
</head>
<body>
    <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
<form id="Form1" method="post" runat="server" name="ListEnlaza">
<asp:ListBox id="lb1" SelectionMode="Multiple" runat="server" Height="217px" 
    Width="196px"/>
    <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="147px" 
    Width="196px"/>
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
<asp:Button ID="Button1" runat="server" Text="Button" OnClick="list2"/>
<script language="vbscript" runat="server">
sub list2 (ByVal sender As Object, ByVal e As EventArgs)
       Dim conn As SqlConnection =
         New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
       Dim cadena As String = ""
        For i As Integer = 0 To lb1.Items.Count - 1
            If lb1.SelectedItem(i) = True Then
                If cadena = "" Then
                    cadena = "TABLE_NAME='" & lb1.SelectedItem(i).ToString & "'"
                Else
                    cadena = cadena + (" OR TABLE_NAME='" & lb1.SelectedItem(i).ToString & "'")
                End If
            End If
        Next
 
        Dim sql2 As String = "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE " & cadena & " GROUP BY COLUMN_NAME"
End Sub
</script>
</form>
</body>
</html>

stuart_david3 · #28 (**permalink**) 27/10/2011, 13:57

No se que roio con el poio pero, gracias a Dios ya funciono el programa, aquí les dejo el código...

Código ASP:

Ver original<%@ Import Namespace="System.Data" %>
 
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
        If Not Page.IsPostBack Then
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
         New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim sql As String =
         "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES GROUP BY TABLE_NAME"
        Dim dr As New SqlCommand(sql, conn)
        conn.Open()
 reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("TABLE_NAME").ToString())
        End While
        lb1.DataSource = values
        lb1.DataBind()
        reader.Close()
        End If
    End Sub
 
 
Private Sub lb1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lb1.SelectedIndexChanged
 
       Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
       Dim conn As SqlConnection =
         New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
       Dim cadena As String = lb1.SelectedItem.ToString()
 
 
        Dim sql2 As String = "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME='" & cadena & "' GROUP BY COLUMN_NAME"
        Dim dr As New SqlCommand(sql2, conn)
        conn.Open()
 reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("COLUMN_NAME").ToString())
        End While
        lb2.DataSource = values
        lb2.DataBind()
        reader.Close()
End Sub
</script>
<html>
<head>
<title>Tablas y Columnas</title>
</head>
<body>
    <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
<form id="Form1" method="post" runat="server" name="ListEnlaza">
<asp:ListBox id="lb1" SelectionMode="Multiple" runat="server" Height="217px" 
    Width="196px"/>
    <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="147px" 
    Width="196px"/>
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
<asp:Button ID="Button1" runat="server" Text="Button"/>
 
</form>
</body>
</html>

En realidad no se cuando es que le estoy haciendo referencia al botón, pensé que tenía que llamarlo en el evento (Button1_SelectIndex....) y hago referencia al listbox, pero lo raro es que me genera mis columnas solo al seleccionar el elemento de la lista y darle clic al botón, y no solo al seleccionar el elemento de la lista... No se como es que escucha el evento del botón el listbox, pero bueno gracias a Dios ya funciona. Si alguien me pudiera decir cómo es que escucha al botón el listbox se lo agradecería mucho... Gracias a todos los que me ayudaron, enserio muchísimas gracias!!!...

stuart_david3 · #29 (**permalink**) 27/10/2011, 14:23

Ok, lo puse de esta manera y gracias a Dios si funcionó, haciendo referencia al botón ya funciona y es como rikakashi me dijo al principio solo que yo tenia mal mi "selectedindex" así queda el código ya funcionando...

Código ASP:

Ver original<%@ Import Namespace="System.Data" %>
 
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
        If Not Page.IsPostBack Then
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
         New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim sql As String =
         "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES GROUP BY TABLE_NAME"
        Dim dr As New SqlCommand(sql, conn)
        conn.Open()
 reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("TABLE_NAME").ToString())
        End While
        lb1.DataSource = values
        lb1.DataBind()
        reader.Close()
        End If
    End Sub
 
 
Private Sub list2(ByVal sender As Object, ByVal e As System.EventArgs)
 
       Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
       Dim conn As SqlConnection =
         New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
       Dim cadena As String = lb1.SelectedItem.ToString()
 
 
        Dim sql2 As String = "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME='" & cadena & "' GROUP BY COLUMN_NAME"
        Dim dr As New SqlCommand(sql2, conn)
        conn.Open()
 reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("COLUMN_NAME").ToString())
        End While
        lb2.DataSource = values
        lb2.DataBind()
        reader.Close()
End Sub
</script>
<html>
<head>
<title>Tablas y Columnas</title>
</head>
<body>
    <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
<form id="Form1" method="post" runat="server" name="ListEnlaza">
<asp:ListBox id="lb1" SelectionMode="Multiple" runat="server" Height="217px" 
    Width="196px"/>
    <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="147px" 
    Width="196px"/>
<asp:Button ID="Button1" runat="server" Text="Sirve" OnCommand="list2" 
    Width="71px"/>
 
<asp:Button ID="Button2" runat="server" style="margin-left: 82px" 
    Text="No Sirve" />
 
</form>
</body>
</html>

Muchas gracias!!!...

rikakashi · #30 (**permalink**) 27/10/2011, 16:56

Código vb:

Ver original<asp:Button ID="Button1" runat="server" Text="Sirve" OnCommand="list2" 
    Width="71px"/>

Esta es la linea en la que llamas al metodo List2 al hacer click en tu boton, ahi es donde esta el proceso de llenanr el siguiente list, si lo quieres pasar directamene al seleccionar una tamla en la primera lista lo que debes hacer es utilizar el evento selectitemchancge del list1.

Y pues me alegro que al fin pudieses resolver el problema