Visual Basic - Pasar datos de ComboBox a TextBox

Life is soft - evento anual de software empresarial

Pasar datos de ComboBox a TextBox

Publicado por fernando (17 intervenciones) el 02/01/2014 13:56:34

Hola a todos, tengo un formulario en el cual hay un ComboBox y varios TextBox en el ComboBox me sale los nombres que tengo en una tabla de una base de datos de acces 2007 y los TextBox en blanco (esto está bien así) y lo que quiero es que al desplegar el ComboBox y hacer clip en un nombre me salgan todos los datos de esa persona en los distintos TextBox que tengo en el formulario (los datos están en distintos campos de la tabla).

La base de datos se llama Control Socios ZIONN
Y la tabla se llama ZIONN

Alguien me puede ayudar?
Gracias.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pasar datos de ComboBox a TextBox

Publicado por miguel (8 intervenciones) el 02/01/2014 15:40:23

Sería algo como esto:
en el click del combo

SQL = "SELECT CAMPO1, CAMPO2 " & _

    "FROM TU_TABLA " & _

    "WHERE DATO_BUSCADO = '" & cboCombo.Text & "'"

Set Comm = New ADODB.Command

Set Comm.ActiveConnection = Conn

    Comm.CommandType = adCmdText

    Comm.CommandText = sSQL

Set Rec = New ADODB.Recordset

    Rec.LockType = adLockOptimistic

    Rec.CursorType = adOpenDynamic

    Rec.CursorLocation = adUseClient

    Rec.Open Comm

If cboCombo.Text <> "" Then

    txtText1.Text = Rec!CAMPO1

    txtText2.Text = Rec!CAMPO2

End if

Tienes que modificar los nombres de los campos y tablas de acuerdo a tus datos

Saludos

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pasar datos de ComboBox a TextBox

Publicado por Fernando (17 intervenciones) el 02/01/2014 18:13:12

Hola Miguel, Gracias pero no funciona.
En el ComboBox solo me sale un nombre, y cuando desplego el combo para ver mas nombres me sale una linea en blanco, y en la tabla hay 5 nombres que puse aleatoriamente con direccion, poblacion. etc. etc.

Valora esta respuesta

Comentar

Pasar datos de ComboBox a TextBox

Publicado por miguel (8 intervenciones) el 02/01/2014 18:30:53

hola Fernando, cómo estás cargando el combo? cuál es el código?

Valora esta respuesta

Comentar

Pasar datos de ComboBox a TextBox

Publicado por Fernando (17 intervenciones) el 02/01/2014 19:59:37

Este es el código que tengo.

'TODO: esta línea de código carga datos en la tabla 'Control_Socios_ZIONNDataSet1.ZION' Puede moverla o quitarla según sea necesario.

Me.ZIONTableAdapter.Fill(Me.Control_Socios_ZIONNDataSet1.ZION)

Valora esta respuesta

Comentar

Pasar datos de ComboBox a TextBox

Publicado por miguel (8 intervenciones) el 02/01/2014 20:16:35

Prueba con algo como esto:

Sub CargaCombo()

Dim i

    SQL = "SELECT DISTINCT CAMPO1 " & _

    "FROM TU_TABLE"

Set Comm = New ADODB.Command

Set Comm.ActiveConnection = Conn

    Comm.CommandType = adCmdText

    Comm.CommandText = sSQL

Set Rec = New ADODB.Recordset

    Rec.LockType = adLockOptimistic

    Rec.CursorType = adOpenDynamic

    Rec.CursorLocation = adUseClient

    Rec.Open Comm

    cboCombo.Clear

For i = 1 To Rec.RecordCount

    cboCombo.AddItem Rec.Fields(0)

    Rec.MoveNext

Next i

End Sub

Valora esta respuesta

Comentar

Pasar datos de ComboBox a TextBox

Publicado por Fernando (17 intervenciones) el 02/01/2014 20:38:09

Hola miguel otra vez, pero sigue sin funcionar.

Valora esta respuesta

Comentar

Pasar datos de ComboBox a TextBox

Publicado por norely (1 intervención) el 06/05/2014 22:58:30

Hola ya lo pudiste Solucionar?

Valora esta respuesta

Comentar

Borrar saltos de línea

Una duda sencilla pero me urge!!!!