Visual Basic - Ayuda Novato consulta bd

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda Novato consulta bd

Publicado por Martin (75 intervenciones) el 24/06/2012 06:53:33
Hola a todos, tengo una aplicacion en vb 6.0 la cual esta enlazada con dao a bd en access, en un combo de mi aplicacion consulto alumnos, al encontrar uno mando dicha consulta a la bd y cuando lo encuentro muestro todos los campos del renglon en el que encontro dicho alumno, el problema para mi es que tengo que hacer una segunda consulta porque el alumno puede tener mas de un renglon con fechas distintas, debo llenar una bd con todos las fechas en que se repita el alumno pero no encuentro como hacerlo, espero me puedan ayudar a encontrar la solucion, gracias...

'CONSULTO EL ALUMNO EN COMBO1 Y MUESTRO LOS RESULTADOS
Data3.Recordset.FindFirst "ID_ALUMNO LIKE '*" & ID_TXT.Text & "*' "

NOMBRE.TEXT= data3.datarecordset ("ID")

'Aqui necesito realizar una segunda busqueda para que en todos los renglones que encuentre el id del alumno seleccione la fecha y la mande al combo2

If Data3.Recordset.EOF Then Exit Sub
Data3.Recordset.MoveFirst
Do While Not Data3.Recordset.EOF
If Val(Data3.Recordset("ID_ALUMNO")) = Val(ID_TXT.Text) Then
CMBO_FECHAS.Text = Data3.Recordset("FECHA_EXAMEN")
Data3.Recordset.MoveNext
Else
Data3.Recordset.MoveNext
End If
Loop
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

Ayuda Novato consulta bd

Publicado por Alberto8 (14 intervenciones) el 03/07/2012 14:40:56
Te lo dejo medio pseudocodigo

sql = "SELECT fecha FROM "tutabla" WHERE (ID_ALUMNO=NOMBRE.TXT)"
rst.Open sql
rst.MoveFirst
Do While (Not rst.EOF)
Combo2.add(CastString(rst.Fields(0).Value))
rst.MoveNext
Loop
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