Arbeiten mit dem Dataset

Philipp · 16. Juni 2021, 16:03

Grüßt euch,

ich habe nach meinen letzten Fragen eine Menge gelernt was das Arbeiten mit typisierten Datasets angeht, habe die "4 Views" vom EDR durchgearbeitet und weitgehend verstanden, mich mit der dbextention beschäftigt, die ja auch sehr hilfreiche Funktionen bereitstellt.

Gehen wir mal davon aus es geht um eine einfache Auftragsverwaltung mit den Tabellen Artikelkategorie, Artikel, Kunde, Aufträge und AuftragArtikel. Ich denke das sollte soweit selbsterklärend sein.
Diese habe ich angelegt und wenn ich nur Datagridviews erstelle und diese auch miteinander verknüpfe auf einem einzelnen Form, dann klappt das auch wie geschmiert, also gehe ich davon aus, dass die Relationen passen usw.
So weit so gut.

Jetzt möchte ich das ganze ein bisschen schöner machen, also soll es ein AuftragÜbersicht-Form geben, in dem ein Datagridview mit allen Aufträgen enthalten ist. Das ist ja erstmal einfach. Dann kann man einen Eintrag auswählen und mit Klick auf "bearbeiten" soll dieser Auftrag bearbeitet werden können. Dazu soll sich ein weiteres Fenster öffnen (AuftragDetails), oben mit den Details wie Kundennummer, Name, Adresse... und im unteren Bereich die Auflistung der zugehörigen Artikel. Diese sollen bearbeitet werden können, also hinzufügen, ändern, löschen, Suche für einen anderen Kunden,... Anschließend kann mit Klick auf speichern gespeichert und das neue Fenster wieder geschlossen werden. Man ist also wieder bei der tabellearischen Übersicht aller Aufträge.
Für die Artikel klappt das schon wunderbar, entsprechend dem VideoTutorial vom Erfinder der Rades (dort gibt es ja keine untergeordnete Sammlung an Zeilen wie das beim Auftrag der Fall ist...).

1. Frage: Wie geht man richtig vor um das umzusetzen?
Mein Ansatz: Ich kann in der Auftragsmaske über bindingsource.current die aktuell ausgewählte Zeile an das neue Form übergeben, dort verändern und anschließend bei Klick auf speichern die Row speichern oder wieder zurückgeben... Ist das ein (logischer) Weg?
Mein Gedanke: Das klappt ein bisschen: Ich kann vorhandene Aufträge anschauen und vorhandene Artikel auch bearbeiten. Das Hinzufügen oder Löschen von Artikeln klappt aber nicht. (Ich hoffe, dass dieser Schritt jetzt nur noch "trivial" ist...) Wie müsste das "im Dataset speichern" umgesetzt werden?

