Ausgabe von Datenbankwerten von einer Listbox in eine Textbox

Allpa

Hallo ich habe wein kleines Problem mit der Ausgabe von Daten ich wollte das Beispiel eines Verwaltungs Programm von http://www.galileocomputing.de/katalog/bueche…4413A4FUg-AulGg nachbauen aber nur mit Fragen nun kann ich aber nicht die werte aus der Listbox in die Textbox einfügen: Hier der Code:

Code

Private Sub lst_anzeige_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lst_anzeige.SelectedIndexChanged
        Try
            con.ConnectionString = "Data Source=Fragen-Datenbank.sdf"
            cmd.Connection = con
            con.Open()
            cmd.CommandText = _
            "select * from Level1 " _
            & "where Frage = " _
            & frage(lst_anzeige.SelectedIndex)


            reader = cmd.ExecuteReader()
            reader.Read()


            txt_frage.Text = reader("Frage")
            txt_a.Text = reader("A")
            txt_b.Text = reader("B")
            txt_c.Text = reader("C")
            txt_d.Text = reader("D")
            cmb_auswahl.Text = reader("Richtig")
            reader.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
    End Sub

Alles anzeigen

Könnt ihr mir dabei helfen?

Gruß Michael

Der Restliche Code:

Code

Public Class frm_100er_frage
    Dim con As New SqlServerCe.SqlCeConnection
    Dim cmd As New SqlServerCe.SqlCeCommand
    Dim reader As SqlServerCe.SqlCeDataReader
    Dim frage As New ArrayList


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdb_einfuegen.Click
        Dim anzahl As Integer



        Try
            con.ConnectionString = "Data Source=Fragen-Datenbank.sdf"
            cmd.Connection = con
            con.Open()
            cmd.CommandText = _
                "Insert into Level1 (Frage, A, B, C, D, Richtig) values ('" & _
               txt_frage.Text & "', '" & _
               txt_a.Text & "', '" & _
               txt_b.Text & "', '" & _
               txt_c.Text & "', '" & _
               txt_d.Text & "', '" & _
               cmb_auswahl.Text & "')"


            'MsgBox(cmd.CommandText) 
            anzahl = cmd.ExecuteNonQuery()
            If anzahl > 0 Then
                MsgBox("Es wurde eine neue Frage eingefügt")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
        AlleSehen()
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdb_ansehen.Click
        AlleSehen()
    End Sub


    Sub AlleSehen()
        Try
            con.ConnectionString = "Data Source=Fragen-Datenbank.sdf"
            cmd.Connection = con
            con.Open()
            cmd.CommandText = "select * from Level1"
            Ausgabe()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()


        txt_frage.Text = ""
        txt_a.Text = ""
        txt_b.Text = ""
        txt_c.Text = ""
        txt_d.Text = ""
        cmb_auswahl.Text = ""
    End Sub


    Sub Ausgabe()
        reader = cmd.ExecuteReader()
        lst_anzeige.Items.Clear()
        frage.Clear()
        Do While reader.Read()
            lst_anzeige.Items.Add(reader("Frage") & " - " _
               & reader("A") & " - " _
               & reader("B") & " - " _
               & reader("C") & " - " _
               & reader("d") & " - " _
               & reader("Richtig"))
            frage.Add(reader("Frage"))
        Loop
        reader.Close()
    End Sub


Private Sub lst_anzeige_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lst_anzeige.SelectedIndexChanged
        Try
            con.ConnectionString = "Data Source=Fragen-Datenbank.sdf"
            cmd.Connection = con
            con.Open()
            cmd.CommandText = _
            "select * from Level1 " _
            & "where Frage = " _
            & frage(lst_anzeige.SelectedIndex)


            reader = cmd.ExecuteReader()
            reader.Read()


            txt_frage.Text = reader("Frage")
            txt_a.Text = reader("A")
            txt_b.Text = reader("B")
            txt_c.Text = reader("C")
            txt_d.Text = reader("D")
            cmb_auswahl.Text = reader("Richtig")
            reader.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
    End Sub


    Private Sub rdb_aendern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdb_aendern.Click
        Dim anzahl As Integer
        If txt_frage.Text = "" Then
            MsgBox("Bitte einen Datensatz auswählen " _
               & "und mindestens eine Frage " _
               & "eintragen")
            Exit Sub
        End If


        Try
            con.ConnectionString = "Data Source=Fragen-Datenbank.sdf"
            cmd.Connection = con
            con.Open()
            cmd.CommandText = _
               "update level1 set " & _
               "Frage = '" & txt_frage.Text & "', " & _
               "A = '" & txt_a.Text & "', " & _
               "B = '" & txt_b.Text & "', " & _
               "C = '" & txt_c.Text & "', " & _
               "D = '" & txt_d.Text & "', " & _
               "Richtig = '" & cmb_auswahl.Text & "', " & _
               "where Frage = " _
                  & frage(lst_anzeige.SelectedIndex)


            'MsgBox(cmd.CommandText) 
            anzahl = cmd.ExecuteNonQuery()
            If anzahl > 0 Then
                MsgBox("Es wurde ein Datensatz geändert")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()


        AlleSehen()
    End Sub




    Private Sub rdb_loeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdb_loeschen.Click
        Dim anzahl As Integer
        If txt_frage.Text = "" Then
            MsgBox("Bitte einen Datensatz auswählen")
            Exit Sub
        End If


        If MsgBox("Wollen Sie den ausgewählten " _
              & "Datensatz wirklich löschen?", _
              MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If


        Try
            con.ConnectionString = "Data Source=Fragen-Datenbank.sdf"
            cmd.Connection = con
            con.Open()
            cmd.CommandText = _
               "delete from level " & _
               "where Frage = " & _
               frage(lst_anzeige.SelectedIndex)
            'MsgBox(cmd.CommandText) 
            anzahl = cmd.ExecuteNonQuery()
            If anzahl > 0 Then
                MsgBox("Es wurde ein Datensatz gelöscht")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()


        AlleSehen()


    End Sub
End Class

Alles anzeigen

Tags