Danke für Eure Hilfe!!!
@Andreas
Dann sollte ich mir den Enterprise Manager mal zu gemüte führen und mal wild durch die Gegend klicken...
mit 2 Tabellen ist das (auch für mich) kein Problem, ich wußte nur nicht wie ich die Dritte mit einbinden sollte. Aber wenn mir der Enterprise Manager dabei hilft dann teste ich das gleich mal
@Time
Thx
Das funktioniert, habe nur noch die Tabellen eintragen müssen, weil nur der Alias alleine funktioniert nicht. Aber diese Zeile funktioniert immer noch nicht...
Delphi-Quellcode:
Parameters.ParamByName('iRNR').DataType := ftInteger;
Parameters.ParamByName('iRNR').asInteger := StrToInt(Edit6.Text);
Ich kann den Parameter nur als Variant übergeben was eigentlich nicht schlimm ist solange er nicht "verwurschtelt" wird Aber genau so funzt es jetzt wie ich es haben wollte...
für die Nachwelt noch mal so wie es sein sollte!
Delphi-Quellcode:
with Data1.Q_ALLERECHNUNGEN
do
begin
Active := False;
SQL.Clear;
SQL.Add('
SELECT AB.* ');
SQL.Add('
, RE.RE_NR ');
SQL.Add('
, RE.RE_PA_NR ');
SQL.Add('
, RE.RE_ANRDAT ');
SQL.Add('
, RE.RE_ABRDAT ');
SQL.Add('
, PA.PA_NR ');
SQL.Add('
, PA.PA_VORNAME ');
SQL.Add('
, PA.PA_NAME ');
SQL.Add('
FROM PATIENTEN PA ');
SQL.Add('
INNER JOIN RESERVIERUNG RE ');
SQL.Add('
ON RE.RE_PA_NR = PA.PA_NR ');
SQL.Add('
INNER JOIN ABRECHNUNG AB ');
SQL.Add('
ON AB.AB_RE_NR = RE.RE_NR ');
SQL.Add('
AND AB.AB_NR = :iRNR ');
SQL.Add('
ORDER BY PA.PA_NAME ');
Parameters.ParamByName('
iRNR').Value := StrToInt(Edit6.Text);
end;
try
Data1.Q_ALLERECHNUNGEN.Open;
except
ShowMessage('
Query Q_ALLERECHNUNGEN konnte nicht geöffnet werden!');
end;
Greets