Immer erste Zeile einer Tabelle löschen wenn auf Löschen geklickt wird

Diablo · 3. Februar 2011, 10:31

Hallo,

ich habe eine *.sdf Datenbank und möchte, wenn 20 Einträge vorhanden sind, dass die erste Zeile gelöscht wird.

Oder auch: Auf Löschen klicken und die erste Zeile gelöscht wird. Nur wie finde ich herraus welche ID nun die letzte Zeile ist? (ID Nummern sind vorhanden)

runny · 3. Februar 2011, 10:47

Vielleicht mal etwas spezifizieren.

Du willst Grundsätzlich die erste Zeile löschen? Anhand welches Kriteriums. Niedrigste ID, zuletzt Hinzugefügt, Alphabetisch sortiert?
Wieso brauchst du die ID der letzten Zeile wenn du die erste löschen willst? Aber letzte Zeile wird wohl oder übel die Höchste ID sein, in so fern diese mit autoincrement hinzugefügt wurde.

Brauchst du nun Hilfe beim Code oder wie man auf die Datenbank zugreift?

Diablo · 3. Februar 2011, 11:15

Also die erste Zeile damit meine ich die niedrigste ID. D.h. wenn ich also folgende Datenbank habe:

ID------Betrag-----Verwendung
1--------5€-----------Essen
2-------10€-----------Blubb
3--------3€-----------Blubb
4-------30€-----------T-Shirt
5-------40€-----------Hemd

Und wenn jetzt z.b. eine 6 Zeiledazu kommt:

6-------30€-----------Essen

Dann soll die erste Zeile gelöscht werden (1--------5€-----------Essen)

Nun benötige ich hilfe, wie ich das realisiere.
Also wie finde ich herraus das die niedrigste ID die erste ist und diese gelöscht werden soll?

Per TextBox-Eingabe wäre das ja z.b. so:

Man gibt die ID der Zeile an (meinetwegen die 3) und die 3. Zeile wird gelöscht.

VB.NET-Quellcode

Private Sub cmdLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLöschen.Click
'# Löschbutton-Prozedur
Dim Cb As New SqlCeCommandBuilder(DaBelege)
Dim Cmd As SqlCeCommand = Cn.CreateCommand
' Dim ds As New DataSet
Try
'MessageBox.Show("number of Row(s) - " & ds.Tables(1).Rows.Count)
Cmd.CommandText = "Delete From Belege Where BelegNr = " & TextBox1.Text
DaBelege = New SqlCeDataAdapter(Cmd)
Dim Anzahl As Integer = DaBelege.Update(TaBelege)
DaBelege.Fill(TaBelege)
DataGridView1.DataSource = TaBelege
MessageBox.Show(Anzahl & " Datensatz / Datensätze wurde(n) gelöscht.", My.Application.Info.Title)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

runny · 3. Februar 2011, 11:34

Ok gut.

An sich würd ich das so machen. Du frägst die Datenbank ab und lässt die die ID(Belegnummern) ausgeben.
Entweder du speicherst alls in ein array oder du überprüfst mit einer Schleife direkt welches die niedrigste ID ist.

Beispiel

VB.NET-Quellcode

for each ID as int in array
if ID < check_id then
check_id = ID
end if
next

dann kannst du mit deinem Programm oben einfach die check_id einfügen, statt diese aus der Textbox zu nehmen.

Vielleicht gibtz auch ne Funktion um direkt den niedrigsten Wert einer Abfrage zu ermitteln Da musst du die Profis fragen

Achja die niedrigste ID ist in dem Fall immer der erste eintrag, da ja für jeden neuen Eintrag eine höhere ID angelegt wird.
Wenn also die Zeile mit ID 1 gelöscht wird und eine neue hinzukommt, wird die neue mit einer noch nie da gewesenen höheren ID angelegt. In so fern du auto increment für den Primärschlüssel angegeben hast, was ich dir sehr empfehle :).

Edit: ne ganz einfach möglichkeit wäre auch.
Du legst eine Variable an, welche bei jeder löschaktion um 1 erhöht wird. Diese repräsentiert die aktuell niedrigste ID in der Tabelle.
Jedes mal wenn du löschen klickst entfernt sie die aktuell "älteste" Zeile. Ist aber dirty und kann ins Auge gehen falls du mal eine falsch eingetragene Zeile zwischendurch löschst.

Diablo · 3. Februar 2011, 11:59

Also einen Tabellenschlüssel ist gesetzt und die IDs gehen beim anlegen einer Tabelle auch automatisch hoch.

Nur deinen Code vertehe ich noch nicht so ganz :rolleyes:

Denn: VB markiert mit "int" und "Array". Heißt int -> integer? Außerm kommt: "Array" ist ein Typ und kann nicht als Ausdruck verwendet werden. Bin bisschen überfordert mit der Aufgabe, weil ich ja noch nicht mal so ganz weiß was ein "Typ" ist.

