record in visual basic

[lion_93]

sto realizzando in visual un programma che prende in input dei dati, da all' utente la possibilità di scegliere quale cancellare e infine lo cancella ...... questo è il codice, che ho fatto io ma non riesco a finirlo... mi potete dare una mano ?? :

Private Type contatto
cognome As String * 15
nome As String * 15
telefono As String
cancellato As Boolean
End Type
Dim dato As contatto
Dim risposta As Integer

Private Sub cmdInserisciDati_Click()
numfile = FreeFile()
Open "Rubrica.dat" For Random As numfile Len = Len(dato)
For i = 1 To 3
dato.nome = InputBox("Inserire nome" + Str(i))
dato.cognome = InputBox("Inserire cognome" + Str(i))
dato.telefono = InputBox("Inserire telefono" + Str(i))
dato.cancellato = False
Put numfile, i, dato
Next i
Close numfile
End Sub

Private Sub cmdCancella_Click()
End Sub
numfile = FreeFile
Open "Rubrica.dat" For Random As numfile Len = Len(dato)
While EOF(numfile) = False
Get numfile, , dato
risposta = MsgBox(numfile, vbYesNo, vbQuestion, "Cancellare")
If risposta = vbYes Then
dato.cancellato = True
End If
Wend

If dato.cancellato = True Then
Put nuovo, , dato
End If

[oregon]

Quale Visual Basic? Cosa funziona? Cosa non sai fare?

[lion_93]

Originariamente inviato da oregon
Quale Visual Basic? Cosa funziona? Cosa non sai fare?

scusa se sta fatta male la domanda ma mi sono appena iscritto ..... comunque il visual basic che sto usando è visual basic 6 ....... e la prima parte, cioè quella inerente alla cmdInserisciDati penso sia fatta bene, e del resto del programma che sono titubante...... la parte che non riesco a gare, è quella relativa alla cmdCancella nella quale devo fare prima vedere ad uno ad uno i tre record inseriti all' utente il quale deve scegliere quale cancellare, e poi lo devo cancellare ....

sperodi esserti stato chiaro.... se ci sono altri problemi avvisami !!

[oregon]

Quando "cancelli" in realtà modifichi un campo del record (cancellazione logica). Per modificare effettivamente il campo sul file devi fare la Put all'interno della If nel ciclo.