Hy Leute,
habe ein komisches Problem.
Ich habe eine SQl-Datenbank (mit MS SQL Compact).
Da schreibe ich Werte rein und liste sie mir in einem Listview ein.
Nachdem ich den Schreib-Befehl ausführe, habe ich meinen Datensatz wie gewünscht in der Übersicht.
Wenn ich aber das Debuggen beende und erneut öffne, steht nichts mehr drin und die Datenbank selber ist auch leer.
Hab ich einen Fehler im Code?
habe ein komisches Problem.
Ich habe eine SQl-Datenbank (mit MS SQL Compact).
Da schreibe ich Werte rein und liste sie mir in einem Listview ein.
Nachdem ich den Schreib-Befehl ausführe, habe ich meinen Datensatz wie gewünscht in der Übersicht.
Wenn ich aber das Debuggen beende und erneut öffne, steht nichts mehr drin und die Datenbank selber ist auch leer.
Hab ich einen Fehler im Code?
SQL-Abfrage
- var = Nothing
- con.ConnectionString = "Data Source=" & db & ""
- Try
- cmd.Connection = con
- cmd.CommandText = "SELECT MAX(stammdaten_id) as stammdaten_id FROM stammdaten"
- con.Open()
- reader = cmd.ExecuteReader()
- var = Nothing
- Do While reader.Read()
- var = reader("stammdaten_id") + 1
- Loop
- reader.Close()
- cmd.CommandText = "INSERT INTO stammdaten (stammdaten_id) VALUES (" & var & ")"
- cmd.ExecuteNonQuery()
- cmd.CommandText = "INSERT INTO vertragsdaten (vertragsdaten_id) VALUES (" & var & ")"
- cmd.ExecuteNonQuery()
- cmd.CommandText = "INSERT INTO maßnahmen (maßnahmen_id) VALUES (" & var & ")"
- cmd.ExecuteNonQuery()
- cmd.CommandText = "INSERT INTO anlagendaten (anlagendaten_id) VALUES (" & var & ")"
- cmd.ExecuteNonQuery()
- cmd.CommandText = "INSERT INTO verbrauchshistorie (verbrauchshistorie_id) VALUES (" & var & ")"
- cmd.ExecuteNonQuery()
- cmd.CommandText = "INSERT INTO wirtschaftlichkeit (wirtschaftlichkeit_id) VALUES (" & var & ")"
- cmd.ExecuteNonQuery()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- con.Close()
- Detail.Show()
- Me.Hide()