Ver Mensaje Individual
  #1 (permalink)  
Antiguo 10/08/2010, 08:59
mr_disaster
 
Fecha de Ingreso: agosto-2010
Mensajes: 5
Antigüedad: 13 años, 8 meses
Puntos: 0
Enlazar datos de ComboBox a TextBoxes

Hola! Les planteo la situacion, tengo una tabla llamada tabCLIENTES con las siguientes 7 columnas: ID, RIF, NombreCliente, DireccionCliente, TelefonoCliente, CiudadCliente, EstadoCliente.

Como estoy totalmente novato en VisualBasic despues de dar muchos traspies logre hacer funcionar el siguiente codigo a continuacion de modo que en el ComboBox1 se carguen los datos de la columna NombreCliente...

Que es lo que necesito? Que al yo desplegar el combobox y seleccionar un elemento de alli se rellenen en TextBox los datos asociados a esa persona (direccion, telefono, ciudad, etc). Esto es para un proyecto de la universidad y estoy contrareloj. Solo para consultar datos de la tabla, no para escribir o modificar.


Código:
Public Class VenPRUEBA

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Conexion As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\data.mdb;")
        Dim Comando As OleDb.OleDbCommand
        Dim Lector As OleDb.OleDbDataReader

        Comando = New OleDb.OleDbCommand("SELECT * FROM tabCLIENTES", Conexion)
        Conexion.Open()
        Lector = Comando.ExecuteReader()
        ComboBox1.Items.Clear()
        Do While Lector.Read()
            Me.ComboBox1.Items.Add(Lector(2))
        Loop
        Lector.Close()
        Conexion.Close()

    End Sub
End Class