Hola a todos:
Os explico, he empezado hoy ha aprender VB. La verdad que unicamente queiro para matar el tiempo, y he empezado haciendo una 'base de datos' muyyyyyy rudimental para teer controlados mis juegos.
Lo estoy haciendo con archivo secuencial (ya se que me direis que eso es una burrada pero asi me las apaño ymme sobra )
El tema es ya he hecho para agregar fichas, y para buscar tambie, puedo buscar por Nombre del juego y por numero de cajon (donde lo tengo guardaos, el problema viene ahora,
Tengo un combolist para seleccionar el genero: Avnetura Rpg etc.. Mi intencion es que cuando quiera buscar por genero me aparezcan Solo los nombres de los juegos de ese genero en una list...
He conseguido que aparezca 1 nmbre pero no me aparecen el resto...
Este es el codigo que use en el boton buscar:



Private Sub Command3_Click()
List1.Clear
Open "C:\wiidat.dat" For Input As 1
Do While Not EOF(1)
Input #1, idcog
Input #1, nombrecog
Input #1, genecog
Input #1, imagecog
If genecog = Generot.Text Then
List1.AddItem (nombrecog)
Close #1
Exit Sub
End If
Loop
Close #1
End Sub


El problema es ese, que imaginate que tengo juego 1 aventura, juego2 aventura, si busco genero aventura me aparece el juego 1 pero el juego 2 no...
No se si me he sabido explicar.... XD

Gracias de antemano

Hola,

Yo creo que te sobra lo que he puesto en rojo, dado que sipones esas dos instruccionesal añadir un registro te cierra el archivo y deja de buscar, mientras que si las quitas continuara buscandoy añadiendo hasta que llegue al final del archivo.

Private Sub Command3_Click()
List1.Clear

Open "C:\wiidat.dat" For Input As 1

Do While Not EOF(1)
Input #1, idcog
Input #1, nombrecog
Input #1, genecog
Input #1, imagecog

If genecog = Generot.Text Then
List1.AddItem (nombrecog)
Close #1
Exit Sub
End If
Loop

Close #1

End Sub

Un saludo.

Sii Muchas gracias eso era, ya termine mi 'base de datos jejej q bonita eees XD jajaja