U R G E N T E ! ! !

LUGHER
31 de Octubre del 2004
Necesito ayuda porfavor haber si pueden ayudarme:
tengo que realizar una busqueda en una base de datos donde muestre ne un list, o en un data grid o en lo que sea , los alumnos que pertenecen a el maestre que se teclee en un textbox, tengo el siguiente codigo pero solo me muestra de una persona :

Private Sub Command1_Click()
If list.BOF = False And list.EOF = False Then
If Text10.Text = "" Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""

Else
buscar = "profesor like '*" & Text10.Text & "*'"
list.FindFirst buscar
If Not (list.NoMatch) Then
Text1.Text = list!nombre
Text2.Text = list!grado
Text3.Text = list!cinta
Text4.Text = list!escuela
Text5.Text = list!peso
Text6.Text = list!edad
Text7.Text = list!profesor

Else
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""

End If
End If
End If
End Sub

como le hago para que me los despliegle en una lista????

LUGHER
31 de Octubre del 2004
si me podrias ayudar con un ejemplo de favor para que me quedara mas claro gracias de antemano.

alejandro
31 de Octubre del 2004
list es un recordset? supongo que devuelve uno solo porque findfirst y esto lo posiciona en el primer lugar que cumple

bezael
31 de Octubre del 2004
HOLA a todos.
Para lograr lo qu quieres tienes que hacer "algunas" modificaciones en tu codigo, si quieres mostrar más de un resultado en tu busqueda debes hacer un bucle, más o menos como el [ DO WHILE ] que hay debajo, otra cosa no puedes mostrar la busque en TextBoxs, porque cuando lo rellenes con los datos y exita otro los TextBoxs, se sobre escribiran, debes mostrar la busqueda en un ListBox, o cualquier otro contenedor de datos. En este codigo trato de darte una idea de como debes hacerlo más o menos, asi como está es dificil. Si quieres enviame todo el proyecto y areglamos ese problema.






---------------------------------------------------------------------------
Private Sub Command1_Click()
If list.BOF = False And list.EOF = False Then
If Text10.Text = "" Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""

Else
buscar = "profesor like '*" & Text10.Text & "*'"

DO WHILE NOT LIST.EOF
list.FindFirst buscar
If Not (list.NoMatch) Then

List1.AddItem buscar

loop

Else
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""

End If
End If
End If
End Sub
---------------------------------------------------------------------------

sereno
31 de Octubre del 2004
hola: porque no utiliza mejor sql, seria mucho mas facil y rapido