Ver Mensaje Individual
  #3 (permalink)  
Antiguo 06/10/2011, 09:00
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

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
  1. <%@ Page Language="VB" AutoEventWireup="false" CodeFile="MoverList.aspx.vb" Inherits="MoverList" %>
  2.  
  3. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  4.  
  5. <html>
  6. <form id="form1" runat="server" name="form1">
  7. <script language="vb" runat="server">
  8.  
  9.     Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click
  10.        
  11.                 Dim Nombre As String = Me.txtnombre.Text
  12.                 Me.txtnombre.Text = ""
  13.                 Me.lstdisponibles.Items.Add(Nombre)
  14.            
  15.     End Sub
  16.  
  17.  
  18.     Private Sub btnasignartodo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnasignartodo.Click
  19.         Dim i As Integer
  20.         If lstdisponibles.Items.Count > 0 Then
  21.             For i = 0 To lstdisponibles.Items.Count - 1
  22.                 Me.lstasignadas.Items.Add(
  23.                 Me.lstdisponibles.Items.Item(i))
  24.             Next i
  25.             lstdisponibles.Items.Clear()
  26.         End If
  27.     End Sub
  28.  
  29.     Private Sub btnquitartodo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquitartodo.Click
  30.         Dim i As Integer
  31.         If lstasignadas.Items.Count > 0 Then
  32.             For i = 0 To lstasignadas.Items.Count - 1
  33.                 Me.lstdisponibles.Items.Add(
  34.                 Me.lstasignadas.Items.Item(i))
  35.             Next i
  36.             lstasignadas.Items.Clear()
  37.         End If
  38.     End Sub
  39. </script>
  40.  
  41. <asp:TextBox ID="txtnombre" runat="server"></asp:TextBox>
  42. <asp:ListBox ID="lstdisponibles" runat="server"></asp:ListBox>
  43. <asp:Button ID="btnAgregar" runat="server" Text="Agregar" />
  44. <asp:Button ID="btnquitartodo" runat="server" Text="Eliminar Todas" />
  45. <asp:Button ID="btnasignartodo" runat="server" Text="Asignar Todas" />
  46. <asp:ListBox ID="lstasignadas" runat="server"></asp:ListBox>
  47. </form>
  48. </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
  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 cadena
  6.         Dim conn As SqlConnection =
  7.          New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
  8.         Dim sql As String =
  9.          "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES GROUP BY TABLE_NAME"
  10.         Dim sql2 As String =
  11.          "SELECT COLUMN_NAME FROM '&cadena&' GROUP BY COLUMN_NAME"
  12.         Dim dr As New SqlCommand(sql, conn)
  13.         Dim dr2 As New SqlCommand(sql2, conn)
  14.         Dim reader As SqlDataReader
  15.         Dim values As ArrayList = New ArrayList()
  16.         Dim values2 As ArrayList = New ArrayList()
  17.         conn.Open()
  18.         reader = dr.ExecuteReader()
  19.         While reader.Read()
  20.             values.Add(reader.Item("TABLE_NAME").ToString())
  21.         End While
  22.         reader.Close()
  23.         reader = dr2.ExecuteReader()
  24.         While reader.Read()
  25.             values2.Add(reader.Item("COLUMN_NAME").ToString())
  26.         End While
  27.         lb.DataSource = values
  28.         lb.DataBind()
  29.         lb2.DataSource = values2
  30.         lb2.DataBind()
  31.         cadena=table_name='b_traba1' and table_name='b_traba2'
  32.         reader.Close()
  33.         conn.Close()
  34.     End Sub
  35.    
  36.  
  37. </script>
  38. <html>
  39. <head>
  40. <title>Tablas y Columnas</title>
  41. </head>
  42. <body>
  43.     <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
  44. <form id="Form1" method="post" runat="server">
  45. <asp:ListBox id="lb" SelectionMode="Multiple" runat="server" Height="643px"
  46.     Width="196px"/>
  47.     <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="643px"
  48.     Width="196px"/>
  49. <asp:Button ID="Button1" runat="server" Text="Button" />
  50.  
  51.  
  52.  
  53. </form>
  54. </body>
  55. </html>