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:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

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:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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

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