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