TODOPIC

Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: piriots en 21 de Febrero de 2006, 16:45:00

Título: Error al consultar un archivo
Publicado por: piriots en 21 de Febrero de 2006, 16:45:00

Hola todopic!! Estoy terminando el curso de visual basic de luis bonilla y al final crea un programa que es como una agenda telefonica, introduces los datos y luego buscas por el nombre y te salen los datos. El problema es que la primera vez que consulto la base de datos funciona bien, pero la segunda vez ya no, me dice error 55, el archivo ya esta abierto.

A que es devido este error??

Este es el codigo del boton consultar

Private Sub Command1_Click(Index As Integer)
Open "C:datos.dat" For Input As 1
Do While Not EOF(1)
Input #1, nombrecogido
Input #1, direcogido
Input #1, telcogido
Input #1, cpcogido

If nombrecogido = Text5.Text Then
    Text1.Text = nombrecogido
    Text2.Text = direcogido
    Text3.Text = telcogido
    Text4.Text = cpcogido
   
    Exit Sub
End If
Loop
Close #1

End Sub

Título: RE: Error al consultar un archivo
Publicado por: Nocturno en 22 de Febrero de 2006, 00:19:00

Escrito originalmente por piriots

---

Hola todopic!! Estoy terminando el curso de visual basic de luis bonilla y al final crea un programa que es como una agenda telefonica, introduces los datos y luego buscas por el nombre y te salen los datos. El problema es que la primera vez que consulto la base de datos funciona bien, pero la segunda vez ya no, me dice error 55, el archivo ya esta abierto.

A que es devido este error??

Este es el codigo del boton consultar

Private Sub Command1_Click(Index As Integer)
Open "C:datos.dat" For Input As 1
Do While Not EOF(1)
Input #1, nombrecogido
Input #1, direcogido
Input #1, telcogido
Input #1, cpcogido

If nombrecogido = Text5.Text Then
    Text1.Text = nombrecogido
    Text2.Text = direcogido
    Text3.Text = telcogido
    Text4.Text = cpcogido
   
    Exit Sub
End If
Loop
Close #1

End Sub

---

Es lógico, date cuenta que la primera vez encuentras el nombre, y sales de la rutina con "exit sub" y por tanto, no se ejecuta el Close #1 y el fichero permanece abierto.
Prueba a poner otro Close#1 delante del Exit sub y debería furular.

Título: RE: Error al consultar un archivo
Publicado por: piriots en 22 de Febrero de 2006, 06:51:00

Solucionado, ahora si funciona muchas gracias nocturno

Título: RE: Error al consultar un archivo
Publicado por: migsantiago en 22 de Febrero de 2006, 10:30:00

Hey piriots

¿qué tal está ese tutorial? a mi me ha costado trabajo aprender Visual Basic.

Si está bueno, ¿me podrías decir de dónde lo bajo?

Gracias

Título: RE: Error al consultar un archivo
Publicado por: piriots en 22 de Febrero de 2006, 12:35:00

Yo lo he decrgado de e-mule, esta bien explicado y se aprende bastante ahunque el nivel es basico, empieza des de cero y acaba con este ejercicio que me ha salido la duda. Busca en e-mule cursos luis bonilla o cursos visual basic y seguro lo encuentras.

Salu2