Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.431 Beiträge
 
Delphi 7 Professional
 
#41

AW: Problem mit Group by in Access

  Alt 25. Mai 2019, 20:15
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
  Mit Zitat antworten Zitat