miércoles, 12 de marzo de 2008

Llenar listview con datos del SQLServer

hola les presento un codigo que lo que hace es el resultado de un SqlDataReader cargar el una Listview desde Visual Studo .... la consulta de SQLServer puede tener varios campos selecionados y la funcion llenara las columnas de la listview con el nombre de los campos selecionados los llenara solito.....antes de presentar el codigo en la listview hay que hacer los siguiente.......en las propiedades se cambia lo siguiente
View=Details
FullRowSelect=true
Gridlines=True
una ves hecho esto se pone el codigo que tiene como valor 1 listview que va a llenar la lista y luego un SqlDataReader que es el resultado de de la consulta


Public Sub CargarLisView(ByVal lvLista As System.Windows.Forms.ListView, ByVal Registro As SqlClient.SqlDataReader)
Try
Dim Columnas As Integer
Dim ItemProducto As System.Windows.Forms.ListViewItem
Dim I As Integer
lvLista.Columns.Clear()
Columnas = Registro.FieldCount
For I = 0 To Columnas - 1
lvLista.Columns.Add(Registro.GetName(I), 100, 0)
Next
lvLista.Items.Clear()
Do While Registro.Read
ItemProducto = lvLista.Items.Add(Registro(0))
For I = 1 To Columnas - 1
If TypeOf (Registro(I)) Is Date Then
ItemProducto.SubItems.Add(CStr(Registro(I)))
Else
If TypeOf (Registro(I)) Is String Then
ItemProducto.SubItems.Add(Registro(I))
Else
ItemProducto.SubItems.Add(Str(Registro(I)))
End If
End If
Next
Loop
Registro.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Preguntas dejen su comentario que podre contestar a sus preguntas o dudas
Salu2
Victor Altamirano

6 comentarios:

Anónimo dijo...

Hello. This post is likeable, and your blog is very interesting, congratulations :-). I will add in my blogroll =). If possible gives a last there on my blog, it is about the Wireless, I hope you enjoy. The address is http://wireless-brasil.blogspot.com. A hug.

Unknown dijo...

Otro ejemplo muy bueno de esto se encuentra en la página de mejoralex .com, el lin es http://www.mejoralex.com/llenar-listview-desde-base-de-datos/comment-page-1#comment-87

Unknown dijo...

Perdón, pongo el correcto.

http://www.mejoralex.com/llenar-listview-desde-base-de-datos

Victor Altamirano Vasquez dijo...

hola Aire
muchas gracias por el aporte :D

Anónimo dijo...

Como um novato, eu estou sempre em busca de artigos que podem me ajudar. Obrigado Wow! Obrigado! Eu sempre quis escrever no meu site algo como isso. Posso tomar parte do seu post no meu blog?

Anónimo dijo...

victoraltamiranov.blogspot.ru sera le blog idéal pour quiconque veut en savoir sur ce sujet. Vous savez beaucoup de sa pratique difficile d'argumenter avec vous (non pas que j'ai vraiment voudrait). Vous devez absolument mettre une toute nouvelle sur un sujet thats écrit sur des années. Des choses fantastiques, tout simplement excellents!