Ok habe es jetzt mit Hilfe so gelöst:

VB.NET-Quellcode

Private Sub cmdLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLöschen.Click
'# Löschbutton-Prozedur
Dim Cb As New SqlCeCommandBuilder(DaBelege)
Dim Cmd As SqlCeCommand = Cn.CreateCommand
Dim ds As New DataSet
Try
Dim lID As Integer
Dim l_checkID As Integer
For I As Integer = DataGridView1.RowCount - 1 To 0 Step -1
lID = DataGridView1.Rows.Item(I).Cells(0).Value
If lID < l_checkID Then
l_checkID = lID
End If
Next
Cmd.CommandText = "Delete From Belege Where BelegNr = " & lID 'TextBox1.Text
DaBelege = New SqlCeDataAdapter(Cmd)
'TaBelege = New DataTable("Belege")
Dim Anzahl As Integer = DaBelege.Update(TaBelege)
DaBelege.Fill(TaBelege)
DataGridView1.DataSource = TaBelege
MessageBox.Show(Anzahl & " Datensatz / Datensätze wurde(n) gelöscht.", My.Application.Info.Title)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Allerdings wird ja ein "Update" der Tabelle erst nach Neustart des Programms angezeigt, wie kann ich dem entgegenwirken, sodass GLEICH ein Update ausgeführt wird?

runny · 3. Februar 2011, 13:31

Äh ja sorry meinte Integer...sorry da kam es Java durch :whistling:

. Dem array musst du natürlich einen Namen verpassen und beim Schleifenkopf den array_namen verwenden.

VB.NET-Quellcode

Dim array_name as new Arraylist

Allerdings wird ja ein "Update" der Tabelle erst nach Neustart des Programms angezeigt, wie kann ich dem entgegenwirken, sodass GLEICH ein Update ausgeführt wird?

Na in dem du die Tabelle neu lädst, mit den Daten des Servers. Pack doch die Programmzeilen, die deine Tabelle beim Start füllt in ein eigenes Sub.

VB.NET-Quellcode

Privat Sub daten_laden()
'Dein Code um die Tabelle zu laden
End Sub

Das rufst du dann bei Programmstart einmal auf...und nach dem du ein Datensatz gelöscht hast bzw hinzugefügt hast.

VB.NET-Quellcode

Private Sub cmdLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLöschen.Click
' Dein Code
End Try
daten_laden()
End Sub

Diablo · 7. Februar 2011, 17:10

So, habe es soweit hin bekommen, dass eine Zeile (sofern min. 10 vorhanden sind) gelöscht wird. Und zwar sollte die Zeile mit der niedrigsten ID gelöscht werden.
Sofern die Datenbank auch keine neuen Zeilen hinzu bekommt, klappt das auch, aber wenn ich neue hinzufüge gehts nicht mehr, dann nimmt er die neueste Zeile. Er schreibt sie auch nicht unter die anderen (vorhandenen), sondern ÜBER die alten (also an erster Stelle)...

Code:

VB.NET-Quellcode

