Hey Leute! Ich muss für den Unterricht ne Datenbank programmieren mit der man NAmen und so weiter eintragen kann. Ich habe das Interface schon so gut wie fertig auch den Quellcode, allerdings scheitere ich an ein paar dingen! und das betrifft die suchfunktion, das speichern von namen und so/das erstellen einer datei und das sortieren der einträge ich kopier mal den code
Code:
Option Explicit
Dim namen(1 To 20) As String * 15
Dim nachname(1 To 20) As String * 15
Dim strassen(1 To 20) As String * 15
Dim ort(1 To 20) As String * 20
Dim geb(1 To 20) As Date
Dim namenneu As String
Dim nachnameneu As String
Dim strassenneu As String
Dim ortneu As String
Dim gebneu As Date
Dim i As Single
Dim k As Single
Dim anzahl As String
Dim ende As String
Dim retten As String
Private Sub cmdbeenden_Click()
End
End Sub
Private Sub cmdladen_Click()
i = 0
Open "datenbank.txt" For Input As #1
Do While Not EOF(1)
i = i + 1
Input #1, namen(i), nachname(i), strassen(i), ort(i), geb(i)
lstdatenbank.AddItem namen(i) & vbTab & nachname(i) & vbTab & strassen(i) & vbTab & ort(i) & vbTab & geb(i)
Loop
Close #1
ende = i
End Sub
Private Sub cmdsort_Click()
retten = namen(i)
namen(i) = namen(k)
namen(k) = retten
End Sub
Private Sub cmdspeichern_Click()
Open "datenbank.txt" For Append As #1
Write #1, namenneu, nachnameneu, strassenneu, ortneu, gebneu
Close #1
End Sub
Private Sub form_load()
i = 0
Open "datenbank.txt" For Input As #1
Do While Not EOF(1)
i = i + 1
Input #1, namen(i), nachname(i), strassen(i), ort(i), geb(i)
lstdatenbank.AddItem namen(i) & vbTab & nachname(i) & vbTab & strassen(i) & vbTab & ort(i) & vbTab & geb(i)
Loop
Close #1
ende = i
End Sub
Private Sub cmdclear_click()
lstdatenbank.Clear
End Sub
Private Sub txtnamen_KeyPressed(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnamen = ""
txtnamen.Visible = True
txtnachname.SetFocus
End If
End Sub
Private Sub txtnachname_KeyPressed(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnachnamen = ""
txtnachnamen.Visible = False
txtstrasse.SetFocus
End If
End Sub
außerdem will ich von einer textbox in das nächste springen wenn ich die entertaste drücke, hab da auch schon was versucht aber ihr seht ja dass das nicht klappt! könnt ihr helfen??
danke im vorraus