Vokabel Trainer mit VB und Access Datenbank

Re(3): Vokabel Trainer mit VB und Access Datenbank

Harti — Sun, 31 Aug 2003 17:16:45 GMT

Aber ich kann dir versprechen - das geht vorbei

Re(2): Vokabel Trainer mit VB und Access Datenbank

Sirius — Sun, 31 Aug 2003 16:56:03 GMT

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

Re: Vokabel Trainer mit VB und Access Datenbank

Harti — Sun, 31 Aug 2003 15:31:35 GMT

Klingt nach Latein - mein Beileid

Re: Vokabel Trainer mit VB und Access Datenbank

Sirius — Sun, 31 Aug 2003 12:47:19 GMT

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

Re(4): Vokabel Trainer mit VB und Access Datenbank

Sirius — Sun, 31 Aug 2003 11:46:34 GMT

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

Re: Vokabel Trainer mit VB und Access Datenbank

Psychopath — Sun, 31 Aug 2003 11:30:42 GMT

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.

Re(3): Vokabel Trainer mit VB und Access Datenbank

luze — Sun, 31 Aug 2003 10:53:16 GMT

siehste.....

mfg

Re(2): Vokabel Trainer mit VB und Access Datenbank

Sirius — Sun, 31 Aug 2003 09:16:43 GMT

1...

Re: Vokabel Trainer mit VB und Access Datenbank

luze — Sun, 31 Aug 2003 06:16:32 GMT

Schau mal in Deiner Funktion Zufall welchen Wert

oRs.RecordCount

gibt........

mfg

Re(2): Vokabel Trainer mit VB und Access Datenbank

Sirius — Sat, 30 Aug 2003 14:30:15 GMT

Hab ich versucht, bringt auch nichts.

MFG

Sirius

Re: Vokabel Trainer mit VB und Access Datenbank

Darth Maul — Sat, 30 Aug 2003 14:09:01 GMT

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

Vokabel Trainer mit VB und Access Datenbank

Sirius — Sat, 30 Aug 2003 13:49:24 GMT

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