Problem mit Group by in Access

[Delphi.Narium]

Nö, wenn schon lesbar, dann eventuell eher so?

Delphi-Quellcode:

const 
  csRollenJoinLagerplatz = 
   'SELECT Rollenlager.Lagerplatz' +
   'FROM Materialrollen ' +
   'LEFT JOIN Rollenlager ' +
   'ON Rollenlager.Rollennummer = Materialrollen.Rollennummer ' +
   'where Materialrollen.[Mat-Nr] = :MatNr ' +
   'and Materialrollen.DatumAb is NULL ' +
   'group by Rollenlager.Lagerplatz';

// hier dann weitere Konstanten für diverse im Programm benötigte SQLs.

// und in der Routine, in der die Abfrage dann benötigt wird nur noch ein:
  Datamodule1.ADOQueryRollenJoinLagerplatzTabelle.SQL.Text := csRollenJoinLagerplatz;
  Datamodule1.ADOQueryRollenJoinLagerplatzTabelle.Parameters.ParamByName('MatNr').Value := EditMaterialeingangMatNr.Text;

Literatur dazu hier aus dem Forum:
https://www.delphipraxis.net/49505-s...einbinden.html
https://www.delphipraxis.net/190316-...e-creator.html

Selberweitersuchen: https://www.google.com/search?q=sql+...lphipraxis.net

[p80286]

Gruß
K-H

[haentschman]

Moin...

Delphi-Quellcode:

'SELECT Rollenlager.Lagerplatz' +
   'FROM Materialrollen ' +
   'LEFT JOIN Rollenlager ' +
   'ON Rollenlager.Rollennummer = Materialrollen.Rollennummer ' +
   'where Materialrollen.[Mat-Nr] = :MatNr ' +
   'and Materialrollen.DatumAb is NULL ' +
   'group by Rollenlager.Lagerplatz';

Ihr kennt ja meine Meinung. SQL außerhalb vom Quelltext oder in Komponenten! Dieses SQL ist nicht direkt im SQL Editor der Wahl testbar und hat kein Highlighting des SQL. Das rangiert für mich in der Reihe der ADD Orgien. Für das Ablegen der SQL gibt es bessere Möglichkeiten.

[Delphi.Narium]

Zitat von haentschman:

Moin...
Ihr kennt ja meine Meinung. SQL außerhalb vom Quelltext oder in Komponenten! Dieses SQL ist nicht direkt im SQL Editor der Wahl testbar und hat kein Highlighting des SQL. Das rangiert für mich in der Reihe der ADD Orgien. Für das Ablegen der SQL gibt es bessere Möglichkeiten.

Weshalb hab' ich wohl auf Deinen DIMOWA® SQL Resource Creator verlinkt?

[haentschman]

...hatte ich nicht gesehen.

[p80286]

laßt es gut sein, wir entfernen uns ein wenig von der ursprünglichen Fragestellung.

Gruß
K-H

[Luckner]

Hallo,

vielen Dank für die Hilfestellung. Habe das Problem jetzt mit folgender SQL-Anweisung hin bekommen:

Delphi-Quellcode:

 SELECT First(Materialrollen.Rollennummer) AS ErsterWertvonRollennummer, Rollenlager.Lagerplatz 
 FROM Materialrollen LEFT JOIN Rollenlager ON Materialrollen.Rollennummer = Rollenlager.Rollennummer 
 GROUP BY Rollenlager.Lagerplatz, Materialrollen.DatumAb, Materialrollen.[Mat-Nr] 
 HAVING (((Materialrollen.DatumAb) Is Null) AND ((Materialrollen.[Mat-Nr])= '+ EditMaterialeingangMatNr.Text + '))
 ORDER BY Rollenlager.Lagerplatz

Ich muss jedoch zugeben, dass mich ein ACCESS-Profi, mit Hilfe des in ACCESS eingebauten Generators, unterstützt hat.

Vielen Dank, Luckner