Hi,
ich benutze 2 Forms, in denen stellenweise identische Textboxen sitzen.
Dafür möchte ich nur eine sub nutzen, die nach Aufruf ein Ergebnis an jeweilige Textbox sendet.
Ich dachte es mir eigentlich so:

Code Modul:


Um es dann von einer x-beliebigen Form so aufzurufen:


Aber selbst, wenn ich im Modul noch "frm = Form_Admin" einfüge, sagt er mit dass Textbox1 kein Member von Form wäre.

Wo sitzt mein Denkfehler?

Ok, klingt logisch. Wäre auch ein Lösungsansatz, wird aber ekelig wenn es mehrere Controls sind, die von der Sub angesprochen werden müssen.

Aber warum geht selbst dies nicht, das würde es ja ein wenig vereinfachen?

Das sollte doch klappen?!?!


geht ja schließlich auch.

@RodFromGermany Ich fürchte ich bin ein Banause, Deine Tipps sind "Perlen vor die Säue" VB habe ich mir selber beigebracht, bis auf guten alten AppleII-Basic Hintergrund weiß ich nichts. Hab grade mal schnell nach "gemeinsamen Basisklassen" gegoogelt, hat mir leider auch nichts gebracht.
Mit Modulen fange ich grade an, von Klassen weiß ich noch überhaupt nix, das muss wohl mein nächstes Fortbildungsprojekt werden...

@VaporiZed Du wirst lachen, das hatte ich bis vor 4 Wochen auch so gehabt. Dann habe ich mir Module angeschaut und fand es für mich günstiger, das Projekt zu trennen. Es besteht aus einem Admin-Teil und Clienten, die halt nur einen eingeschränkten Funktionsumfang bekommen.
Ich muss bei jedem neuen Admin-Button auch direkt im Formload sagen "wenn client, dann button.dispose". Das ist es, was Du meinst?!
Deshalb war mein Gedanke, die beiden Teile zu trennen. Aber idealerweise nur die Form, nicht die von beiden Teilen benutzten Subs und Functions. Dann kann ich in der Admin-Form rumaasen und experimentieren, und bei den Clients ändert sich nichts.
Nur muss ich jetzt die benutzten Subs noch doppelt vorhanden haben, das macht das Pflegen unübersichtlich und unnötig kompliziert.
Daher der Gedanke, die Subs zusammen zu fassen und von beiden Formen aus nutzen zu können.

Schreit das vielleicht in euren Ohren nach einer anderen Lösung? Rods Ansatz überblicke ich noch nicht richtig, aber wie ich es bis jetzt verstehe, wäre das was im Hinblick auf meine Erklärung?!

@RodFromGermany
Ich glaube zu verstehen... In der Basisklasse stecken meine Subs, die ich dann mit basisklasse.subname(args) von überall aufrufen kann, weil sie mittels inherite überall hin vererbt werden können. Wäre das so richtig ausgedrückt? Falls ja, habe ich das doch auch mit dem Modul erledigt, nur dass mir dort die Kontrolle fehlen würde, von woher die Subs aufgerufen werden. Das wäre aber unwichtig bei mir.
Würde das denn etwas an meinem Ausgabeproblem der Subs in der gewünschten Form ändern?

@ErfinderDesRades
So halb, Daten im Sinne eines DGVs werden bei den Clienten nicht präsentiert. Dort laufen nur Funktionen ab. Zum Beispiel Formularmasken von Drittanbietern vorauszufüllen, also die Kundenadresse einzutragen um die Abläufe zu beschleunigen. Die Clienten holen sich eine Info aus der DB, z.B. "nächste Nachricht an Kunden" beim Mahnwesen. Beim Clienten wird dann die entsprechende Fremdanbieterapp gestartet und die Adresse des Kunden wird automatisch ausgefüllt. Das Ganze funktioniert auch schon recht gut, aber ich komme an einen Punkt wo die Pflege zuviel Zeit braucht und unbedingt die doppelten Funktionen (also beim Clienten und Admin) verschwinden müssen.

Ein eventueller Umbau des Projekts wäre kein Problem, noch ist es nicht zu groß dafür. Und wenn es mir auf lange Sicht Arbeit spart...

Ja, ich bin ein großer Fan Deiner Videos und des typisierten Datasets. Es hat nur leider einen großen Nachteil für mich.
Es gibt mehrere Clients, die im schnellen Rhythmus auf die Daten zugreifen. Also müsste ich vor jedem Zugriff das Dataset neu laden, um eventuelle Änderungen auf dem Server mitzubekommen. Widersprich mir jetzt gerne
Das wiederum dauert zu lange, also bin ich jetzt dazu übergegangen, nur die sich nicht ändernden Daten im Dataset zu halten. Den Rest lade ich über klassisches SQL direkt vom DB-Server, also z.B. ein hässliches cint(SELECT...) für integer. Ich weiß genau, dass sich Dir grad die Fußnägel hochrollen, aber gibt es eine andere Möglichkeit? Wir reden von ca. 20 Clients (also physikalisch vorhandene Rechner) und Daten, die sich zum Teil im Sekundentakt ändern...


Aber hier geht es ja inzwischen mehr um den Aufbau des ganzen, Sinn oder Unsinn mehrerer Forms, von Rod erwähnte Basisklassen. Alles halt mit dem Ziel einen einfachen, gut zu wartenden Code zu haben. Änderungen an den Anforderungen gibt es alle paar Tage, also möchte ich das möglichst übersichtlich halten.

Ich meinte damit einen normalen Select-Befehl, den ich mittels CINT() in eine Integer wandle.
Und ja, entschieden schneller, wir reden von 1-3 Sekunden, die das TableAdapter.Fill benötigt. Wobei es eine kleine Tabelle ist, 35 Datensätze 'a ca. 40 Felder.
Ich brauche meist nur 2-3 Werte aus der DB, da finde ich es komfortabler per Select.

