Hilfe bei einer Datenbank

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Morphesus.

    Hilfe bei einer Datenbank

    Hallo zusammen,

    ich versuche in Visual Basic 2010 Express mir einen "Vokabeltrainer" zu programmieren.
    Dafür soll eine Access-Datenbank die Grundlage sein.

    Hier zu meinem Code:

    Quellcode

    1. Imports System.Data.OleDb
    2. Imports System.Net
    3. Imports System.IO
    5. Class Form1
    6. Dim con As New OleDbConnection
    7. Dim reader As OleDbDataReader
    8. Dim pnummer As New ArrayList
    9. Dim cmd As New OleDbCommand
    10. Public a As String
    13. Private Sub cmdAlleSehen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAlleSehen.Click
    14. AlleSehen()
    15. If Not IO.File.Exists("C:\language_english.mdb") Then
    16. MsgBox("Die Datenbank muss sich auf dem Laufwerk C befinden, damit das Programm ordnungsgemäß ausgeführt werden kann.", MsgBoxStyle.Information)
    17. Exit Sub
    18. End If
    19. End Sub
    22. Private Sub cmdNameSuchen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNameSuchen.Click
    23. If Not IO.File.Exists("C:\language_english.mdb") Then
    24. MsgBox("Die Datenbank muss sich auf dem Laufwerk C befinden, damit das Programm ordnungsgemäß ausgeführt werden kann.", MsgBoxStyle.Information)
    25. Exit Sub
    26. End If
    27. Try
    28. con.Open()
    29. cmd.CommandText =
    30. "select * from english:Tabelle where" & " deutsch like '%" & txtName.Text & "%'"
    31. Ausgabe()
    32. Catch ex As Exception
    33. End Try
    34. con.Close()
    35. End Sub
    38. Private Sub cmdEinfügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEinfügen.Click
    39. If Not IO.File.Exists("C:\language_english.mdb") Then
    40. MsgBox("Die Datenbank muss sich auf dem Laufwerk C befinden, damit das Programm ordnungsgemäß ausgeführt werden kann.", MsgBoxStyle.Information)
    41. Exit Sub
    42. End If
    43. Dim anzahl As Integer
    44. Try
    45. con.Open()
    46. cmd.CommandText =
    47. "insert into english:Tabelle " & "(deutsch, englisch) values ('" & txtName.Text & "', '" & txtVorname.Text & "')"
    48. anzahl = cmd.ExecuteNonQuery()
    49. If anzahl > 0 Then
    50. MessageBox.Show("Die Datenbank wurde aktualisiert!")
    51. End If
    52. Catch ex As Exception
    53. End Try
    54. con.Close()
    55. AlleSehen()
    56. End Sub
    59. Private Sub cmdÄndern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdÄndern.Click
    60. If Not IO.File.Exists("C:\language_english.mdb") Then
    61. MsgBox("Die Datenbank muss sich auf dem Laufwerk C befinden, damit das Programm ordnungsgemäß ausgeführt werden kann.", MsgBoxStyle.Information)
    62. Exit Sub
    63. End If
    64. Dim anzahl As Integer
    65. Try
    66. con.Open()
    67. cmd.CommandText = "update english:Tabelle set " & "deutsch = '" & txtName.Text & "', " & "englisch = '" & txtVorname.Text & "')"
    68. anzahl = cmd.ExecuteNonQuery()
    69. If anzahl > 0 Then
    70. MessageBox.Show("Die Datenbank wurde geändert!")
    71. End If
    72. Catch ex As Exception
    73. End Try
    74. con.Close()
    75. AlleSehen()
    76. End Sub
    79. Private Sub cmdLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLöschen.Click
    80. If Not IO.File.Exists("C:\language_english.mdb") Then
    81. MsgBox("Die Datenbank muss sich auf dem Laufwerk C befinden, damit das Programm ordnungsgemäß ausgeführt werden kann.", MsgBoxStyle.Information)
    82. Exit Sub
    83. End If
    84. Dim anzahl As Integer
    85. If txtName.Text = "" Then
    86. MessageBox.Show("Bitte wählen Sie einen Datensatz aus!")
    87. Exit Sub
    88. End If
    89. Try
    90. con.Open()
    91. cmd.CommandText = "delete from english:Tabelle " & "where deutsch = " & pnummer(lstTab.SelectedIndex)
    92. anzahl = cmd.ExecuteNonQuery()
    93. If anzahl > 0 Then
    94. MessageBox.Show("Der Datensatz wurde gelöscht!")
    95. End If
    96. Catch ex As Exception
    97. End Try
    98. con.Close()
    99. AlleSehen()
    100. End Sub
    102. Private Sub AlleSehen()
    103. Try
    104. con.Open()
    105. cmd.CommandText = "select * from english:Tabelle"
    106. Ausgabe()
    107. Catch ex As Exception
    108. End Try
    109. con.Close()
    110. txtName.Text = ""
    111. txtVorname.Text = ""
    112. End Sub
    115. Private Sub Ausgabe()
    116. reader = cmd.ExecuteReader()
    117. lstTab.Items.Clear()
    118. pnummer.Clear()
    119. Do While reader.Read()
    120. lstTab.Items.Add(reader("deutsch") & " # " & reader("englisch"))
    121. pnummer.Add(reader("deutsch"))
    122. Loop
    123. reader.Close()
    124. End Sub
    126. Private Sub lstTab_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstTab.SelectedIndexChanged
    127. Try
    128. con.Open()
    129. cmd.CommandText = "select * from english:Tabelle" & " where deutsch = " & pnummer(lstTab.SelectedIndex)
    130. reader = cmd.ExecuteReader()
    131. reader.Read()
    132. txtName.Text = reader("deutsch")
    133. txtVorname.Text = reader("englisch")
    134. reader.Close()
    135. Catch ex As Exception
    136. End Try
    137. con.Close()
    138. End Sub
    141. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    142. If Not IO.File.Exists("C:\language_english.mdb") Then
    143. MsgBox("Die Datenbank muss sich auf dem Laufwerk C befinden, damit das Programm ordnungsgemäß ausgeführt werden kann.", MsgBoxStyle.Information)
    144. Exit Sub
    145. End If
    146. lstTab.Visible = True
    147. PictureBox1.Visible = False
    148. End Sub
    151. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    152. If Not IO.File.Exists("C:\language_english.mdb") Then
    153. MsgBox("Die Datenbank muss sich auf dem Laufwerk C befinden, damit das Programm ordnungsgemäß ausgeführt werden kann.", MsgBoxStyle.Information)
    154. Exit Sub
    155. End If
    156. lstTab.Visible = False
    157. PictureBox1.Visible = True
    158. End Sub
    159. End Class


    Mein Problem ist, dass zwar die Textboxen geleert werden, der Eintrag aber nicht in die Datenbank eingefügt wird.

    Könnt ihr mir einen Tipp geben?

    * Topic verschoben *

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „der_Kurt“ ()

    Uff, das nächste mal solltest du alles weglassen bis auf die Method die das Problem verursacht.
    ich geh mal von aus, dass du die hier meinst.

    Und das richtige Subforum wählen :). Lieber Mod schieb das mal ins Datenbankforum

    VB.NET-Quellcode

    1. Private Sub cmdEinfügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEinfügen.Click
    2. If Not IO.File.Exists("C:\language_english.mdb") Then
    3. MsgBox("Die Datenbank muss sich auf dem Laufwerk C befinden, damit das Programm ordnungsgemäß ausgeführt werden kann.", MsgBoxStyle.Information)
    4. Exit Sub
    5. End If
    6. Dim anzahl As Integer
    7. Try
    8. con.Open()
    9. cmd.CommandText =
    10. "insert into english:Tabelle " & "(deutsch, englisch) values ('" & txtName.Text & "', '" & txtVorname.Text & "')"
    11. anzahl = cmd.ExecuteNonQuery()
    12. If anzahl > 0 Then
    13. MessageBox.Show("Die Datenbank wurde aktualisiert!")
    14. End If
    15. Catch ex As Exception
    16. End Try
    17. con.Close()
    18. AlleSehen()
    19. End Sub


    Versuch mal mit ner MessageBox die ex.Message anzuzeigen, die wird dir eventuell sagen was falsch läuft.
    Dafür hast du es ja schließlich in nem Try Catch.

    Titel

    Außerdem solltest Du das hier nicht immer wieder verwenden:

    Quellcode

    1. If Not IO.File.Exists("C:\language_english.mdb") Then
    2. MsgBox("Die Datenbank muss sich auf dem Laufwerk C befinden, damit das Programm ordnungsgemäß ausgeführt werden kann.", MsgBoxStyle.Information)
    3. Exit Sub
    4. End If


    Sobald Du Solche Sachen an mehreren Stellen brauchst, mach eine Methode draus und ruf diese auf.
    Stell dir vor, Du willst an dem Code etwas ändern, dann musst Du das überall machen. Und bei größeren Projekten vergisst man dann schon Mal ein par Stellen.
    Bei einer Methode hättest Du den Code nur an einer Stelle, und würdest ihn auch nur dort ändern.

    Außerdem ist es normalerweise unnötig bei fast jeder Aktion zu prüfen, ob die Datei da ist. Beim Laden des ersten Formulars z.B. würde es reichen. Wenn Du deine Anwendung ein Mal gestartet hast, und die Datei ist während des Starts da, wird sie in der Regel bis zum Beenden nicht mehr wegkommen.

Facebook
Telefonspende