Access - Datensatz löschen

[symax]

Hallo Gemeinde,

ich habe ein kleines Problem.
Ich kann zur Zeit aus einer Access - Datenbank daten auslesen und auch hinzufügen. Nun wäre noch interresant, eine Zeile (Datensatz) löschen zu können. Ich will nicht auf eine Datagridview zurückgreifen, da dies nachher nicht möglich sein wird.

Quellcode zum AUSLESEN:

ListBox3.Items.Clear()
        Dim con As New OleDbConnection
        Dim cmd As New OleDbCommand
        Dim reader As OleDbDataReader

        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\shipping.mdb"
        cmd.Connection = con
        cmd.CommandText = "select * from Lieferanten"
        Try
            con.Open()
            reader = cmd.ExecuteReader()

            Do While reader.Read()
                lieferant(lieferantenanzahl) = reader("Lieferant")
                'Lieferant(counter) = reader("Lieferant")
                lieferantenanzahl = lieferantenanzahl + 1
            Loop
            reader.Close()
            con.Close()
            lieferantenanzahl = lieferantenanzahl - 1 'NULLWERT
        Catch ex As Exception '2nd
            MessageBox.Show(ex.Message)
        End Try

        Dim i
        For i = 1 To lieferantenanzahl
            ListBox3.Items.Add(lieferant(i))
        Next

Quellcode zum Hinzufügen:

 Dim ARTNR = InputBox("ARTNR. eingeben:")
        Dim GROUP = ListBox2.SelectedItem
        Dim LIEFE = ListBox3.SelectedItem
        'Write something to DB
        Dim con As New OleDbConnection
        Dim cmd As New OleDbCommand
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Shipping.mdb"
        cmd.Connection = con
        Try
            cmd.CommandText = ("INSERT INTO Artikel (Artikelnummer, Kategorie, Lieferant) VALUES ('" & ARTNR & "', '" & GROUP & "', '" & LIEFE & "')")
            cmd.Connection.Open()
            cmd.ExecuteNonQuery()
            cmd.Connection.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

In dieser Art bräuchte ich den Quellcode, um eine bestimmte Zeile löschen zu können
Also in der Art: In Datenbank shipping.mdb / Tabelle Artikel / Zeile x löschen

Danke euch
MFG Stefan

 

[freakbrother]

Naja eigentlich bräuchtest du ja nur den PK der Zeile die du löschen möchtest zu eruieren und dann ein DELETE FROM ARTIKEL WHERE PK = ZeilenPk auszuführen