Cargar Dropdownlist

22/07/2004 - 11:05 por XusQ | Informe spam
' Variables de connexió

Dim conn As SqlConnection

Dim adapter As SqlDataAdapter

Dim data As DataSet

Buenas! Cargo un dropdownlist con info de una base de datos y va bien...
pero me gustaría añadir una opcion que fuera "ninguna", lo intento con el
siguiente codigo pero no hace nada... como se hace?



Gracias!

Xus

Dim cadena As String = Application("cadenaConnexio")



conn = New SqlConnection(cadena)

adapter = New SqlDataAdapter("SELECT DISTINCT especie FROM mascota WHERE
especie IS NOT NULL", conn)

data = New DataSet()

adapter.Fill(data)

comboEspecie.Items.Add("Ninguna")



comboEspecie.DataSource = data

comboEspecie.DataTextField = "especie"

comboEspecie.DataValueField = "especie"

comboEspecie.DataBind()

conn.Close()

Preguntas similare

Leer las respuestas

#1 Carlos O. M.
22/07/2004 - 12:43 | Informe spam
A mi rapidamente se me ocurre una opcion

Supon... que la consulta SQL que realizas sobre la base de datos, viene
a ser algo así

SELECT usr_id as id, usr_login as "User login" FROM USUARIOS
(donde el campo id sera el que se devuelva de valor en el dropdownlist,
y el campor "User Login" el que se devuelva como texto)

pues bien, la solucion (una de ellas, como te he comentado) radica en
añadir los valors a la hora de realizar la consulta SQL.
La consulta quedaria así..


select 0 as id, 'ninguno' as "User login"
union
SELECT usr_id as id, usr_login as "User login" FROM
"Superuser"."USUARIOS"


Y ya ta...

un saludo.

P.D: Creo que por ahi tengo un user control que cree, justamente para
solucionar este tema si te interesa, me envias un ?mail :)
chao


"XusQ" escribió en el mensaje
news:
' Variables de connexió

Dim conn As SqlConnection

Dim adapter As SqlDataAdapter

Dim data As DataSet

Buenas! Cargo un dropdownlist con info de una base de datos y va bien...
pero me gustaría añadir una opcion que fuera "ninguna", lo intento con el
siguiente codigo pero no hace nada... como se hace?



Gracias!

Xus

Dim cadena As String = Application("cadenaConnexio")



conn = New SqlConnection(cadena)

adapter = New SqlDataAdapter("SELECT DISTINCT especie FROM mascota WHERE
especie IS NOT NULL", conn)

data = New DataSet()

adapter.Fill(data)

comboEspecie.Items.Add("Ninguna")



comboEspecie.DataSource = data

comboEspecie.DataTextField = "especie"

comboEspecie.DataValueField = "especie"

comboEspecie.DataBind()

conn.Close()


Respuesta Responder a este mensaje
#2 Sergio Florez M.
22/07/2004 - 14:55 | Informe spam
En vez de hacerlo con el metodo Add() hazlo con Insert(), pero hazlo despues
del DataBind(). Si lo haces antes del DataBind() entonces se perderá ya que
este metodo limpia el objeto y lo vuelve a llenar.

Sergio Florez M.
El que persevera insiste
Medellín, Colombia
"XusQ" escribió en el mensaje
news:
' Variables de connexió

Dim conn As SqlConnection

Dim adapter As SqlDataAdapter

Dim data As DataSet

Buenas! Cargo un dropdownlist con info de una base de datos y va bien...
pero me gustaría añadir una opcion que fuera "ninguna", lo intento con el
siguiente codigo pero no hace nada... como se hace?



Gracias!

Xus

Dim cadena As String = Application("cadenaConnexio")



conn = New SqlConnection(cadena)

adapter = New SqlDataAdapter("SELECT DISTINCT especie FROM mascota WHERE
especie IS NOT NULL", conn)

data = New DataSet()

adapter.Fill(data)

comboEspecie.Items.Add("Ninguna")



comboEspecie.DataSource = data

comboEspecie.DataTextField = "especie"

comboEspecie.DataValueField = "especie"

comboEspecie.DataBind()

conn.Close()


Respuesta Responder a este mensaje
#3 XusQ
22/07/2004 - 16:11 | Informe spam
Ostras, las dos opciones son bien buenas!

Gracias amigos!

Xus.

"Sergio Florez M." escribió en el mensaje
news:e4Y1Nu%
En vez de hacerlo con el metodo Add() hazlo con Insert(), pero hazlo


despues
del DataBind(). Si lo haces antes del DataBind() entonces se perderá ya


que
este metodo limpia el objeto y lo vuelve a llenar.

Sergio Florez M.
El que persevera insiste
Medellín, Colombia
"XusQ" escribió en el mensaje
news:
> ' Variables de connexió
>
> Dim conn As SqlConnection
>
> Dim adapter As SqlDataAdapter
>
> Dim data As DataSet
>
> Buenas! Cargo un dropdownlist con info de una base de datos y va bien...
> pero me gustaría añadir una opcion que fuera "ninguna", lo intento con


el
> siguiente codigo pero no hace nada... como se hace?
>
>
>
> Gracias!
>
> Xus
>
> Dim cadena As String = Application("cadenaConnexio")
>
>
>
> conn = New SqlConnection(cadena)
>
> adapter = New SqlDataAdapter("SELECT DISTINCT especie FROM mascota WHERE
> especie IS NOT NULL", conn)
>
> data = New DataSet()
>
> adapter.Fill(data)
>
> comboEspecie.Items.Add("Ninguna")
>
>
>
> comboEspecie.DataSource = data
>
> comboEspecie.DataTextField = "especie"
>
> comboEspecie.DataValueField = "especie"
>
> comboEspecie.DataBind()
>
> conn.Close()
>
>


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida