SQL Datensätze mit einem bestinmmten Wert ausgeben

[GuenterS]

ok, ich mach eine kleine Procedure, als Beispiel...

ausgehend von folgender Tabellenstruktur der Tabelle Kunden

Code:

KundenID | KundenName
---------|-----------
   1     | Huber
   2     | Meier
   3     | Müller

Delphi-Quellcode:

function getKundenName(aKundenID: integer):string;
begin
   Result := '';
   with TQuery.Create(nil) do
   try
      DatabaseName := 'meineDatenbank';
      SQL.Text := 'SELECT KundenName FROM Kunden WHERE KundenID = :KID';
      ParamByName('KID').AsInteger := aKundenID;
      Open;
      if (not IsEmpty) then
         Result := FieldByName('KundenName').AsString;
      Close;
   finally
      Free;
   end;
end;

Natürlich hättest Du hier in diesem Beispiel auch schreiben können

Delphi-Quellcode:

function getKundenName(aKundenID: integer):string;
begin
   Result := '';
   with TQuery.Create(nil) do
   try
      DatabaseName := 'meineDatenbank';
      SQL.Text := Format('SELECT KundenName FROM Kunden WHERE KundenID = %d', [aKundenId]);
      Open;
      if (not IsEmpty) then
         Result := FieldByName('KundenName').AsString;
      Close;
   finally
      Free;
   end;
end;

Hätte hier das gleiche bewirkt.