Hallo Zusammen
Ich habe mich an der Web Programmierung Versucht, mit WebForms.
Ich hab den Folgenden Code:
Spoiler anzeigen
Wenn ich in die Textbox das Einzige Wort der Datenbank richtig Eingebe kommt aber die Antwort "Fehler....."
Was mach Ich Falsch?? Könnt ihr mir auf die Sprünge Helfen??
LG und Danke PPR
Ich habe mich an der Web Programmierung Versucht, mit WebForms.
Ich hab den Folgenden Code:
VB.NET-Quellcode
- Imports System.Data.OleDb
- Public Class WebForm1
- Inherits System.Web.UI.Page
- ' Liste der Fragen
- Dim frage As New ArrayList
- ' Liste der Antworten
- Dim antwort As New ArrayList
- ' Zufallszahl für ein Element der beiden Listen
- Dim zufallszahl As Integer
- ' Richtung der Vokabel-Abfrage
- Dim richtung As Integer
- Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- ' Initialisierung des Zufallsgenerators
- Randomize()
- ' Startrichtung Englisch - Deutsch
- richtung = 1
- TestStarten()
- End Sub
- Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- ' Falls richtig beantwortet:
- ' wort aus Liste nehmen
- If TextBox1.Text.Trim.ToLower() = antwort(zufallszahl).Trim.ToLower() Then
- Label4.Text = ("Richtig")
- frage.RemoveAt(zufallszahl)
- antwort.RemoveAt(zufallszahl)
- ' Falls falsch beantwortet:
- ' richtige Antwort nennen
- Else
- Label4.Text = (
- "Falsch, richtige Antwort ist " &
- vbCrLf & "'" &
- antwort(zufallszahl) & "'")
- End If
- ' Nächste Vokabel erscheint
- Nächste_Vokabel()
- End Sub
- Protected Sub TestStarten()
- Dim con As New OleDb.OleDbConnection
- Dim cmd As New OleDb.OleDbCommand
- Dim reader As OleDb.OleDbDataReader
- con.ConnectionString =
- "Provider=Microsoft.ACE.OLEDB.12.0;" &
- "Data Source= C:\EN-3.accdb"
- cmd.Connection = con
- cmd.CommandText = "select * from vokabel"
- frage.Clear()
- antwort.Clear()
- Try
- con.Open()
- reader = cmd.ExecuteReader()
- ' Speicherung in den Listen gemäß
- ' der ausgewählten Richtung
- Do While reader.Read()
- If richtung = 1 Or richtung = 3 Then
- frage.Add(reader("deutsch"))
- Else
- frage.Add(reader("englisch"))
- End If
- If richtung = 2 Or richtung = 4 Then
- antwort.Add(reader("deutsch"))
- Else
- antwort.Add(reader("englisch"))
- End If
- Loop
- reader.Close()
- con.Close()
- ' Erste Vokabel erscheint
- Nächste_Vokabel()
- Catch ex As Exception
- Label3.Text = (ex.Message)
- End Try
- End Sub
- Sub Nächste_Vokabel()
- ' Falls keine Vokabel mehr in der Liste: Ende
- ' Falls noch Vokabeln in der Liste: Nächste
- If frage.Count < 1 Then
- Label4.Text = (
- "Gratuliere! Alles geschafft")
- Test_Init()
- Else
- zufallszahl = Rnd() * (frage.Count - 1)
- Label1.Text = frage(zufallszahl)
- TextBox1.Text = ""
- End If
- End Sub
- Sub Test_Init()
- ' Felder leeren
- Label4.Text = ""
- TextBox1.Text = ""
- End Sub
- End Class
Wenn ich in die Textbox das Einzige Wort der Datenbank richtig Eingebe kommt aber die Antwort "Fehler....."
Was mach Ich Falsch?? Könnt ihr mir auf die Sprünge Helfen??
LG und Danke PPR
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „PPR-Dev“ ()