lunes, 22 de septiembre de 2008

Un Hash qué?

Vagando por los bajos mundos del internet y viendo algunos sistemas RIAD de 6 teras (Yo quiero!!), me he topado con un nuevo problema que ya disqué resolví. El terrible llenado de un listbox desde una base de datos usando un hashtable. Ustedes se han de preguntar que demonios es un hash table o hash map. es una matriz o colección de datos relacionados en par por una clave.

Teoria... Aburrida y practica. Pasemos a lo que de verdad entendemos, código!!!!

'Creamos una colección del tipo hashtable y un data table. Bueno, tambien crea la conexion y los comandos.
'Ojo, yo uso clases de conexión.
Dim testHashmap as new HashTable
Dim dt as new DataTable

cn = conecta() 'Esta una función de mi clase conexion
cmd.CommandText = "select id, nombre from cliente" 'Consulta
cmd.Connection = cn
da.SelectComand = cmd 'Dando al dataAdapter la consulta.
da.fill(dt)

'Llenado del hashtable
for i as integer = 0 to dt.Rows.Count()
dim id as integer
id = dt.Rows(i)("id")
dim nom as String
nom = dt.Rows(i)("nombre")
testHashmap.add(id, nom)
next

list1.dataSource = testHashmap
list1.DataValueField = "key"
list1.DataTextField = "Value"
list1.DataBind()

Y eso es todo para llenar la list desde una base de datos usando un HashTable.

Mas adelante publicare mis clases de conexion.

besitos!!

No hay comentarios: