Registriert seit: 27. Nov 2017
2.508 Beiträge
Delphi 7 Professional
|
AW: Problem mit Group by in Access
25. Mai 2019, 21: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
|