Ver Mensaje Individual
  #12 (permalink)  
Antiguo 12/10/2011, 08:58
Avatar de stuart_david3
stuart_david3
 
Fecha de Ingreso: agosto-2011
Mensajes: 215
Antigüedad: 12 años, 6 meses
Puntos: 1
Respuesta: Generar listbox en base a otro listbox en una base de datos sql, asp.net

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
  1. <%@ Import Namespace="System.Data" %>
  2. <%@ Import Namespace="System.Data.SQLClient" %>
  3. <script language="vbscript" runat="server">
  4. Sub Page_Load(Sender As Object, E As EventArgs)
  5.         Dim reader As SqlDataReader
  6.         Dim values As ArrayList = New ArrayList()
  7.         Dim values2 As ArrayList = New ArrayList()
  8.         Dim conn As SqlConnection =
  9.          New SqlConnection("server=local;database=mydb;User ID=myId;Password=mypass;Trusted_Connection=no")
  10.         Dim sql As String =
  11.          "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.COLUMNS GROUP BY TABLE_NAME"
  12.         Dim dr As New SqlCommand(sql, conn)
  13.         conn.Open()
  14.  reader = dr.ExecuteReader()
  15.         While reader.Read()
  16.             values.Add(reader.Item("TABLE_NAME").ToString())
  17.         End While
  18.         reader.Close()
  19. DIM CADENA AS STRING = Convert.ToString(lb1.SELECTEDITEM)
  20.   Dim sql2 As String =
  21.          "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME =' & CADENA & ' GROUP BY COLUMN_NAME"
  22.         Dim dr2 As New SqlCommand(sql2, conn)
  23.                  
  24.         reader = dr2.ExecuteReader()
  25.         While reader.Read()
  26.             values2.Add(reader.Item("COLUMN_NAME").ToString())
  27.         End While
  28.         lb1.DataSource = values
  29.         lb1.DataBind()
  30.         lb2.DataSource = values2
  31.         lb2.DataBind()
  32.         reader.Close()
  33.         conn.Close()
  34.     End Sub
  35. </script>
  36. <html>
  37. <head>
  38. <title>Tablas y Columnas</title>
  39. </head>
  40. <body>
  41.     <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
  42. <form id="Form1" method="post" runat="server" name="ListEnlaza">
  43. <asp:ListBox id="lb1" SelectionMode="Multiple" runat="server" Height="643px"
  44.     Width="196px"/>
  45.     <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="643px"
  46.     Width="196px"/>
  47. <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
  48. <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
  49. </form>
  50. </body>
  51. </html>

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

Código ASP:
Ver original
  1. DIM 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í ...

Última edición por stuart_david3; 12/10/2011 a las 09:11