Servus,
also ich habe folgendes Problem... ich will per Button etwas in die Datenbank schreiben. So wenn ich jetzt den Button anklicke, sollte dieser die Daten in die Datenbank schreiben. Rufe ich nun die Datenbank auf, sind dort keine Daten vorhanden, doch starte ich das Programm neu, stehen diese Daten im Datagried. Wenn ich jetzt meine Datenbank aufrufe und eine Abfrage starte, steht immer noch nichts drinnen, starte ich das Programm wieder neu sind auch jetzt die Daten komplett weg.
Jetzt meine Frage: Wo werden die Daten dann gespeichert? Wieso sind die Daten nach der Abfrage von der Datenbank dann wieder weg? Wieso werden die Daten nicht in der Datenbank gespeichert?
Hier mein Code:
also ich habe folgendes Problem... ich will per Button etwas in die Datenbank schreiben. So wenn ich jetzt den Button anklicke, sollte dieser die Daten in die Datenbank schreiben. Rufe ich nun die Datenbank auf, sind dort keine Daten vorhanden, doch starte ich das Programm neu, stehen diese Daten im Datagried. Wenn ich jetzt meine Datenbank aufrufe und eine Abfrage starte, steht immer noch nichts drinnen, starte ich das Programm wieder neu sind auch jetzt die Daten komplett weg.
Jetzt meine Frage: Wo werden die Daten dann gespeichert? Wieso sind die Daten nach der Abfrage von der Datenbank dann wieder weg? Wieso werden die Daten nicht in der Datenbank gespeichert?
Hier mein Code:
VB.NET-Quellcode
- Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
- Dim s As String
- s = "INSERT INTO Settings (Name,Datum,Kapital) Values ('1','1','1')"
- Pruefen(s)
- End Sub
- Sub SetSQL(ByVal SQL As String)
- Dim conn As New SqlCeConnection
- Dim cmd As New SqlCeCommand
- conn.ConnectionString = "Data Source=|DataDirectory|\chart.sdf"
- cmd.Connection = conn
- cmd.CommandText = SQL
- conn.Open()
- cmd.ExecuteNonQuery()
- conn.Close()
- End Sub
- Sub Pruefen(ByVal s As String)
- If s.Length > 0 Then
- s.Replace("DROP TABLE", "")
- Else
- MsgBox("Bitte etwas eingeben!")
- End If
- SetSQL(s)
- End Sub