Hallo,

ich habe ein Problem. Ich möchte in VB Per Form Daten auf einen SQL-Server speichern. In der Listbox auf dem Form wird mir angezeigt, dass die Daten gespeichert wurden. wenn ich dann aber direkt auf der Datenbank nachschaue ist nichts gespeichert. Wo liegt der Fehler.

Danke für eure Hilfe


Gruß Michael
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
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 !!!!!