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

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 original
  1. If lb1.SelectedItem(i) = True Then

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

Código ASP:
Ver original
  1. <%@ Import Namespace="System.Data" %>
  2.  
  3. <%@ Import Namespace="System.Data.SQLClient" %>
  4. <script language="vbscript" runat="server">
  5. Sub Page_Load(Sender As Object, E As EventArgs)
  6.         If Not Page.IsPostBack Then
  7.         Dim reader As SqlDataReader
  8.         Dim values As ArrayList = New ArrayList()
  9.         Dim conn As SqlConnection =
  10.          New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
  11.         Dim sql As String =
  12.          "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES GROUP BY TABLE_NAME"
  13.         Dim dr As New SqlCommand(sql, conn)
  14.         conn.Open()
  15.  reader = dr.ExecuteReader()
  16.         While reader.Read()
  17.             values.Add(reader.Item("TABLE_NAME").ToString())
  18.         End While
  19.         lb1.DataSource = values
  20.         lb1.DataBind()
  21.         reader.Close()
  22.         End If
  23.     End Sub
  24. </script>
  25. <html>
  26. <head>
  27. <title>Tablas y Columnas</title>
  28. </head>
  29. <body>
  30.     <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
  31. <form id="Form1" method="post" runat="server" name="ListEnlaza">
  32. <asp:ListBox id="lb1" SelectionMode="Multiple" runat="server" Height="217px"
  33.     Width="196px"/>
  34.     <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="147px"
  35.     Width="196px"/>
  36. <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
  37. <asp:Button ID="Button1" runat="server" Text="Button" OnClick="list2"/>
  38. <script language="vbscript" runat="server">
  39. sub list2 (ByVal sender As Object, ByVal e As EventArgs)
  40.        Dim conn As SqlConnection =
  41.          New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
  42.        Dim cadena As String = ""
  43.         For i As Integer = 0 To lb1.Items.Count - 1
  44.             If lb1.SelectedItem(i) = True Then
  45.                 If cadena = "" Then
  46.                     cadena = "TABLE_NAME='" & lb1.SelectedItem(i).ToString & "'"
  47.                 Else
  48.                     cadena = cadena + (" OR TABLE_NAME='" & lb1.SelectedItem(i).ToString & "'")
  49.                 End If
  50.             End If
  51.         Next
  52.  
  53.         Dim sql2 As String = "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE " & cadena & " GROUP BY COLUMN_NAME"
  54. End Sub
  55. </script>
  56. </form>
  57. </body>
  58. </html>