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
'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


0