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...