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