2. Frage: Kann ich in der AuftragDetails Maske das Datagridview auch durch ein eigen entworfenes Benutzersteuerelement ersetzen? (Zum Beispiel ein Steuerelement welches jede Artikelzeile repräsentiert und dann in einem FlowLayoutPanel angeordnet wird? Da habe ich schon wirklich ganz coole Sachen basteln können die dann zum Beispiel den Inhalt einer List (of EigeneKlasse) enthalten. In der Hilfe von Microsoft habe ich zwar sogar etwas in der Richtung gefunden, aber bin nicht richtig weiter gekommen, dort habe ich nicht alles verstanden.

Könnt Ihr mir da weiterhelfen ? Kennt jemand darüber hinaus Tutorials oder Bücher die an dieser Stellen weiterhelfen?

Was ich bis jetzt habe:
(Im Form Auftragsübersicht)

VB.NET-Quellcode

Private Sub ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragBearbeitenToolStripMenuItem.Click
Select Case True
Case sender Is AuftragBearbeitenToolStripMenuItem
Dim Adet As New Auftragdetails(DirectCast(DirectCast(TblAufträgeBindingSource.Current, DataRowView).Row, DTSAuftragsverwaltung.tblAufträgeRow).ID)
Adet.Show()
End Select

(im Form AuftragDetails)

VB.NET-Quellcode

Public Class Auftragdetails
Dim rwAuftrag As DTSAuftragsverwaltung.tblAufträgeRow
Dim _Auftragsnummer As Integer
Public Sub New(ByVal Auftragsnummer As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
_Auftragsnummer = Auftragsnummer
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
rwAuftrag = Auftragsmaske.DTSAuftragsverwaltung.tblAufträge.FindByID(_Auftragsnummer)
End Sub
Private Sub Auftragdetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
IDTextBox.Text = rwAuftrag.ID
VornameTextBox.Text = rwAuftrag.tblKundenRow.Vorname
NachnameTextBox.Text = rwAuftrag.tblKundenRow.Nachname
StraßeTextBox.Text = rwAuftrag.tblKundenRow.Straße
PostleitzahlTextBox.Text = rwAuftrag.tblKundenRow.Postleitzahl
OrtTextBox.Text = rwAuftrag.tblKundenRow.Ort
AnredeTextBox.Text = rwAuftrag.tblKundenRow.Anrede
Dim lst As New List(Of DTSAuftragsverwaltung.tblAuftrArtikelRow)
For Each rw In rwAuftrag.GettblAuftrArtikelRows
lst.Add(rw)
Next
DataGridView1.DataSource = lst
End Sub
End Class

Insbesondere beim Füllen des DGV und der List of bin ich mir sicher, dass es dort einen anderen Way to go gibt, vermutlich auch bei der Übergabe der Auftragsnummer...

Danke schonmal für eure Hilfe

CodeTags korrigiert ~VaporiZed

VaporiZed · 16. Juni 2021, 16:22

Adet

Komische Variablenbenennung. Aber wurscht.
Du übergibst eine ID an das SubForm? Warum nicht gleich die Row an sich?

Philipp schrieb:

Das Hinzufügen oder Löschen von Artikeln klappt aber nicht.

Warum nicht? Wenn Du einen Auftrag bearbeitest, stell ich mich vor, dass Du eine Artikelliste hast, bei der Du dann einen Artikel auswählst, dann auf einen [+]-Button drückst und so den Artikel zu Auftrag hinzufügst. Da jeder Auftrag seine Artikel kennt, sollte es doch leicht zu bewerkstelligen sein, dieser Auflistung ein Artikel hinzuzufügen. Ich gehe mal davon aus, dass Du tDS-VVV-typisch eine ArtikelTabelle, eine AuftragsTabelle und eine ArtikelAuftragsTabelle hast. Ach, steht ja sogar oben. Dann fügst Du der letzteren eine neue Zeile hinzu, die auf den Artikel und den Auftrag verweist und gut ist. Löschen ähnlich: Nimm den entsprechenden Eintrag aus der ArtikelAuftragsTabelle und lösche ihn. Fertig.
Zu Frage 2: Wenn Du gutes Baumaterial hast, dann schon.

Philipp schrieb:

Zum Beispiel ein Steuerelement welches jede Artikelzeile repräsentiert und dann in einem FlowLayoutPanel angeordnet wird

Punkt eins kann ein DGV oder z.B. auch ne ListBox mit DataBinding machen. Punkt zwei versteh ich inhaltlich nicht. Geht's um die Details des Artikels, die angezeigt werden sollen? Ein DGV bekommt das von Haus aus hin. Aber Du willst wohl was anderes. Was konkret? Gib mal n Beispielbild oder ne gute Beschreibung.

Philipp · 16. Juni 2021, 21:06

VaporiZed schrieb:

Adet Komische Variablenbenennung. Aber wurscht.

Oh da hast du recht. Da hat man mal was ein paar mal hin und her probiert und zack hat man so ein Überbleibsel im Code... :o

VaporiZed schrieb:

Du übergibst eine ID an das SubForm? Warum nicht gleich die Row an sich?

Stimmt, das wäre ja noch einfacher... Das bekomme ich hin.

VaporiZed schrieb:

Dann fügst Du der letzteren eine neue Zeile hinzu, die auf den Artikel und den Auftrag verweist und gut ist. Löschen ähnlich: Nimm den entsprechenden Eintrag aus der ArtikelAuftragsTabelle und lösche ihn. Fertig.

Ja und das bekomme ich nicht hin. An und für sich kann es nicht schwer sein... aber vermutlich habe ich nur ein riesen Brett vorm Kopf.
Ich habe ja die Row und um die Artikel die zu dem Auftrag gehören habe ich in eine Liste eingelesen, weil es mir leichtergefallen ist damit zu arbeiten. Aber wenn ich jetzt zu dieser Liste einen Eintrag hinzufüge, dann erscheint der ja nicht im Dataset...

Zu 2. Du hast vollkommen Recht. Ich will quasi auch genau das was ein DGV kann -> Ein DGV ist sehr zweckmäßig und etwas nüchtern -> Ich möchte die Daten gerne etwas schöner darstellen können.
Zum Beispiel dachte ich an ein Benutzersteuerelement welches im Kern Textfelder enthält mit den Daten die ich anzeigen möchte, also zum Beispiel Artikelnummer, Preis, Anzahl usw...
Und für jeden Artikel im Auftrag wird ein Steuerelement zu einem FlowLayoutPanel hinzugefügt. Ich hoffe es wird klar was ich meine, sonst erstelle ich morgen mal fix ein Beispiel...

VaporiZed · 16. Juni 2021, 21:34

Moment. Du hast beim Umgang mit tDS erstmal keine eigen erstellten Listen. Das macht das tDS für Dich. Bzw. die Designer-Unterstützung. Im Fenster Datenquellen hast Du Dein tDS, darunter die DataTables und wenn Du die "aufklappst", kommen jene DataTables, die von der selektierten abhängig sind. Wenn Du also Deine DataTable Auftrag auf's Form ziehst und danach noch die Auftrags-Artikel-Tabelle, die bei den Datenquellen als abhängige (Unter)Tabelle von der Auftragstabelle erscheint, werden zur Laufzeit nur die Auftragsartikel angezeigt, die zum selektierten Auftrag gehören. Sonst keine. Daher musst Du gar keine eigenen Listen führen.

Philipp schrieb:

Zum Beispiel dachte ich an ein Benutzersteuerelement welches im Kern Textfelder enthält mit den Daten die ich anzeigen möchte, also zum Beispiel Artikelnummer, Preis, Anzahl usw...
Und für jeden Artikel im Auftrag wird ein Steuerelement zu einem FlowLayoutPanel hinzugefügt.

10 Artikel mit 5 Eingenschaften ergibt mit Deinem Plan schon 50 Controls. Ist das Dein Plan? Ich bin auf Dein Beispiel gespannt.

Philipp · 16. Juni 2021, 22:18

Okay ich habe mal Quick und Dirty ein Benutzersteuerelement erstellt um zu Zeigen was ich meine:

Das Steuerelement hat die Textboxen Beschreibung, Preis und Anzahl (beispielhaft). Eben genau die Informationen die ich dem Nutzer für jeden Artikel bereitstellen möchte, also ggf. auch noch mehr.

Zur Laufzeit wird dann für jeden Artikel EIN Steuerelement hinzugefügt, so wie in Screenshot 2.png.

Ich hoffe jetzt wird deutlich was ich meine.

Dieses Design hat natürlich noch keinerlei Vorteile gegenüber einem Datagridview, aber in einer etwas durchdachteren Form hat man da natürlich schon schönere Möglichkeiten denke ich...

VaporiZed · 16. Juni 2021, 22:41

Klar, kein Problem, mach ruhig, wenn Du Dir davon Designvorteile versprichst. Mit wenig Aufwand lässt sich da auch datenmäßig ne TableRow dranbinden.

Philipp · 17. Juni 2021, 08:01

VaporiZed schrieb:

Moment. Du hast beim Umgang mit tDS erstmal keine eigen erstellten Listen. Das macht das tDS für Dich. Bzw. die Designer-Unterstützung. Im Fenster Datenquellen hast Du Dein tDS, darunter die DataTables und wenn Du die "aufklappst", kommen jene DataTables, die von der selektierten abhängig sind. Wenn Du also Deine DataTable Auftrag auf's Form ziehst und danach noch die Auftrags-Artikel-Tabelle, die bei den Datenquellen als abhängige (Unter)Tabelle von der Auftragstabelle erscheint, werden zur Laufzeit nur die Auftragsartikel angezeigt, die zum selektierten Auftrag gehören. Sonst keine. Daher musst Du gar keine eigenen Listen führen.

Das ist richtig. Das klappt auch solange beide DGVs auf einem Form sind. Wenn das AuftragsDGV auf einem und das AuftragArtikelDGV auf einem anderen ist klappt das nicht mehr. Das ist mein Problem...

Und wenn ich an das zweite Formular die row übergebe, dann sehe ich alles richtig, kann vorhandene Datensätze auch im DGV bearbeiten. Aber irgendwie bin ich zu doof den richtigen Befehl zum löschen und hinzufügen von Datensätzen herauszufinden... *help*

VB.NET-Quellcode

Public Class Auftragdetails
Dim _rwAuftrag As DTSAuftragsverwaltung.tblAufträgeRow
Public Sub New(ByVal RwAuftrag As DTSAuftragsverwaltung.tblAufträgeRow)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
_rwAuftrag = RwAuftrag
End Sub
Private Sub Auftragdetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
IDTextBox.Text = _rwAuftrag.ID
VornameTextBox.Text = _rwAuftrag.tblKundenRow.Vorname
NachnameTextBox.Text = _rwAuftrag.tblKundenRow.Nachname
StraßeTextBox.Text = _rwAuftrag.tblKundenRow.Straße
PostleitzahlTextBox.Text = _rwAuftrag.tblKundenRow.Postleitzahl
OrtTextBox.Text = _rwAuftrag.tblKundenRow.Ort
AnredeTextBox.Text = _rwAuftrag.tblKundenRow.Anrede
DataGridView1.DataSource = _rwAuftrag.GettblAuftrArtikelRows 'DataGridView1 ist ein bis dahin leeres und ungebundenes DGV
End Sub
End Class

VaporiZed · 17. Juni 2021, 08:38

Warum klappt das mit den getrennten DGVs nicht? Was heißt das genau? Wenn Du die auftragsabhängige-Artikelliste auf's SubForm haust, schau Dir an, welche Datenquelle für die generierte BS eingestellt wird. Das müsste eine AuftragsBindingSource sein. Diese musst Du natürlich vor SubForm-Aufruf korrekt befüllen, und zwar mit dem im Hauptform gewählten Auftrag, sonst weiß das Programm ja gar nicht, welchen Auftrag es bearbeiten soll. Also sowas ungefähr:

VB.NET-Quellcode

Using Dialog As New FrmBestellung
Dialog.AuftragBindingSource.DataSource = AuftragBindingSource.Current
Dialog.ShowDialog(Me)
End Using

Das mit der GUI-Befüllung: Bitte nicht, dafür gibt es DataBinding. Binde die Controls an die Properties der DataTable, die über die BS verfügbar ist.
Und Löschen und Hinzufügen: Das kommt drauf an, wie Dein SubForm funktionieren soll. Wenn Du nur einen Artikel im SubForm auswählen und dann ins MainForm zurückkehren willst, mach die Entscheidung vom DialogResult abhängig und füge direkt nach dem ShowDialog(Me) (s. Code oben) den HinzufügeCode aus (DeinTds.AuftragsArtikel.AddAuftragsArtikelRow(…)). Wenn Du mehrere Artikel hinzufügen willst, schieb den Code ins SubForm.

##########

@Philipp: Anbei mal ein simples Beispielprojekt

Philipp · 17. Juni 2021, 10:53

Sehr cool, danke. Damit werde ich erstmal weiter kommen.

VB.NET-Quellcode

Private Sub BtnAddItem_Click(sender As Object, e As EventArgs) Handles BtnAddItem.Click
DirectCast(BsTds.DataSource, Tds).OrderItems.AddOrderItemsRow(DirectCast(DirectCast(BsOrders.Current, Data.DataRowView).Row, Tds.OrdersRow), DirectCast(DirectCast(BsItems.Current, Data.DataRowView).Row, Tds.ItemsRow))
End Sub

Okay machen wir uns nichts vor, sooo trivial ist dieses Gebilde nun auch nicht

VaporiZed · 17. Juni 2021, 11:02

Nun, das sollte es aber fast sein. Klar, in der vorliegenden Rohform sieht es ziemlich lang und unübersichtlich aus. Aber der Doppelcast muss im Zusammenhang mit tDS-Arbeiten bekannt sein. Sonst kommst Du nicht sinnvoll weiter. Klar, später kannst Du dann Dir ne Extension nutzen (entweder die von EdR, die irgendwo in seinen Helpers drinsteckt oder indem Du sie Dir selber baust), wodurch DirectCast(DirectCast(BsOrders.Current, Data.DataRowView).Row, Tds.OrdersRow) zu BsOrders.Current(Of Tds.OrdersRow) wird. Und das mit dem DirectCast(BsTds.DataSource, Tds) ist ne Sache von mir selbst, was eine vereinfachte formübergreifende tDS-Arbeit ermöglicht und benötigt. Aber sonst sollte das Konstrukt an sich inhaltlich klar, nachvollziehbar und zukünftig auch von Dir nutzbar sein. Sonst wird das mit tDS und Co auf Dauer nix.

Philipp · 17. Juni 2021, 14:10

Wo lernt man das? Leider habe ich noch keine Lektüre gefunden die das mal anschauliche erklärt. Die "einfache" Variante des doppelcasts a la

VB.NET-Quellcode

Dim rwKunde = DirectCast(DirectCast(TblKundenBindingSource.Current, DataRowView).Row, DTSAuftragsverwaltung.tblKundenRow)

habe ich mittlerweile verstehen können... aber es fällt mir unheimlich schwer das zu lernen. Lernt man das sonst im Beruf oder wie läuft das? (Ich selber mache es ja nicht beruflich, wie man sieht...)

ErfinderDesRades · 17. Juni 2021, 19:11

Ich lerne ganz viel aus dem ObjectBrowser, und aus dem LokalFenster und so.
Dazu muss man die Dinger aber kennen, und man muss auch Grundlagenwissen haben: Was ist ein Objekt, ein Datentyp, ein Member, ein Shared Member, eine Enumeration, Vererbung, Interface, Überladung, Überschreibung...
Dann kann man an einem Haltepunkt zB eine BindingSource ins Überwachungsfenster holen, und auskundschaften: Was ist ihre Datasource, was ihre .List, was ist grad .Current - und wie zum Kuckuck ist da eiglich die DataRow drin versteckt - die ja im DGV angezeigt wird.

Zu ObjectBrowser und Kram: VisualStudio richtig nutzen (Google ist nicht deine Mami)

VaporiZed · 17. Juni 2021, 21:17

Das ist einer der komplizierteren Ausdrücke, die Du Dir vom Aufbau her musst. Nicht auswendig lernen, sondern nachbauen können. Sobald Du das kannst (aber erst dann, denn dann haste es Dir verdient

), mach Dir das Leben leichter, indem Du anfängst, mit Extensions zu arbeiten. Extensions sind Prozeduren, die so tun, als gehören sie zu einer Klasse, ohne das tatsächlich zu sein. Erstell Dir dazu in einer neuen Datei im Projekt ein Modul:

VB.NET-Quellcode

Imports System.Runtime.CompilerServices
Public Module Extensions
<Extension> Public Function Current(Of T As Data.DataRow)(BindingSource As BindingSource) As T
If BindingSource.Count = 0 Then Return Nothing
If TypeOf BindingSource.Current IsNot Data.DataRowView Then Throw New ArgumentException("Diese BindingSource ist nicht an ein tDS-DataTable gebunden.")
Dim UntypedDataRow = DirectCast(BindingSource.Current, Data.DataRowView).Row
Try
Return DirectCast(UntypedDataRow, T)
Catch ICEx As System.InvalidCastException
Dim TypeName = UntypedDataRow.GetType.Name
Throw New ArgumentException($"Diese BindingSource beinhaltet Rows vom Typ {TypeName}, nicht vom Typ {GetType(T).Name}.")
End Try
End Function
End Module

Dann kannst Du im Hauptprogramm nämlich schreiben:

VB.NET-Quellcode

Dim rwKunde = TblKundenBindingSource.Current(Of DTSAuftragsverwaltung.tblKundenRow)

Du kannst diese Prozedur also so verwenden, als sei sie eine Prozedur der BindingSource-Klasse. Ist sie aber gar nicht. Macht einem das Codieren aber leichter.
Wenn Du einen falschen Row-Typ übergibst oder die Extension auf eine falsche BS anwendest, wirste dezent drauf hingewiesen. Ok, es ist auch ohne das Exception-Rethrowing in Zeile#14 aussagekräftig genug, aber wurscht.
Später kannst Du das, ggf. mit zahlreichen anderen, selbstgebastelten Extensions auch in eine DLL auslagern und für andere Projekte nutzen. Und wenn Du die Extension verstanden hast und erfolgreich anwenden kannst, dann kannste Dir auch mal meine typed-BS reinziehen.

ErfinderDesRades · 17. Juni 2021, 23:01

grad mit dem Namen Current geht das glaub nicht, weil der ist schon von einem echten BS-Member belegt.

VaporiZed · 17. Juni 2021, 23:25

Doch. Das Thema hatten wir schon mal. Nutze ich seit langer Zeit.

Arbeiten mit dem Dataset

Arbeiten mit dem Dataset

VB.NET-Quellcode

VB.NET-Quellcode

Philipp schrieb:

Philipp schrieb:

VaporiZed schrieb:

VaporiZed schrieb:

VaporiZed schrieb:

Philipp schrieb:

VaporiZed schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben