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

Amigo muchisimas gracias! De verdad, me has salvado el pellejo.

El resultado final quedo asi...

Código:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboNombreCliente.SelectedIndexChanged
        Dim Conexion As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\data.mdb;")
        Dim DA As OleDb.OleDbDataAdapter
        Dim DT As New DataTable("tabCLIENTES")

        Conexion.Open()

        DA = New OleDb.OleDbDataAdapter("SELECT ID, RIF, DireccionCliente, TelefonoCliente, CiudadCliente, EstadoCliente FROM tabCLIENTES WHERE NombreCliente ='" & ComboNombreCliente.Text & "'", Conexion)

        DA.Fill(DT)

        Dim indx As Integer
        For indx = 0 To DT.Rows.Count - 1

            CeldaRIF.Text = DT.Rows(indx).Item("RIF")
            CeldaDireccion.Text = DT.Rows(indx).Item("DireccionCliente")
            CeldaCiudad.Text = DT.Rows(indx).Item("CiudadCliente")
            CeldaEstado.Text = DT.Rows(indx).Item("EstadoCliente")
            CeldaTelefono.Text = DT.Rows(indx).Item("TelefonoCliente")
            Conexion.Close()

        Next
    End Sub
En efecto debia usar la funcion WHERE como me indicaste para enlazar el ComboBox a los TextBoxes, nuevamente... GRACIAS!