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.