Datensatz endgültig löschen

[Annja]

Hallo!

Ich habe in einem Programm einen Datensatz mit folgender Prozedur gelöscht:

Private Sub Loeschen()
Dim x As Integer

x = Me.lstKunden.SelectedIndex 'in Listbox gewählter Eintrag

' DataRow-Instanz mit der "Löschmarkierung" versehen
Me.Friseur_CorinnaDataSet.Kunden.Rows(x).Delete()

Me.lstKunden.Items.Remove(x) 'aus Listbox löschen

'DataAdapter schickt DELETE-Anweisung zur Datenbank
Me.KundenTableAdapter.Update(Me.Friseur_CorinnaDat aSet.Kunden)

'zur Kontrolle neu einlesen
Me.Friseur_CorinnaDataSet.Clear()

Me.KundenTableAdapter.Fill(Me.Friseur_CorinnaDataS et.Kunden)

End Sub

Der Datensatz wird aus der Listbox gelöscht und aus der Datenbank. Wenn ich aber das Programm schließe und dann neu öffne, dann ist der gelöschte Datensatz wieder vorhanden (auch in der Datenbank!)!!!

Wie kann ich ihn endgültig löschen?

LG Annia

[Me.MyBase]

Das kann nicht sein. Wenn der DELETE-Befehl durch ist, ist der Datensatz auch endgültig weg. Du solltest mal prüfen ob dein Programm beim Start nicht vllt. irgendwelche Testdaten in die Datenbank schreibt. Was Anderes kann ich mir nicht vorstellen.

[Bernhard Geyer]

Läuft das evtl. in einer (nicht selbst spezifizierten) Transaktion?

[Philsen]

Hi,

Falls Du die Datenbank von vornherein in Dein Projekt eingebunden hast (ist die im Projektmappen-Explorer zu sehen?) dann klick die mal an und schau bei den Eigenschaften unter "In Ausgabeverzeichnis kopieren".
Wenn "Immer kopieren" ausgewählt ist dann änder das in "nicht kopieren".

Man kopiert damit immer wieder die ursprüngliche Quelldatenbank (welche nie verändert wird) in den Ordner des Programms und überschreibt somit die Datenbank mit der man arbeitet.

Hatte das gleiche Problem auch mal, das alle Änderungen in der Datenbank nach Neustart des Progs nicht mehr vorhanden waren.