Para cargar tu ListView usando tu base de datos SQL, necesitaras primero hacer una consulta... y esa misma consulta, almacenarlo dentro de un objeto DataTable, asi finalmente solo lo tendras que recorrer con un For Each (o cualquier ciclo repetitivo que te sea mas comodo). En lo personal prefiero este para recorrer DataTables.
Voy a utilizar como base de datos Microsoft Access... igual no te preocupes por esto, porque el procedimiento de extraer datos es exactamente igual.
Primero que nada... Define una clase base con el cual vas a realizar tus consultas... Yo tengo la mia ya definida llamada Acceso, con su respectiva conexion. Solamente voy a necesitar usar la siguiente funcion:
Protected Friend Function SelectQuery(ByVal query As String) As DataTable
Dim tabla As New DataTable
con.Open()
Try
comando = New OleDbCommand(query, con)
adapter = New OleDbDataAdapter(comando)
adapter.Fill(tabla)
comando.Dispose()
adapter.Dispose()
Catch ex As Exception
MsgBox("Error en la consulta: " + ex.Message, MsgBoxStyle.Critical)
End Try
con.Close()
Return tabla
End Function
En que consiste esta funcion... pues como veras, esta funcion es de tipo DataTable y necesitara un parametro que sera la consulta (String) a tu base de datos.
- Primero, la funcion declara un objeto de la clase DataTable y abre la
conexion a la base de datos.
- Nos adentramos luego dentro de un Try Catch. Inicializando un atributo de clase llamado comando, instancia de la clase OleDbCommand (que en tu caso, al estar usando SQL, debe ser SqlCommand), pasandole como parametro nuestra consulta y nuestra conexion.
- Luego de eso, inicializamos otro atributo de clase llamado adapter, instancia de la clase OleDbDataAdapter (que en tu caso, debe ser SqlDataAdapter), pasandole como parametro nuestro objeto OleDbCommand.
- Usamos el metodo Fill, pasandole como parametro nuestro objeto DataTable. Aqui nuestro adaptador rellenara de datos usando la consulta recibida y se conectara con tu base de datos gracias a la conexion pasada.
- Eliminamos objetos (comando/adapter) y liberamos memoria con Dispose, ya que el deber de cada uno ha concluido.
Ahora pasamos al siguiente paso, que es muy sencillo, cuando vayamos a solicitar datos para nuestro ListView. Como ejemplo, voy a capturar todos estos datos de esta tabla.
Public Class DemoClassListView
Dim admin As New Acceso
Private Sub DemoClassListView_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ListView1.View = View.Details
ListView1.Columns.Add("Id_Cliente", 75, HorizontalAlignment.Center)
ListView1.Columns.Add("Empresa", 150, HorizontalAlignment.Center)
ListView1.Columns.Add("Direccion", 150, HorizontalAlignment.Center)
ListView1.Columns.Add("Correo", 150, HorizontalAlignment.Center)
For Each itm In admin.SelectQuery("SELECT Id_Cliente, Empresa, Direccion, Correo FROM Cliente").Rows
Dim obj As New ListViewItem(itm(0).ToString)
obj.SubItems.Add(itm(1).ToString)
obj.SubItems.Add(itm(2).ToString)
obj.SubItems.Add(itm(3).ToString)
ListView1.Items.Add(obj)
Next
End Sub
End Class
Nota que primeros tuvimos que construir nuestra ListView sin datos. Y luego proceder a recorrer nuestro DataTable, quiero que le prestes mucha atencion a esta linea de aqui porque es clave:
For Each itm In admin.SelectQuery("SELECT Id_Cliente, Empresa, Direccion, Correo FROM Cliente").Rows
Este es la declaracion de nuestro ciclo for each. En donde creamos un objeto temporal que capturara los datos contenidos en las filas de nuestro DataTable.
Dentro del ciclo:
Dim obj As New ListViewItem(itm(0).ToString)
obj.SubItems.Add(itm(1).ToString)
obj.SubItems.Add(itm(2).ToString)
obj.SubItems.Add(itm(3).ToString)
ListView1.Items.Add(obj)
Como tenemos capturada la fila en nuestra "variable temporal" itm, le señalamos seguidamente la columna de acuerdo a su indice... funciona exactamente igual que los arreglos. Las columnas que selecciones en tu consulta, siempre empezaran desde 0.
Id_Cliente = 0, Empresa = 1, Direccion = 2, Correo = 4, ColumnaQueSigue = 5... y asi sucesivamente.
Igualmente, si tienes pereza de hacerlo de esta forma, puedes simplemente escribir el nombre de cada columna:
Dim obj As New ListViewItem(itm("Id_Cliente").ToString)
obj.SubItems.Add(itm("Empresa").ToString)
obj.SubItems.Add(itm("Direccion").ToString)
obj.SubItems.Add(itm("Correo").ToString)
ListView1.Items.Add(obj)
Y nuestro producto final:
Lo recomendable generalmente, al trabajar con este nivel de base de datos, es usar DataGrids... ni siquiera tendrias la necesidad de construir las columnas... puedes seleccionar las columnas que desees... hacer un JOIN a tu gusto sin tener que andar añadiendo columnas anteriormente... por ejemplo...