BTW, die Frage an Dich wollte ich schon lange mal loswerden: Ich habe eine Datatable mit 30 Datensätzen. Jetzt möchte ich aus dem Satz mit der ID 5 den Wert der Spalte XY haben.
Mein Weg:

Gefällt mir nicht, ist bestimmt ein Ressourcenfresser weil er sich ja durch alle Datensätze quält, zum andern zu lang und hässlich.
Per SQL sage ich "SELECT XY FROM Table WHERE ID = 5" - feddich
Geht das nicht auch ähnlich mit dem Dataset? Habe schon herumgebaselt über die Bindingsource, aber führt alles zu nix vernünftigem.
Ähnliches Beispiel, ich will die Anzahl der Datensätze wissen, wo XY ="abc" ist:
count "SELECT FROM Table WHERE XY ="abc"
Wie könnte ich das ohne eine Schleife und extra Counter bei einem Dataset herausfinden?

Ich weiß ja, dass Du ein Verfechter des typisierten bist, gefällt mir ja eigentlich auch sehr - gäbe es denn einfache Lösungen für meine Beispiele?

Moin zusammen,
ich bemühe mich ja wirklich, die Begrifflichkeiten richtig zu benutzen. Aber wie gesagt, mir fehlt leider die Vorbildung um manches 100%ig zu formulieren.

Kasi
sollte wohl so aussehen:

Ja, Du hast recht. Ich wollte das Ganze abkürzen und dabei nur zeigen, wie simpel mMn ein Select funktioniert. Obwohl ich auch noch nicht wusste, dass ich innerhalb von SQL das count schon nutzen kann.
Ich habe mir 2 Functions gebaut, DB_Read, DB_Write. Und ja, innerhalb dieser Functions arbeite ich genau wie Du schriebst.
Also kann ich DB_Read("SELECT XY FROM Table WHERE ID = " & ID).First für einen einzelnen Wert, bzw. DB_Read("SELECT XY FROM Table WHERE XY = 'abc' ").count benutzen.
Dies meinte ich auch mit cint(select) - also komplett: CINT(DB_Read("SELECT XY FROM Table WHERE ID = " & ID).First)

@ErfinderDesRades
Dein "Dim myTypedRow = Dataset.typedTable.First(function(rw)rw.ID=5)" ist Gold wert, ich stehe auf schöne Einzeiler, thx! Änderungen (myTypedRow.XY = "def") werden dann auch ins Dataset übernommen nehme ich an?!
Und wie würdest Du ein count realisieren? Geht das auch so elegant?
Ja, Du hast Recht, es gibt ein angebundenes DGV. Das ist zu Debugzwecken drin, meist versteckt, wird aber erst beim Öffnen des DGVs mittels " TableDataGridView.DataSource = TableBindingSource" befüllt.
Ähm, um mal sicher zu gehen, dass wir vom Gleichen reden und ich da nichts vermurkst habe:

Im Form.load:
Me.Tbl_WarenTableAdapter.Fill(Me.MeinDataSet.tbl_Waren) um das Dataset zu füllen.

Um das Dataset zu aktualisieren:
Me.Tbl_WarenTableAdapter.ClearBeforeFill = True
Me.Tbl_WarenTableAdapter.Fill(Me.MeinDataSet.tbl_Waren)

Bei Bedarf die Änderungen auf dem DB-Server speichern:
Me.Validate()
Me.WarenBindingSource.EndEdit()
Me.WarenTableAdapter.Update(MeinDataSet.tbl_Waren)

Gibt es eigentlich eine Möglichkeit, einen Clienten erkennen zu lassen, ob sich das Dataset, was er geladen hat, auf dem Server in der Zwischenzeit geändert wurde? Damit er es automatisch SOFORT neu laden kann?
Ich experimentiere grade, um Zeitvergleiche zu haben. Da stolpere ich über etwas längst verdrängtes: Parallelitätsverletzungen...


Unerwarteter Anwendungsfehler:
Parallelitätsverletzung: Der UpdateCommand hat sich auf 0 der erwarteten 1 Datensätze ausgewirkt.
Das sollte doch daher kommen, dass in der Zwischenzeit von außerhalb des lokalen Datasets ein Wert in der DB geändert wurde durch mein SQL-Update.
Dies passiert dann aber auch, wenn einer der Clienten eine Änderung in der DB einpflegt. D.h., ich müsste quasi, bevor ich einen Wert speichere, erstmal das Dataset aktualisieren. Wobei meine Änderung dann ja flöten geht...
Jetzt erinnere ich mich, das war der letzte Punkt, warum ich von Datasets zum schreiben abgerückt bin...


@RodFromGermany
Du meinst also damit, dass aus einem Modul maximal ein Rückgabewert aus einer Function kommen sollte, aber niemals ein Zugriff auf irgendeine Form?
Wie wäre dann der Aufbau meines Projektes?

- Komplett auf Module verzichten
- Basisklasse, in der alle Subs und Funcs liegen, die auch die Controls der Formen ansprechen
- dann natürlich die 2 Formen, von der aber (abhängig von der Benutzeranmeldung) entweder der Client ODER der Admin gestartet wird. Also, es werden niemals BEIDE Formen gleichzeitig offen sein.
- Manche Subs müssen leichte Unterschiede je nach geöffneter Form aufweisen. DIe auch in die Basisklasse packen, und dort dann ein "if Form_Admin.visible then dieses else jenes"?


Puh, ich danke euch für das reichhaltige Feedback! Ich bekomme nur langsam ein schlechtes Gewissen, weil das hier alles so anwächst und ich langsam alle großen Köpfe dieses Forums hier festhalte