Hallo ich habe wein kleines Problem mit der Ausgabe von Daten ich wollte das Beispiel eines Verwaltungs Programm von http://www.galileocomputing.de/katal...413A4FUg-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
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
Achtung: Dies ist ein alter Thread im HTML und Webmaster Forum
Diese Diskussion ist älter als 90 Tage. Die darin enthaltenen Informationen sind möglicherweise nicht mehr aktuell. Erstelle bitte zu deiner Frage ein neues Thema im Forum !!!!!