Visual Basic - Ver datos del combo

Life is soft - evento anual de software empresarial
 
Vista:

Ver datos del combo

Publicado por tyloya (40 intervenciones) el 02/04/2004 14:47:18
Hola
Tengo un combobox y unas cajas de texto, cómo puedo hacer que al seleccionar un dato en el combo, en las cajas de texto aparezcan datos relacionados con lo que se eligió en el combo,......es decir, tengo una tabla alumnos, con campos:nombre,dni,direccion,etc, y en el combo aparece el nombre de los alumnos, y conforme cambie en el combo el alumno en los txt box deben aparecer datos como dni,etc,´
Cómo lo hago?
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

RE:Ver datos del combo

Publicado por Fabian (501 intervenciones) el 02/04/2004 19:35:19
Utiliza la funcion Find (o FindFirst si usas DAO):
En DAO:
Recordset.FindFirst "Nombre=' " & Trim(Combo1.Text) & " ' "
If Recordset.NoMatch=False then
Text1.Text=Recordset.Fields(0)
Text2.Text=Recordset.Fields(1)
'etc...
end If
En ADO:
Recordset.Find "Nombre=' " & Trim(Combo1.Text) & " ' "
If Recordset.Eof=False then
Text1.Text=Recordset.Fields(0)
Text2.Text=Recordset.Fields(1)
'etc...
end If

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

RE:Ver datos del combo

Publicado por Cristian (108 intervenciones) el 02/04/2004 19:44:38
Hola tyloya.
Lo que tienes que hacer es colocar el siguiente codigo.
esto es con ACCES
llena el combo con los nombres y luego coloca esto
combo1_click()
data1.recorset.movefirts
while not data1.recorset.eof
if tata1.recorset!nombre=combo1 then
text1=data1.recorset!direccion
text2=data1.recorset!dni
end if
data1.recorset.movenext
wend
end sub

el codigo lo hice sin VB porlo que los comandos pueden estar un poco
errados pero detodas formas funciona
espero te sirva
si tienes problemas escribeme
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

RE:Ver datos del combo

Publicado por tyloya (40 intervenciones) el 05/04/2004 10:22:59
Gracias a los dos, era lo que necesitaba,...si tengo cualquier problema lo consultaré.
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

RE:Ver datos del combo

Publicado por Stump Kops (41 intervenciones) el 09/04/2004 23:57:53
Podrías usar el evento Click del ComboBox para cargar los datos del alumno seleccionado. Por ejemplo, podrías hacer una función que devuelva registros desde la base de datos buscando por el apellido de un alumno:

Private Sub Combo1_Click()
Dim sApellido$

sAppelido = Combo1.List(Combo1.ListIndex)

'Se supone que el procedimiento CargarDatos recorre un Recordset buscando
'sApellido y cuando lo encuentra carga ese registro en los cuadros de texto.
'
Call CargarDatos(sApellido)
End Sub

También podrías cargar todos los campos "Apellido" del recordset en el ComboBox y reconocerlo por el indice. De esa forma sería más rápido cargar los datos.

Espero que te halla servido. Suerte
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