ayuda con un registro

[marina22lalinda]

hola no se si me podrias ayudar
lo que pasa es que necesito hacer un programa en visual basic el cual tiene que eliminar y hacer una base de datos temporal, este es el codigo que estoy ocupando pero no corre.
Dim nombrecogido As String
Dim dircogido As String
Dim telcogido As String
Dim correocogido As String
Dim sexocogido As String

Private Sub Command1_Click()
Open "C:\Users\Documents\TAREAS\VISUAL BASIC\datos.txt" For Input As 1
Open "C:\Users\Documents\TAREAS\VISUAL BASIC\pasadatos.txt" For Append As 2
If Not EOF(1) Then
Input #1, nombrecogido
Input #1, dircogido
Input #1, telcogido
Input #1, correocogido
Input #1, sexocogido
If nombrecogido = Text6.Text Then
Text1.Text = nombrecogido
Text2.Text = dircogido
Text3.Text = telcogido
Text4.Text = correocogido
Text5.Text = sexocogido
Else
Write #2, nombrecogido
Write #2, dircogido
Write #2, telcogido
Write #2, correocogido
Write #2, sexocogido
End If
Loop
Close #1
Close #2
Kill "C:\Users\Documents\TAREAS\VISUAL BASIC\datos.txt"
Name "C:\Users\Documents\TAREAS\VISUAL BASIC\pasadatos.txt" As "C:\Users\Documents\TAREAS\VISUAL BASIC\datos.txt"
End Sub


Este es el codigo que estoy ocupando pero al eliminar la base de datos orignal me elimina el segundo block de notas el cual va a ser para la base de datos temporal

[erbuson]

Hola:

Creo que no te funciona porque estás leyendo un solo registro y debes tener un bucle que los lea todos.

Copio tu código y te indico para que lo veas mas facilmente:

Private Sub Command1_Click()
Open "C:\Users\Documents\TAREAS\VISUAL BASIC\datos.txt" For Input As 1
Open "C:\Users\Documents\TAREAS\VISUAL BASIC\pasadatos.txt" For Append As 2
If Not EOF(1) Then
While Not EOF(1)
Input #1, nombrecogido
Input #1, dircogido
Input #1, telcogido
Input #1, correocogido
Input #1, sexocogido
If nombrecogido = Text6.Text Then
Text1.Text = nombrecogido
Text2.Text = dircogido
Text3.Text = telcogido
Text4.Text = correocogido
Text5.Text = sexocogido
Else
Write #2, nombrecogido
Write #2, dircogido
Write #2, telcogido
Write #2, correocogido
Write #2, sexocogido
End If
WEND
End If
Close #1
Close #2
Kill "C:\Users\Documents\TAREAS\VISUAL BASIC\datos.txt"
Name "C:\Users\Documents\TAREAS\VISUAL BASIC\pasadatos.txt" As "C:\Users\Documents\TAREAS\VISUAL BASIC\datos.txt"
End Sub

Debes sustituir tus sentencias que te marco en rojo por las que te pongo en azul, esto significa que debe leer el fichero hasta que sea fin del mismo.


Saludos