Funktion mit Query; wie rückgabeWert?

[t0mmy]

Hallo!

Und zwar ich habe eine Function mit einem Rückgabewert als String.
In dieser Function lese ich Ich die Katalognummer des jeweiligen Schülers aus
Jetzt möchte ich diese Nummer als Rückgabewert erhalten aber wie funktioniert das mit result?

Delphi-Quellcode:

function ReadKatalognummer(Vorname : String) : String;
begin

  DataModule1.ADOQuery_ReadKatalognr.SQL.Clear;
  DataModule1.ADOQuery_ReadKatalognr.SQL.Text :=
    'SELECT Katalognr '+
    'FROM Schueler '+
    'WHERE Name = '''+Vorname+''' ';
  DataModule1.ADOQuery_ReadKatalognr.ExecSQL;
end;

[DeddyH]

SELECT und ExecSQL passen nicht zusammen. Wie wäre es mit Open?

[haentschman]

Hallo...

Delphi-Quellcode:

function ReadKatalognummer(Vorname : String) : String;
begin
  Result:= ''; //zur Vorsicht 
  DataModule1.ADOQuery_ReadKatalognr.SQL.Text :=
    'SELECT Katalognr '+
    'FROM Schueler '+
    'WHERE Name = '''+Vorname+''' ';
  DataModule1.ADOQuery_ReadKatalognr.Open;
  Result:= DataModule1.ADOQuery_ReadKatalognr.FieldByName('Katalognr').AsString;
end;

Nachtrag:
'WHERE Name = '''+Vorname+''' '; ob da die richtigen Daten kommen ?

Verwendung von Parametern ist angebracht...

[schlecki]

da fällt mir nur das hier ein: klick

[p80286]

Delphi-Quellcode:

function ReadKatalognummer(Vorname : String) : String;
begin
  DataModule1.ADOQuery_ReadKatalognr.SQL.Text :=
    'SELECT Katalognr '+
    'FROM Schueler '+
    'WHERE Name =:Vorname  ';
  DataModule1.ADOQuery_ReadKatalognr.Params.Parambyname('vorname').asstring:=vorname;
  DataModule1.ADOQuery_ReadKatalognr.Open;
  if not(DataModule1.ADOQuery_ReadKatalognr.Eof) then
    result:=DataModule1.ADOQuery_ReadKatalognr.FieldbyName('Katalognr').asstring;
  else
    result:=' -- no Data Found --';
  DataModule1.ADOQuery_ReadKatalognr.Close;
end;

so ungefähr sollte es ausssehen aber "Vorname" ????????
Gruß
K-H

[Furtbichler]

Sollte das nicht auch so gehen, und zwar sicher?

Delphi-Quellcode:

Const
  sSQLQuery = 'SELECT Katalognr FROM Schueler WHERE Name=%s';
Var
  R : _Recordset;

begin
  R := ADOConnection1.Execute(Format(sSQLQuery,[QuotedStr(Vorname)]));
  if R.RecordCount>0 then
    Memo1.Lines.add(VarToStr(r.Fields.Item[0].Value));