Visual Basic - Pasar datos de ComboBox a TextBox

Life is soft - evento anual de software empresarial
   
Vista:

Pasar datos de ComboBox a TextBox

Publicado por fernando fezaca@hotmail.es (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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Agenda en memoria
- Año bisiesto
- AntiSpyware

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Pasar datos de ComboBox a TextBox

Publicado por Fernando fezaca@hotmail.es (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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Pasar datos de ComboBox a TextBox

Publicado por Fernando fezaca@hotmail.es (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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Pasar datos de ComboBox a TextBox

Publicado por miguel (8 intervenciones) el 02/01/2014 20:16:35
Prueba con algo como esto:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Pasar datos de ComboBox a TextBox

Publicado por Fernando fezaca@hotmail.es (17 intervenciones) el 02/01/2014 20:38:09
Hola miguel otra vez, pero sigue sin funcionar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Pasar datos de ComboBox a TextBox

Publicado por norely norelibuitrago@hotmail.com (1 intervención) el 06/05/2014 22:58:30
Hola ya lo pudiste Solucionar?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar