Mostrar ListView

Hola Fernando,

yo para hacer eso, utilizo normalmente un DataSet y recorro la selección y
añado los campos.

Algo similar a lo que comentas con el dataset sería:

Dim Row
intContador = 1
For Each Row In objDS.Tables("Ejemplo").Rows
ListView1.Items.Add(Row(0), intContador)
intContador = intContador + 1
Next

Espero que te sirva.

Un saludo,

Jorge Serrano Pérez
Microsoft MVP VB.NET
http://www.portalvb.com/
http://weblogs.golemproject.com/jorge/


"Fernando" wrote:

Amigos quiero hacer lo siguiente a ver si alguien me puede
ayudar mostrar asi :

atributo1 atributo2 atributo3 atributo4

pero nose como hacerlo saco las un select * tabla
y mediante un for :
Dim Fila As DataRow
For Each fila In tabla.Rows
Me.ListView1.Items.Add(fila.Item("atributo1"),1)
Me.ListView1.Items.Add(fila.Item("atributo1"),2)
Me.ListView1.Items.Add(fila.Item("atributo1"),3)
Next
Perdone pero aun estoy conociendo el Lenguaje gracias a
todos.. :)

Jorge,

Una duda: en ese caso (para llenar listas, etc.) no sería mejor usar un datareader? consume menos
recursos, no?

Gracias,

"Jorge Serrano [MVP VB]"
escribió en el mensaje news:

Hola Fernando,

yo para hacer eso, utilizo normalmente un DataSet y recorro la selección y
añado los campos.

Algo similar a lo que comentas con el dataset sería:

Dim Row
intContador = 1
For Each Row In objDS.Tables("Ejemplo").Rows
ListView1.Items.Add(Row(0), intContador)
intContador = intContador + 1
Next

Espero que te sirva.

Un saludo,

Jorge Serrano Pérez
Microsoft MVP VB.NET
http://www.portalvb.com/
http://weblogs.golemproject.com/jorge/


"Fernando" wrote:

> Amigos quiero hacer lo siguiente a ver si alguien me puede
> ayudar mostrar asi :
>
> atributo1 atributo2 atributo3 atributo4
>
> pero nose como hacerlo saco las un select * tabla
> y mediante un for :
> Dim Fila As DataRow
> For Each fila In tabla.Rows
> Me.ListView1.Items.Add(fila.Item("atributo1"),1)
> Me.ListView1.Items.Add(fila.Item("atributo1"),2)
> Me.ListView1.Items.Add(fila.Item("atributo1"),3)
> Next
> Perdone pero aun estoy conociendo el Lenguaje gracias a
> todos.. :)
>

Millon de gracias pero podiras especificar un poco mas tu
respuesta.. :)

For Each Row In objDS.Tables("Ejemplo").Rows
no encontre el objDS que es.. gracias..
perdonen mi ignorancia

Hola Oscar,

en ambos casos existen diferencias que dependiendo de la complejidad y
volumen de datos manejados, puede resultar más efectivo utilizar una clase u
otra.

Me explico;

DataReader es un cursor que recorre los registros en una sóla dirección,
hacia adelante. Su particularidad reside en que está conectado a la fuente de
datos.

DataSet trabaja con los datos en memoria, es decir, es una colección
desconectada, de ahí, que si el volumen de datos es grande, indudablemente
incide en el rendimiento de la aplicación, algo que a mi modo de ver no sería
el caso de Fernando, porque de serlo, el control ListView, quizás no fuera el
mejor en este caso. De todos los modos, otra particularidad del DataSet es
que se basa en secuencias de datos XML, lo cuál es a su vez una carga extra
de datos en memoria.

De todos los modos, hay un fenomenal artículo de Dino Esposito sobre temas
varios en el que aunque no comenta implícitamente el tema referente a las
diferencias claras entre DataSet y DataReader, no deja de ser interesante su
lectura
http://www.microsoft.com/spanish/ms...222001.asp

Un saludo,

Jorge Serrano Pérez
Microsoft MVP VB.NET
http://www.portalvb.com/
http://weblogs.golemproject.com/jorge/


"Oscar" wrote:

Jorge,

Una duda: en ese caso (para llenar listas, etc.) no sería mejor usar un datareader? consume menos
recursos, no?

Gracias,

"Jorge Serrano [MVP VB]"
escribió en el mensaje news:
> Hola Fernando,
>
> yo para hacer eso, utilizo normalmente un DataSet y recorro la selección y
> añado los campos.
>
> Algo similar a lo que comentas con el dataset sería:
>
> Dim Row
> intContador = 1
> For Each Row In objDS.Tables("Ejemplo").Rows
> ListView1.Items.Add(Row(0), intContador)
> intContador = intContador + 1
> Next
>
> Espero que te sirva.
>
> Un saludo,
>
> Jorge Serrano Pérez
> Microsoft MVP VB.NET
> http://www.portalvb.com/
> http://weblogs.golemproject.com/jorge/
>
>
> "Fernando" wrote:
>
> > Amigos quiero hacer lo siguiente a ver si alguien me puede
> > ayudar mostrar asi :
> >
> > atributo1 atributo2 atributo3 atributo4
> >
> > pero nose como hacerlo saco las un select * tabla
> > y mediante un for :
> > Dim Fila As DataRow
> > For Each fila In tabla.Rows
> > Me.ListView1.Items.Add(fila.Item("atributo1"),1)
> > Me.ListView1.Items.Add(fila.Item("atributo1"),2)
> > Me.ListView1.Items.Add(fila.Item("atributo1"),3)
> > Next
> > Perdone pero aun estoy conociendo el Lenguaje gracias a
> > todos.. :)
> >
>

Hola Fernando,

por supuesto.

Este sería el código completo:


Dim strConexion As String
Dim objConexion As OleDbConnection
Dim objComando As OleDbDataAdapter
Dim objDS As New DataSet
Dim intContador As Integer
strConexion = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & "DATA SOURCE=" &
"C:\Ejemplo.mdb"
objConexion = New OleDbConnection(strConexion)
objComando = New OleDbDataAdapter("Select * From Tabla", strConexion)
objComando.Fill(objDS, "Ejemplo")
Dim Row
intContador = 1
For Each Row In objDS.Tables("Ejemplo").Rows
ListView1.Items.Add(Row(0), intContador)
intContador = intContador + 1
Next
objConexion.Close()

Un saludo,

Jorge Serrano Pérez
Microsoft MVP VB.NET
http://www.portalvb.com/
http://weblogs.golemproject.com/jorge/


"fernando" wrote:

Millon de gracias pero podiras especificar un poco mas tu
respuesta.. :)

For Each Row In objDS.Tables("Ejemplo").Rows
no encontre el objDS que es.. gracias..
perdonen mi ignorancia