Arraylist

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von conhold.

    Arraylist

    hallo experts...
    ich möchte (als Übung für meinen Job) ein kleines Verwaltungsprogramm für meine Filmesammlung in VB schreiben.
    Dazu habe ich eine im VB2008 eine lokale Datenbank (MovieDB.mdf) angelegt.
    Dann habe ich ein ListboxControl-Element auf meinem Formular welches mir die Daten aus der Tabelle anzeigt.
    Desweiteren gibt es ein Paar Textfelder für die Tabellenwerte und und ein paar Buttons. Die ersten Funktionen (anzeigen und hinzufügen) funktionieren einwandfrei.
    So weit so gut. Nun zu meinem Problem:
    für die Funktion Ändern soll/muss vorher ein Datensatz im Listenfeld (lstTab2) ausgewählt werden. Die Daten des Feldes sollen dann wieder in den Textboxen erscheinen.
    Dazu habe ich eine Funktion gefunden die aber ein Paar fehler aufweist. Irgendwie gibt es da eine Arraylist (Myal) aber die ist nirgens deklariert. Was muss ich tun?
    anbei mein Code...

    ich hoffe mir kann jem. helfen. Danke im Voraus

    VB.NET-Quellcode

    1. Imports System.Data.SqlClient
    2. Imports System.Collections.ArrayList
    4. Public Class Bearbeiten
    6. Private Sub Spezial_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    7. Übersicht()
    8. End Sub
    10. Private Sub btnHinzufügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHinzufügen.Click
    11. Dim anzahl As Integer
    12. Dim con As New SqlClient.SqlConnection
    13. Dim cmd As New SqlClient.SqlCommand
    15. If txtName.Text = "" Then
    16. MsgBox("Bitte mindestens einen Namen eintragen")
    17. Exit Sub
    18. End If
    20. Try
    21. con.ConnectionString = _
    22. "Data Source=.\SQLEXPRESS;AttachDbFilename=E:\VB Projects\Movies\Movies\MovieDB.mdf;Integrated Security=True;User Instance=True"
    23. cmd.Connection = con
    24. con.Open()
    25. cmd.CommandText = _
    26. "insert into Movie " & _
    27. "(ID, Name, Erscheinungsjahr, Genre, Schauspieler, Auszeichnungen, Bewertung, Sonstiges) " & _
    28. "values ('" & _
    29. txtID.Text & "', '" & _
    30. txtName.Text & "', '" & _
    31. txtJahr.Text & "', '" & _
    32. txtGenre.Text & "', '" & _
    33. txtActors.Text & "', '" & _
    34. txtAuszeichnungen.Text & "', '" & _
    35. txtBewertungen.Text & "', '" & _
    36. txtSonstiges.Text & "')"
    38. 'MsgBox(cmd.CommandText)
    39. anzahl = cmd.ExecuteNonQuery()
    40. If anzahl > 0 Then
    41. MsgBox("Es wurde ein Datensatz eingefügt")
    42. End If
    43. Catch ex As Exception
    44. MsgBox(ex.Message)
    45. End Try
    47. con.Close()
    49. Übersicht() ' Aufruf der Funktion Übersicht
    50. End Sub
    52. Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSchliessen.Click
    53. Me.Hide() ' Schliessen des aktuellen Formulars
    54. End Sub
    56. Private Sub lstTab2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstTab2.SelectedIndexChanged
    57. Dim con As New SqlClient.SqlConnection
    58. Dim cmd As New SqlClient.SqlCommand
    59. Dim reader As SqlClient.SqlDataReader
    61. Try
    62. con.ConnectionString = _
    63. "Data Source=.\SQLEXPRESS;AttachDbFilename=E:\VB Projects\Movies\Movies\MovieDB.mdf;Integrated Security=True;User Instance=True"
    64. cmd.Connection = con
    65. con.Open()
    66. cmd.CommandText = _
    67. "select * from Movie " _
    68. & "where Name = " & Myal(lstTab2.SelectedIndex)
    70. reader = cmd.ExecuteReader()
    71. reader.Read()
    73. txtID.Text = reader("ID")
    74. txtName.Text = reader("Name")
    75. txtJahr.Text = reader("Erscheinungsjahr")
    76. txtGenre.Text = reader("Genre")
    77. txtActors.Text = reader("Schauspieler")
    78. txtAuszeichnungen.Text = reader("Auszeichnungen")
    79. txtBewertungen.Text = reader("Bewertung")
    80. txtSonstiges.Text = reader("Sonstiges")
    81. reader.Close()
    82. Catch ex As Exception
    83. MsgBox(ex.Message)
    84. End Try
    85. con.Close()
    86. End Sub
    88. Private Sub btnÄndern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnÄndern.Click
    90. Dim anzahl As Integer
    91. Dim con As New SqlClient.SqlConnection
    92. Dim cmd As New SqlClient.SqlCommand
    94. If txtName.Text = "" Then
    95. MsgBox("Bitte einen Datensatz auswählen und mindestens einen Namen eintragen")
    96. Exit Sub
    97. End If
    99. Try
    100. con.ConnectionString = _
    101. "Data Source=.\SQLEXPRESS;AttachDbFilename=E:\VB Projects\Movies\Movies\MovieDB.mdf;Integrated Security=True;User Instance=True"
    102. cmd.Connection = con
    103. con.Open()
    104. cmd.CommandText = _
    105. "update movie set " & _
    106. "ID = '" & txtID.Text & "', " & _
    107. "name = '" & txtName.Text & "', " & _
    108. "Erscheinungsjahr = '" & txtJahr.Text & "', " & _
    109. "genre = '" & txtGenre.Text & "', " & _
    110. "Schauspieler = " & txtActors.Text & ", " & _
    111. "Auszeichnungen = " & txtAuszeichnungen.Text & ", " & _
    112. "Bewertung = " & txtBewertungen.Text & ", " & _
    113. "sonstiges = '" & txtSonstiges.Text & "' " & _
    114. "where name = " & Myal(lstTab2.SelectedIndex)
    116. 'MsgBox(cmd.CommandText)
    117. anzahl = cmd.ExecuteNonQuery()
    118. If anzahl > 0 Then
    119. MsgBox("Es wurde ein Datensatz geändert")
    120. End If
    121. Catch ex As Exception
    122. MsgBox(ex.Message)
    123. End Try
    124. con.Close()
    126. End Sub
    128. Private Sub Übersicht()
    129. Dim con As New SqlClient.SqlConnection
    130. Dim cmd As New SqlClient.SqlCommand
    131. Dim reader As SqlClient.SqlDataReader
    133. Try
    134. con.ConnectionString = _
    135. "Data Source=.\SQLEXPRESS;AttachDbFilename=E:\VB Projects\Movies\Movies\MovieDB.mdf;Integrated Security=True;User Instance=True"
    136. cmd.Connection = con
    137. cmd.CommandText = "select * from Movie"
    138. con.Open()
    140. reader = cmd.ExecuteReader()
    141. lstTab2.Items.Clear()
    142. Do While reader.Read()
    143. lstTab2.Items.Add(reader("ID") & " , " _
    144. & reader("Name") & " , " _
    145. & reader("Erscheinungsjahr") & " , " _
    146. & reader("Genre") & " , " _
    147. & reader("Schauspieler") & " , " _
    148. & reader("Auszeichnungen") & " , " _
    149. & reader("Bewertung") & " , " _
    150. & reader("Sonstiges"))
    151. Loop
    152. reader.Close()
    153. con.Close()
    154. Catch ex As Exception
    155. MsgBox(ex.Message)
    156. End Try
    157. End Sub
    159. End Class

    Tja leider zeigt mir Visual Basic die Zeile nicht an... Die Meldung taucht nur im laufenden Programm auf.
    Bei einem Einzelschritt-Debug springt er in der Funktion lstTab2_SelectedIndexChanged im Bereich der unten stehenden Zeilen beim Sprung zu reader zur Exception-Msg.

    cmd.CommandText = _
    "select * from Movie " _
    & "where Name = " & lstTab2.SelectedItem

    reader = cmd.ExecuteReader()

    Gruss

    Name ist wahrscheinlich ein als Text formatiert also musst du das in ein Hochkomma setzten, die anweisung

    cmd.CommandText = "select * from Movie where Name = '" & lstTab2.SelectedItem & "'"

    PS: benenne bitte deine Steuerelemente, dadurch blickst du und wir besser durch.


    Edit

    Warum weißest du den Pfad der DB x mal zu mach das einmal im Form load Event und gut ist.

Facebook