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>