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()
 

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()


Preguntas similares