Foro de elhacker.net

Buenas a todos.
Les sigo desde hace tiempo y me han solucionado muchas dudas.
Estoy intentando hacer una aplicacion que lee lineas de un texto plano y las guarda como items de un listbox:

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Empezammos 
        'Declaramos la variable para 
        'la ruta del archivo
        Dim archivo As String
        'Damos el valor a la variable archivo
        archivo = "C:\mymail.txt"
        'Comprob amos que existe
        If My.Computer.FileSystem.FileExists(archivo) Then
            'no hace nada
        Else
            'saltare un mensaje de error 
            'critico en una ventana emergente
            MsgBox("El archivo no ha sido encontrado", MsgBoxStyle.Critical)
        End If
 
        'Declaramos las variable de las cadena de datos
        Dim lector As New System.IO.StreamReader(archivo)
        ' Leer el contenido mientras no se llegue al final
        While lector.Peek() <> -1
            ' Leer una linea del fichero
            Dim s As String = lector.ReadLine()
            ' Si no esta vacia, incluirla al control
            ' Si esta vacia, continuar el bucle
            If String.IsNullOrEmpty(s) Then
                Continue While
            End If
            ListBox1.Items.Add(s)
        End While
        ' Cerrar el fichero
        lector.Close()
    End Sub
 

Ahora  lo que quiero hacer es almacenar estos datos de los items en una base de datos de acces ,para ello añado el origen de datos y arrastro los textbox y los label al formulario


Ahora viene la pregunta como puedo pasar esos items a los text box para que se almacenen en la base de datos?
Lo he intentado con :
Listbox1.item(1)=TemperaturaTextbox.Text
y nada
Un saludo de un novato

HOLA!!!

Esto va en .Net (http://foro.elhacker.net/net-b62.0/)

Reportado

GRACIAS POR LEER!!!

Lo que quieres es que un textbox tenga el valor de algun item del listbox verdad ?
Para eso tienes que hacer asi

Textbox1.text=Listbox1.Items.Item(indice)

Y como tu lo tenias es al reves, estabas haciendo que el valor del textbox pasara al listbox(indice)

El problema es que el text box no es  puesto por mi desde tools ,sino que lo arrastro desde origenes de datos y se corresponde con un campo de una tabla acces

Private Sub Piscinabeta_tablaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.Piscinabeta_tablaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.PiscinatorbetaDataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'PiscinatorbetaDataSet.Piscinabeta_tabla' table. You can move, or remove it, as needed.
        Me.Piscinabeta_tablaTableAdapter.Fill(Me.PiscinatorbetaDataSet.Piscinabeta_tabla)

    End Sub