Vokabel Trainer mit VB und Access Datenbank

Vokabel Trainer mit VB und Access Datenbank (12 Beiträge, 186 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo!

Ich bin gerade dabei einen Vokabel Trainer in Vb zu schreiben. Die Vokabeln liegen in Form einer Access Datenbank vor und zwar in der Form:

Latein | Deutsch
.......................
facio   | tun
fruor   | genießen
   .      |    .
   .      |    .
usw.

Jetzt will ich haben das mir mein Programm zufällig ein Vokabel aus der Datenbank auswählt, ich in einer Textbox den Lösungsvorschlag eingebe und mir das Programm dann sagt, ob die Eingabe richtig war.
Das Programm an sich funktioniert, mein Problem ist nur das es mir immer den gleichen Eintrag, nämlich den ersten aus der Datenbank auswählt und ich habe keine Ahnung warum.

Kann es vielleicht auch an der Datenbank liegen? Könnte irgendetwas falsch eingestellt ist?

So sieht mein Code aus:

Option Explicit
Public oDB As DAO.Database
Public oRs As DAO.Recordset
Dim nPos As Long

Private Sub Form_Load()
Call Zufall
End Sub

Function Zufall()
Randomize -Timer
Label1.Caption = ""
Text1.Text = ""

Set oDB = DBEngine.OpenDatabase(App.Path + "\vokabeln.mdb")
Set oRs = oDB.OpenRecordset("SELECT * FROM Kapitel_14")

nPos = Int(Rnd * oRs.RecordCount + 1)

oRs.AbsolutePosition = nPos - 1

Label1.Caption = "Zu übersetzendes Wort: " & oRs.Fields("Latein").Value

End Function

Private Sub Command1_Click()

  If Text1.Text = oRs.Fields("Deutsch").Value Then

    MsgBox "Korrekt!"

   Else

    MsgBox "Falsch! Richtig wäre: " & oRs.Fields("Deutsch")

  End If

End Sub

Private Sub Command2_Click()
Call Zufall
End Sub

Ich hoffe irgendjemand weiß, warum es nicht funktioniert.

MFG

Sirius

Du darfst den Zufallsgenerator nicht in der Funktion "Zufall" initialisieren, denn dann ist es klar, daß er Dir immer den gleichen Eintrag auswählt. Schreib die Randomize Funktion z.B. in die Form_Load(). Dann müßte es funktionieren.

mfg
Maul

Hab ich versucht, bringt auch nichts.

MFG

Sirius

Schau mal in Deiner Funktion Zufall welchen Wert

oRs.RecordCount

gibt........

mfg

1...

siehste.....

mfg

Aber wieso liefert sie mir 1? Sollte RecordCount nicht normalerweise die Anzahl an Records zurückliefern?

Vorschlag, zwar etwas OT aber trotzdem...: Statt alle Daten ins Programm zu holen und dort einen Eintrag zufaellig auszuwaehlen, lass das doch die Datenbank machen. Mach ein Attribut ID oder sonst was, auto_increment und unique und dann entweder die Zufallszahl im Programm generieren und mit SELECT * FROM table WHERE ID = randomint oder, falls vorhanden, die SQL-Funktion RAND() verwenden.
Psycho@Home
--
The only antidote to mental suffering is physical pain. -- Karl Marx
http://www.internetisshit.org/

Ich habe jetzt endlich die Lösung gefunden: Vor

nPos = Int(Rnd * oRs.RecordCount + 1)

schreibe ich einfach oRs.MoveLast und schon funktiuoniert es prächtig!

Den Hinweis habe ich in einem VB - Forum gefunden.

Danke trotzdem für eure Hilfe!

MFG

Sirius

Klingt nach Latein - mein Beileid

Harti

Danke.....................

Aber ich kann dir versprechen - das geht vorbei

Harti

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung