Materialbestand berechnen

[dummzeuch]

Zitat von Luckner:

Eine Stored Procedure fände ich auch gut, aber Access ist auch nicht meine Ecke und deshalb keine Ahnung ob und wie.

In Access schreibt man "stored Procedures" in VBA. Nichts, was man wirklich machen will.

[Delphi.Narium]

Klingt mir schwer nach: Wir schreiben eine View. Um das zu vereinfachen, wäre es nett, wenn Du uns den Teil der Tabellendefinitionen zur Verfügungstellen könntest, der entweder als Schlüssel / Fremdschlüssel oder für die Ermittlung des gewünschten Ergebnisses erforderlich erscheint.

Verstehe ich das richtig:

Materialrollen enthält alles, was es je gegeben hat?
Rollenlager enthält alles, was es gerade im Moment der Auswertung tatsächlich im Lager gibt?

Blups Ansatz ist hier richtig, fraglich ist halt nur, was die dritte Tabelle enthält. Da müsste man dann mal schauen, inwieweit sie zur Verwendung kommen kann / muss und wie granular das Ergebnis sein soll.

Grob könnte man (mal aus dem Bauch heraus) Blups Idee so erweitern:

SQL-Code:

create view v_quadratmeter as
select b.rollennr, b.materialnr, sum(b.breite * b.laenge) as quadratmeter
from rollenlager a
left join materialrollen b on (b.rollennr = a.rollennr) and (b.materialnr = a.materialnr) 
group by b.rollennr, b.materialnr
order by b.rollennr, b.materialnr

Ein select * from v_quadratmeter sollte Dir dann jederzeit den aktuellen Bestand zur Zeit der Abfrage liefern können.

[Luckner]

Es gibt eigtentlich nur die 2 genannten Tabellen. Die 3. ist nicht so wichtig. Es stehen nur die Materialnummern und die entsprechenden Preise und Lieferanten. Die Preise werden jedoch nut gelegentlich gepflegt und deshalb wird man den Materialwert des Lagers mit den entsprechenden Rechnungen berechnen.

Delphi.Narium, es stimmt so, wie Du es beschrieben hast mit den Tabellen. Werden Dein select-Vorschlag gleich ausprobieren. Und das Ergebnis hier melden. Vielen Dank an Alle.

Luckner

[Luckner]

Da ich jedoch nicht weiß, wie eine View in Access erstellt wird (in VBA will ich mich nicht einarbeiten, auch weil die Software in den nächste Jahren auf Firebird laufen soll) werde ich eine Tabelle in Firebird erstellen und ein select für die beiden Access-Tabellen erstellen.

Luckner.

[Delphi.Narium]

Kann man in Access kein Create View ausführen? Muss man da alles irgendwie über die Oberfäche zusammendaddeln?

Im Zweifelsfalle einfach in Delphi eine Query mit dem entsprechenden SQL versorgen und per ExecSQL ausführen.

Mach' ich immer so, auch mit Accessdatenbanken. Klappt seit Jahrzehnten.

Accessdatenbanken nutze ich immer ohne das zugehörige Programm.

Delphi-Quellcode:

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('create view v_quadratmeter as');
Query.SQL.Add('select b.rollennr, b.materialnr, sum(b.breite * b.laenge) as quadratmeter');
Query.SQL.Add('from rollenlager a');
Query.SQL.Add('left join materialrollen b on (b.rollennr = a.rollennr) and (b.materialnr = a.materialnr)');
Query.SQL.Add('group by b.rollennr, b.materialnr');
Query.SQL.Add('order by b.rollennr, b.materialnr');
Query.ExecSQL;

Würde mich schwer wundern, wenn das nicht funktioniert.

[Luckner]

OK, werde ich probieren. Danke.

Luckner

[Delphi.Narium]

Habe es gerade nochmal an 'ner eigene DB ausprobiert.

Es kann sein, dass man die Zeile Query.SQL.Add('order by b.rollennr, b.materialnr'); bei Access weglassen muss. Das ist aber kein Beinbruch, dann macht man das Order by halt erst bei der Abfrage per select * from v_quadratmeter order by rollennr, materialnr