Forum: PC-Programmierung Visual Basic - Access Datenbank löschen


von Ben L. (m0b0t1x)


Lesenswert?

Hallo,

ich versuche in Visual Basic 2008 beim Beenden einer Form den Inhalt 
einer  Datenbank zu löschen.
Leider bekomme ich die Datensätze nur kurzzeitig gelöscht, das heisst 
wenn ich den Button1 drücke werden sämtliche Einträge der Datenbank 
gelöscht - so wie es sein soll! Nur wenn ich das Programm neu starte 
sind die Datensätze wieder da - was nicht sein soll!

Ich hoffe ihr habt da eine Lösung für!

Gruß, Ben



    Private Sub Tabelle1BindingNavigatorSaveItem_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
Tabelle1BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.Tabelle1BindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.GMADataSet)

    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
"GMADataSet.Tabelle1". Sie können sie bei Bedarf verschieben oder 
entfernen.
        Me.Tabelle1TableAdapter.Fill(Me.GMADataSet.Tabelle1)

    End Sub

    Private Sub Messung_2TextBox_TextChanged(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles Messung_2TextBox.TextChanged

        If Val(Messung_2TextBox.Text) >= Val(Messung_1TextBox.Text) Then
            MaximalwertTextBox.Text = Val(Messung_2TextBox.Text)
        Else
            MaximalwertTextBox.Text = Val(Messung_1TextBox.Text)
        End If

    End Sub

    Private Sub Messung_1TextBox_TextChanged(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles Messung_1TextBox.TextChanged

        If Val(Messung_2TextBox.Text) >= Val(Messung_1TextBox.Text) Then
            MaximalwertTextBox.Text = Val(Messung_2TextBox.Text)
        Else
            MaximalwertTextBox.Text = Val(Messung_1TextBox.Text)
        End If

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click
        GMADataSet.Tabelle1.Clear()

    End Sub

von KlaRa (Gast)


Lesenswert?

Hallo Ben,

>> GMADataSet.Tabelle1.Clear()

Du löschst damit nur das Dataset!
Gruss Klaus.

von Christoph P. (cpehonk)


Lesenswert?

Hallo Ben,

setzte das SQL-Statement "DELETE * FROM <<Tabellenname>>" ab. Dann sind 
die Daten mit Sicherheit futsch.

Viele Grüße
Christoph

Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.