Materialbestand berechnen

[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

[Luckner]

Hallo Delphi.Narium

Code:

Query.SQL.Add('left join materialrollen b on (b.rollennr = a.rollennr) and (b.materialnr = a.materialnr)');

Die Zeile kann ich so nicht richtig nachvolziehen, denn in der Tabelle a (Rollenlager) gibt es nicht das Feld materialnr.

In meiner Abfrage (jetzt mit den original Bezeichnungen) habe die die Abfrage so eingetragen.

Code:

SELECT Materialrollen.Rollennummer, Materialrollen.[Mat-Nr], SUM(Materialrollen.[Arb-Breite]  *  Materialrollen.lfm) as quadratmeter
FROM Materialrollen LEFT JOIN Rollenlager ON (Materialrollen.Rollennummer = Rollenlager.Rollennummer)

noch ohne GROUP BY usw. und bekomme jetzt einhen Fehler, den ich nicht verstehe:

"Sie wollten eine Abfrage ausführen, die den angegebenen Ausdruck 'Rollennummer' nicht als Teil einer Aggregatfunktion einschließt"

Wenn ich jedoch

Code:

, SUM(Materialrollen.[Arb-Breite]  *  Materialrollen.lfm) as quadratmeter

weglasse, dann kann ich die Funktion aufrufen. Also ist an der Summen-Funktion etwas faul. Bitte um Hilfe.

Gruß, Luckner

[Delphi.Narium]

Zitat:

"Sie wollten eine Abfrage ausführen, die den angegebenen Ausdruck 'Rollennummer' nicht als Teil einer Aggregatfunktion einschließt"

heißt nichts weiter, als dass das Group By fehlt.

Aggregatfunktionen, wie Sum, Count, ..., die zusätzlich zu nicht aggregierten Spalten in einem SQL vorkommen, funktionieren nur dann, wenn alle Spalten, die nicht aggregiert werden, im Group By enthalten sind.

SQL-Code:

SELECT 
  Materialrollen.Rollennummer, -- nicht aggregiert
  Materialrollen.[Mat-Nr], -- nicht aggregiert
  SUM(Materialrollen.[Arb-Breite] *  Materialrollen.lfm) as quadratmeter -- aggregiert
FROM Materialrollen 
LEFT JOIN Rollenlager 
ON (Materialrollen.Rollennummer = Rollenlager.Rollennummer) 
group by
  Materialrollen.Rollennummer, -- muss, da nicht aggregiert, ins Group By
  Materialrollen.[Mat-Nr] -- muss, da nicht aggregiert, ins Group By