Visual Basic Namensliste 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 [/code] 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 |
kann mir denn keiner helfen?? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:46 Uhr. |
Powered by vBulletin® Version 3.8.10 (Deutsch)
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
SEO by vBSEO 3.5.2 ©2010, Crawlability, Inc.