Aloha,
erstma von ganz vorne... Ich habe eine Accessdatenbank mit hilfe eines Datagridview in VB sichtbar und veränderbar dargestellt. Die Tabelle wird ordentlich angezeigt (alle Spalten und Zeilen) auch noch nachdem ich etwas verändert habe..
Nun das Problem: Nach Änderungen im Code wird die UrsprungsTabelle wieder angezeigt und alle vorherigen änderungen an der Tabelle sind verloren.
Mir ist bewusst das die veränderte Tabelle im Debugordner zu finden ist nur es ist mit Aufwand verbunden die Ursprungstabelle vor jeder änderung am code durch die bereiz veränderte Tabelle im Debugordner zu ersetzen...
lösungen?
Falls benötigt, hier der Code:
Spoiler anzeigen
Grüße Luka
erstma von ganz vorne... Ich habe eine Accessdatenbank mit hilfe eines Datagridview in VB sichtbar und veränderbar dargestellt. Die Tabelle wird ordentlich angezeigt (alle Spalten und Zeilen) auch noch nachdem ich etwas verändert habe..
Nun das Problem: Nach Änderungen im Code wird die UrsprungsTabelle wieder angezeigt und alle vorherigen änderungen an der Tabelle sind verloren.
Mir ist bewusst das die veränderte Tabelle im Debugordner zu finden ist nur es ist mit Aufwand verbunden die Ursprungstabelle vor jeder änderung am code durch die bereiz veränderte Tabelle im Debugordner zu ersetzen...
lösungen?
Falls benötigt, hier der Code:
VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'TODO: Diese Codezeile lädt Daten in die Tabelle "KnackohneassiDataSet.Tabelle1". Sie können sie bei Bedarf verschieben oder entfernen.
- Me.Tabelle1TableAdapter.Fill(Me.KnackohneassiDataSet.Tabelle1)
- End Sub
- Private Sub einfügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles einfügen.Click
- Dim Vorname, Nachname, Haus As String
- Vorname = InputBox("Vorname eingeben")
- Nachname = InputBox("Nachname eingeben")
- Haus = InputBox("Haus eingeben")
- Me.Tabelle1TableAdapter.Insert(Vorname, Nachname, Haus)
- Me.Tabelle1TableAdapter.Fill(Me.KnackohneassiDataSet.Tabelle1)
- End Sub
- Private Sub löschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles löschen.Click
- Try
- Me.Tabelle1TableAdapter.Delete(IDTextBox.Text, VornameTextBox.Text, NachnameTextBox.Text, HausTextBox.Text)
- Catch ex As Exception
- MsgBox("FEHLER", MsgBoxStyle.Critical, "FEHLER")
- End Try
- Me.Tabelle1TableAdapter.Fill(Me.KnackohneassiDataSet.Tabelle1)
- End Sub
- Private Sub verändern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles verändern.Click
- Me.Tabelle1TableAdapter.UpdateQuery(VornameTextBox.Text, NachnameTextBox.Text, HausTextBox.Text, IDTextBox.Text)
- Me.Tabelle1TableAdapter.Fill(Me.KnackohneassiDataSet.Tabelle1)
- End Sub
- End Class
Grüße Luka
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Luka25“ ()