Imports System.Data.SqlServerCe
Public Class BelegeDBSQL
'Private DBPfad As String = "BelegeDBSQL.mdf"
Private CnSt As String = "Data Source=BelegeDBSQL.sdf" ' = "Data Source=.\SQLEXPRESS;Integrated Security=True;Initial Catalog=BelegeDBSQL; User Instance=true"
Private DaKonten As SqlCeDataAdapter
Private DaBelege As SqlCeDataAdapter
Private TaKonten As DataTable
Private TaBelege As DataTable
Private Cn As SqlCeConnection
Dim SelectedRows As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'# Bei Start des Programms wird die Tabelle eingelesen
DB_Load()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
'# Beim Start wird die Datenbank aus der ComboBox aktualisiert und im DataGridView angezeigt
DB_Reload()
End Sub
Private Sub DB_Load()
'# Die Datenbank wird ausgelesen und die einzelnen Felder der Tabelle Konten in der ComboBox ausgegeben
Try
Cn = New SqlCeConnection(CnSt)
Dim Cmd As SqlCeCommand = Cn.CreateCommand
Cmd.CommandText = "Select * From Konten"
DaKonten = New SqlCeDataAdapter(Cmd)
TaKonten = New DataTable("Konten")
DaKonten.Fill(TaKonten)
ComboBox1.DisplayMember = "KontoName"
ComboBox1.ValueMember = "KontoNr"
ComboBox1.DataSource = TaKonten
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub DB_Reload()
'# Die Datenbank wird ausgelesen und die selektierte Tabelle im DataGridView angezeigt
Dim Cmd As SqlCeCommand = Cn.CreateCommand
Cmd.CommandText = "Select * From Belege Where Belege.KontoNr=@KontoNr"
' Cmd.CommandText = "Select Betrag, Datum, KontoName, Beschreibung, BelegNr From " &
' "Belege Inner Join Konten On Belege.KontoNr = Konten.KontoNr Where Belege.KontoNr=@KontoNr"
Cmd.Parameters.AddWithValue("KontoNr", ComboBox1.SelectedValue)
DaBelege = New SqlCeDataAdapter(Cmd)
TaBelege = New DataTable("Belege")
DaBelege.Fill(TaBelege)
DataGridView1.DataSource = TaBelege
End Sub
Private Sub DB_Delete()
'# Lösch-Prozedur
Dim Cb As New SqlCeCommandBuilder(DaBelege)
Dim Cmd As SqlCeCommand = Cn.CreateCommand
'# Von der größten Zahl bis zur niedrigsten (max. 0) zählt er die Tabelle herrunter und löscht dann die niedrigste
Try
Dim lID As Integer
Dim l_checkID As Integer
For I As Integer = DataGridView1.RowCount - 1 To 0 Step -1
lID = DataGridView1.Rows.Item(I).Cells(0).Value
If lID < l_checkID Then
l_checkID = lID
End If
Next
'# Hier löscht er die zuvor "herrausgefundene" niedrigste Zeile
Cmd.CommandText = "Delete From Belege Where BelegNr = " & lID 'TextBox1.Text
DaBelege = New SqlCeDataAdapter(Cmd)
'TaBelege = New DataTable("Belege")
Dim Anzahl As Integer = DaBelege.Update(TaBelege)
DaBelege.Fill(TaBelege)
DataGridView1.DataSource = TaBelege
MessageBox.Show(Anzahl & " Datensatz / Datensätze wurde(n) gelöscht.", My.Application.Info.Title)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
'# Datenbankupdate, damit der Löschvorgang direkt angezeigt wird.
DB_Reload()
End Sub
Private Sub cmdSchreiben_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAktualisieren.Click
'# Hier schreibt er die Tabelle neu bzw. aktualisiert sie
Try
Dim Cb As New SqlCeCommandBuilder(DaBelege)
Dim Anzahl As Integer = DaBelege.Update(TaBelege)
MessageBox.Show(Anzahl & " Datensatz / Datensätze wurde(n) aktualisiert.", My.Application.Info.Title)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
' If DataGridView1.RowCount > 10 Then
'DB_Delete()
'End If
DB_Reload()
End Sub
Private Sub cmdLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLöschen.Click
'# Löschbutton-Prozedur
Dim Cb As New SqlCeCommandBuilder(DaBelege)
Dim Cmd As SqlCeCommand = Cn.CreateCommand
Try
Dim lID As Integer
Dim l_checkID As Integer
For I As Integer = DataGridView1.RowCount - 1 To 0 Step -1
lID = DataGridView1.Rows.Item(I).Cells(0).Value
If lID < l_checkID Then
l_checkID = lID
End If
Next
Cmd.CommandText = "Delete From Belege Where BelegNr = " & lID 'TextBox1.Text
DaBelege = New SqlCeDataAdapter(Cmd)
'TaBelege = New DataTable("Belege")
Dim Anzahl As Integer = DaBelege.Update(TaBelege)
DaBelege.Fill(TaBelege)
DataGridView1.DataSource = TaBelege
MessageBox.Show(Anzahl & " Datensatz / Datensätze wurde(n) gelöscht.", My.Application.Info.Title)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
'# Datenbankupdate, damit der Löschvorgang direkt angezeigt wird.
DB_Reload()
End Sub
Private Sub DataGridView1_UserDeletingRow(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowCancelEventArgs) Handles DataGridView1.UserDeletingRow
'# Abfrgae ob die Zeile gelöscht werden soll (mit ENTF)
If (Not e.Row.IsNewRow) Then
Dim response As DialogResult = MessageBox.Show("Möchten Sie wirkliche diese Zeile löschen?", "Zeile löschen?", _
MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
If (response = DialogResult.No) Then
e.Cancel = True
End If
End If
End Sub
Private Sub cmdÖffnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdÖffnen.Click
'# Zeigt den Öffnen-Dialog
OpenFileDialog1.Filter = "sdf(*.sdf)| *.sdf"
OpenFileDialog1.ShowDialog()
Dim sFilePath As String = OpenFileDialog1.FileName
Try
Cn = New SqlCeConnection(CnSt)
Dim Cmd As SqlCeCommand = Cn.CreateCommand
Cmd.CommandText = "Select * From Konten"
DaKonten = New SqlCeDataAdapter(Cmd)
TaKonten = New DataTable("Konten")
DaKonten.Fill(TaKonten)
ComboBox1.DisplayMember = "KontoName"
ComboBox1.ValueMember = "KontoNr"
ComboBox1.DataSource = TaKonten
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class

Immer erste Zeile einer Tabelle löschen wenn auf Löschen geklickt wird

Immer erste Zeile einer Tabelle löschen wenn auf Löschen geklickt wird

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben