Was ist hier der Fehler? ASP.Net WebForms

  • VB.NET (ASP)
  • Web Forms

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von zn-gong.

    Was ist hier der Fehler? ASP.Net WebForms

    Hallo Zusammen
    Ich habe mich an der Web Programmierung Versucht, mit WebForms.
    Ich hab den Folgenden Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    2. Public Class WebForm1
    3. Inherits System.Web.UI.Page
    5. ' Liste der Fragen
    6. Dim frage As New ArrayList
    8. ' Liste der Antworten
    9. Dim antwort As New ArrayList
    11. ' Zufallszahl für ein Element der beiden Listen
    12. Dim zufallszahl As Integer
    14. ' Richtung der Vokabel-Abfrage
    15. Dim richtung As Integer
    17. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    18. ' Initialisierung des Zufallsgenerators
    19. Randomize()
    21. ' Startrichtung Englisch - Deutsch
    22. richtung = 1
    24. TestStarten()
    26. End Sub
    28. Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    29. ' Falls richtig beantwortet:
    30. ' wort aus Liste nehmen
    32. If TextBox1.Text.Trim.ToLower() = antwort(zufallszahl).Trim.ToLower() Then
    33. Label4.Text = ("Richtig")
    34. frage.RemoveAt(zufallszahl)
    35. antwort.RemoveAt(zufallszahl)
    37. ' Falls falsch beantwortet:
    38. ' richtige Antwort nennen
    39. Else
    40. Label4.Text = (
    41. "Falsch, richtige Antwort ist " &
    42. vbCrLf & "'" &
    43. antwort(zufallszahl) & "'")
    45. End If
    47. ' Nächste Vokabel erscheint
    48. Nächste_Vokabel()
    49. End Sub
    50. Protected Sub TestStarten()
    51. Dim con As New OleDb.OleDbConnection
    52. Dim cmd As New OleDb.OleDbCommand
    53. Dim reader As OleDb.OleDbDataReader
    55. con.ConnectionString =
    56. "Provider=Microsoft.ACE.OLEDB.12.0;" &
    57. "Data Source= C:\EN-3.accdb"
    59. cmd.Connection = con
    60. cmd.CommandText = "select * from vokabel"
    62. frage.Clear()
    63. antwort.Clear()
    65. Try
    66. con.Open()
    67. reader = cmd.ExecuteReader()
    69. ' Speicherung in den Listen gemäß
    70. ' der ausgewählten Richtung
    71. Do While reader.Read()
    72. If richtung = 1 Or richtung = 3 Then
    73. frage.Add(reader("deutsch"))
    74. Else
    75. frage.Add(reader("englisch"))
    76. End If
    78. If richtung = 2 Or richtung = 4 Then
    79. antwort.Add(reader("deutsch"))
    80. Else
    81. antwort.Add(reader("englisch"))
    82. End If
    83. Loop
    85. reader.Close()
    86. con.Close()
    88. ' Erste Vokabel erscheint
    89. Nächste_Vokabel()
    91. Catch ex As Exception
    92. Label3.Text = (ex.Message)
    93. End Try
    94. End Sub
    96. Sub Nächste_Vokabel()
    97. ' Falls keine Vokabel mehr in der Liste: Ende
    98. ' Falls noch Vokabeln in der Liste: Nächste
    99. If frage.Count < 1 Then
    100. Label4.Text = (
    101. "Gratuliere! Alles geschafft")
    102. Test_Init()
    103. Else
    104. zufallszahl = Rnd() * (frage.Count - 1)
    105. Label1.Text = frage(zufallszahl)
    106. TextBox1.Text = ""
    107. End If
    108. End Sub
    109. Sub Test_Init()
    111. ' Felder leeren
    112. Label4.Text = ""
    113. TextBox1.Text = ""
    114. End Sub
    116. 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“ ()

    Bitte was willst du mit ner ArrayList oO
    Nimm entweder nen Dictonary<Question, Answer[]> oder bau dir halt ne Klasse für ne Frage etc.

    Dann solltest du dir noch die System.Random KLasse ansehen sowie Enumerations (nein, nicht Enumerable).
    Außerdem solltest du deinen Controls aussagekräftige Namen verpassen: txtInput, lblSolution bspw.

    Und zu deinem Problem: Hast du mal geguckt was überhaupt in Frage und Antwort drin steht ? Bzw. in der Database ?
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Joa, ist mehr oder weniger eine Frage der Qualität ^^

    Als Idee: Vergleich mal nicht direkt, sondern vergleiche iwie TB.Text.Trim.ToLower = "condition" oder so.
    Als Anregung, guck dir auch mal String.Format an, dann wäre das was du in Zeile 38-41 hast, das:
    Label4.Text = String.Format("Falsch, richtige Antwort ist {0} '{1}'" , Environment.NewLine, antwort(zufallszahl))
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Hab jetzt so:
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​ Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. ' Falls richtig beantwortet:
    3. ' wort aus Liste nehmen
    4. TextBox1.Text.Trim.ToLower()
    6. If TextBox1.Text = antwort(zufallszahl) Then
    7. Label4.Text = ("Richtig")
    8. frage.RemoveAt(zufallszahl)
    9. antwort.RemoveAt(zufallszahl)+
    11. ' Falls falsch beantwortet:
    12. ' richtige Antwort nennen
    13. Else
    14. Label4.Text = (
    15. "Falsch, richtige Antwort ist " &
    16. vbCrLf & "'" &
    17. antwort(zufallszahl) & "'")
    19. End If
    21. ' Nächste Vokabel erscheint
    22. Nächste_Vokabel()
    23. End Sub


    Es funktioniert immer noch nicht:( Liegt dass am Protected Sub??

    Hallo Community
    Ich hab den code weiter Angepasst:

    VB.NET-Quellcode

    1. ​Imports System.Data.OleDb
    2. Public Class WebForm1
    3. Inherits System.Web.UI.Page
    5. ' Liste der Fragen
    6. Dim frage As New ArrayList
    8. ' Liste der Antworten
    9. Dim antwort As New ArrayList
    11. ' Zufallszahl für ein Element der beiden Listen
    12. Dim zufallszahl As Integer
    14. ' Richtung der Vokabel-Abfrage
    15. Dim richtung As Integer
    17. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    18. ' Initialisierung des Zufallsgenerators
    19. Randomize()
    21. ' Startrichtung Englisch - Deutsch
    22. richtung = 1
    24. TestStarten()
    26. End Sub
    28. Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    29. ' Falls richtig beantwortet:
    30. ' wort aus Liste nehmen
    32. If TextBox1.Text.Trim.ToLower() = antwort(zufallszahl).Trim.ToLower() Then
    33. Label4.Text = ("Richtig")
    34. frage.RemoveAt(zufallszahl)
    35. antwort.RemoveAt(zufallszahl)
    37. ' Falls falsch beantwortet:
    38. ' richtige Antwort nennen
    39. Else
    40. Label4.Text = (
    41. "Falsch, richtige Antwort ist " &
    42. vbCrLf & "'" &
    43. antwort(zufallszahl) & "'")
    45. End If
    47. ' Nächste Vokabel erscheint
    48. Nächste_Vokabel()
    49. End Sub
    50. Protected Sub TestStarten()
    51. Dim con As New OleDb.OleDbConnection
    52. Dim cmd As New OleDb.OleDbCommand
    53. Dim reader As OleDb.OleDbDataReader
    55. con.ConnectionString =
    56. "Provider=Microsoft.ACE.OLEDB.12.0;" &
    57. "Data Source= C:\EN-3.accdb"
    59. cmd.Connection = con
    60. cmd.CommandText = "select * from vokabel"
    62. frage.Clear()
    63. antwort.Clear()
    65. Try
    66. con.Open()
    67. reader = cmd.ExecuteReader()
    69. ' Speicherung in den Listen gemäß
    70. ' der ausgewählten Richtung
    71. Do While reader.Read()
    72. If richtung = 1 Or richtung = 3 Then
    73. frage.Add(reader("deutsch"))
    74. Else
    75. frage.Add(reader("englisch"))
    76. End If
    78. If richtung = 2 Or richtung = 4 Then
    79. antwort.Add(reader("deutsch"))
    80. Else
    81. antwort.Add(reader("englisch"))
    82. End If
    83. Loop
    85. reader.Close()
    86. con.Close()
    88. ' Erste Vokabel erscheint
    89. Nächste_Vokabel()
    91. Catch ex As Exception
    92. Label3.Text = (ex.Message)
    93. End Try
    94. End Sub
    96. Sub Nächste_Vokabel()
    97. ' Falls keine Vokabel mehr in der Liste: Ende
    98. ' Falls noch Vokabeln in der Liste: Nächste
    99. If frage.Count < 1 Then
    100. Label4.Text = (
    101. "Gratuliere! Alles geschafft")
    102. Test_Init()
    103. Else
    104. zufallszahl = Rnd() * (frage.Count - 1)
    105. Label1.Text = frage(zufallszahl)
    106. TextBox1.Text = ""
    107. End If
    108. End Sub
    109. Sub Test_Init()
    111. ' Felder leeren
    112. Label4.Text = ""
    113. TextBox1.Text = ""
    114. End Sub
    116. End Class


    Leider tritt immer noch das selbe Problem auf.
    Hat einer eine Lösung??

    VIIIEEEEELLEEN Danke
    PPR

    Hallo,

    Was bitte wilst du mit einen ConString? eigentlich wird in ASP.NET dieser in der "Web.config" notiert und in der Webform kommen LinqToSQL, ObjectDatasurce,SQL-DataSurce,Access Data Surce, XML Data Surce oder sharepoint Data surce zum einsatz. Also es währe sinlos die Datenbanck Connection selbst zu Cooden. Da dir asp.net vieles abnimmt und sogar Escapt (Laufzeitfehler bei ' oder HTML / XML input in Controlls und Daten die an den Server gesendet werden sollen.

    LG, Herbrich

    Hallo,

    eig für den Anfang nur desginer, du erstellst eine LINQ to SQL Klasse, packst da alle Daten Entritäten rein und declarierst einen Datacontext deiner Datenbanck. Und greifst über den auf deine Daten zu.

    LG, Herbrich

Facebook
Telefonspende