ayuda con base de datos y listview

[fernando_11]

hola:
tengo la siguiente duda necesito guardar datos que estan en un listview en una base de datos access. la verdad es que me resulta con dos campos, pero quiero hacerlo para 15 campos. la idea es hacerlko en un while

Cualquier informacion es bien recibida.

GRACIAS....

[mariano_donati]

Con bucles anidados lo podrías hacer. El primer bucle se encargaría de recorrer todas las filas del ListView, y el segundo bucle las columnas respectivas de estas. Algo así es como lo haría:

Dim IndiceFila AS Integer
Dim IndiceColumna As Integer

For IndiceFile = 0 To ListView.Items.Count - 1

For IndiceColumna = 0 To ListView.Columns.Count - 1

AgregarABaseDeDatos(ListView.Items(IndiceFile).Sub Items(IncideColumna).Text)

Next

Next

Supongo que eso funcionaría.
Saludos!.

[fernando_11]

sabes hago lo que me dices pero lo trato de asignar a la base de datos como me dices pero no toma los registros. ejemplohago esto:

agregar("cliente") = (ListView1.Items(IndiceFila).SubItems(IndiceColumn a).Text)

agregar.Item("cliente") = (ListView1.Items(IndiceFila).SubItems(IndiceColumn a).Text)

agregar crea nueva fila en el DataRow

puedes especificar bien la forma que me dices de "AgregarABaseDeDatos"

gracias...

[mariano_donati]

Si, disculpame, la verdad que con bucles anidados no funciona. Se me ocurre algo así. Definis constantes que sean descriptivas de los campos, estas tendrían que tener su indice de columna. Por ejemplo, si vos tenés en tu ListView 2 columnas, IdCliente y NombreCliente, entonces definis una constante _cIdCliente = 0, _cNombreCliente = 1. Después si recorrés con un bucle todos los items del ListView para agregarlos.

Dim NuevaFila As DataRow

For I = 0 To ListView.Items.Count - 1

NuevaFila = DataTable.NewRow
NuevaFila("IdCliente") = ListView.Items(I).SubItems(_cIdCliente).Text
NuevaFila("NombreCliente") = ListView.Items(I).SubItems(_cNombreCliente).Text
DataTable.Rows.Add(NuevaFila)

Next

Las constantes solamente las definís para hacerlo más descriptivo y más entendible, ya que es mucho más comprensible poner _cIdCliente en luegar de 0 para especificar el indice de la columna.
Espero que te sirva de alguna manera.
Suerte!.

[fernando_11]

gracias por el tips, la verdad es que funciona bien, gracias por tu tiempo y tus conocimientos

[albestain]

¿Cómo puedo obtener el campo que intersecciona la fila 1 con la columna "Nombre" en Visual Basic?

Si alguien sabe la respuesta ...... muchas gracias.

[Maxi.Net]

HOla revisa este enlace....

http://www.forosdelweb.com/f29/sacar-valor-subitem-listview-350296/

Saludos

[SoloVisual]

Iniciado por mariano_donati

Si, disculpame, la verdad que con bucles anidados no funciona. Se me ocurre algo así. Definis constantes que sean descriptivas de los campos, estas tendrían que tener su indice de columna. Por ejemplo, si vos tenés en tu ListView 2 columnas, IdCliente y NombreCliente, entonces definis una constante _cIdCliente = 0, _cNombreCliente = 1. Después si recorrés con un bucle todos los items del ListView para agregarlos.

Dim NuevaFila As DataRow

For I = 0 To ListView.Items.Count - 1

NuevaFila = DataTable.NewRow
NuevaFila("IdCliente") = ListView.Items(I).SubItems(_cIdCliente).Text
NuevaFila("NombreCliente") = ListView.Items(I).SubItems(_cNombreCliente).Text
DataTable.Rows.Add(NuevaFila)

Next

Las constantes solamente las definís para hacerlo más descriptivo y más entendible, ya que es mucho más comprensible poner _cIdCliente en luegar de 0 para especificar el indice de la columna.
Espero que te sirva de alguna manera.
Suerte!.

[SoloVisual]

Hola Mariano
Este codigo es exactamente lo que requiero pero no me funciona como lo describes, te doy estos datos para ver si me ayudas
Tengo un listview con 2 columnas: Antecedente y Descripción
Necesito guardar varias filas del listview en un solo campo de tabla llamada tPacientes creada en visual basic 6. Es posible esto?
Agradezco tu ayuda