Dropdownlist desde SQL a textbox VB.NET

[yetrus]

Tengo problemas como siempre, tengo un dropdowlist qeu es llenado desde una base SQL al cargar la pagina WEB, pero lo que no puedo hacer es que el elemento seleccionado se traspase a un text y un label con los campos del la Base. Espero se entienda el codigo


asi lo lleno:

Dim da As New SqlDataAdapter("SELECT RutE FROM cliente ", conn)
Dim ds As New DataSet
da.Fill(ds, "cliente")
With DropDownList1
.DataTextField = "RutE"
.DataSource = ds.Tables("cliente")
.DataBind()
End With

y as itrato de sacarle los datos


Private Sub DropDownList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
conn.Open()
Dim cmd As New SqlCommand("select * from cliente where RutE = '" & DropDownList1.SelectedValue & "'")
cmd.Connection = conn
Dim dr As SqlClient.SqlDataReader
dr = cmd.ExecuteReader
While dr.Read
TextBox1.Text = dr.GetValue(0)
Label1.Text = dr.GetValue(1)
End While
dr.Close()
conn.Close()
End Sub


Saludos

[pineda]

No se como estés manejando el llenado del combobox.
Pero para mi es más fácil de la siguiente manera:

En el load:

Realizo la consulta SQL y la guardo en una tabla (tDatos)
Después hago lo siguiente:
combobox1.displaymember="campo1"
combobox1.valuemember="campo2"
combobox1.datasource=tDatos

y ya en el selected index changed

textbox1.text=combobox1.selectedtext
label1.text=combobox1.selectedvalue.tostring()


Espero te sirva y sea lo que buscas

[yetrus]

Iniciado por pineda

No se como estés manejando el llenado del combobox.
Pero para mi es más fácil de la siguiente manera:

En el load:

Realizo la consulta SQL y la guardo en una tabla (tDatos)
Después hago lo siguiente:
combobox1.displaymember="campo1"
combobox1.valuemember="campo2"
combobox1.datasource=tDatos

y ya en el selected index changed

textbox1.text=combobox1.selectedtext
label1.text=combobox1.selectedvalue.tostring()


Espero te sirva y sea lo que buscas

combobox y dropdownlist es lo mismo??

Saludos

[pineda]

Ups nop, no son lo mismo... uno es para winforms -- combo y otro para web -- drop.

Pero la utilización es muy parecida. un ejemplo con drop:

tabla = CONSULTA SQL
drop.DataSource = tabla
drop.DataTextField = "campo2"
drop.DataValueField = "campo1"
drop.DataBind ()


y el SelectedIndexChanged

text1=drop.SelectedItem .Text
label1=drop.SelectedItem .Value

Sorry por la confusión

[yetrus]

Iniciado por pineda

Ups nop, no son lo mismo... uno es para winforms -- combo y otro para web -- drop.

Pero la utilización es muy parecida. un ejemplo con drop:

tabla = CONSULTA SQL
drop.DataSource = tabla
drop.DataTextField = "campo2"
drop.DataValueField = "campo1"
drop.DataBind ()


y el SelectedIndexChanged

text1=drop.SelectedItem .Text
label1=drop.SelectedItem .Value

Sorry por la confusión

disculpa mi pauperrimo nivel de conocimeinto pero no te entiendo lo qeu dices podrias ser un pokito mas claro please

Saludos

[pineda]

OK, en la parte donde cargas el combo todo bien, sólo hay que agregar una línea:

Iniciado por yetrus

Dim da As New SqlDataAdapter("SELECT RutE FROM cliente ", conn)
Dim ds As New DataSet
da.Fill(ds, "cliente")
With DropDownList1
.DataTextField = "RutE"
.DataValueField="campo2" ' generalmente es una llave primaria
.DataSource = ds.Tables("cliente")
.DataBind()
End With

Y cuando se cambie el index, no es necesario hacer esto:

Iniciado por yetrus

Private Sub DropDownList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
conn.Open()
Dim cmd As New SqlCommand("select * from cliente where RutE = '" & DropDownList1.SelectedValue & "'")
cmd.Connection = conn
Dim dr As SqlClient.SqlDataReader
dr = cmd.ExecuteReader
While dr.Read
TextBox1.Text = dr.GetValue(0)
Label1.Text = dr.GetValue(1)
End While
dr.Close()
conn.Close()
End Sub

Solamente debes hacer lo siguiente, tomando en cuenta que "campo2" es el campo que se puso fuera el DataValueField del dropdownlist

Código:

text1.Text=DropDownList1.SelectedItem .Text     ' da DataTextField ---  RutE
label1.text=DropDownList1.SelectedItem .Value    ' da DataValueField ---campo2

Espero ahora si me haya explicado y sea lo que buscas