Also ich habe folgendes Problem:
Ich habe in meinen Delphicode eine IF-Abfrage in der die 'COUNT'-Anweisung aus der TreeQuery2 geprüpft werden soll ob sie kleiner als 1 ist. Jetzt die Frage ... wie laute die passend Vergleichanweisung? Komme einfach nicht richtig an das Countergebnis ran...
Das ist die Prozedure:
Delphi-Quellcode:
procedure TForm1.TreeClick(Sender: TObject);
Var a : String;
b : integer;
begin
IF TreeEdit.Text<>'' then
begin
TreeQuery1.Close;
TreeQuery2.Close;
TreeQuery1.Params[0].Value := TreeEdit.Text;
TreeQuery2.Params[0].Value := TreeEdit.Text;
TreeQuery1.Open;
TreeQuery2.Open;
IF (TreeQuery2.FieldValues['COUNT'].AsInteger<1) // hier gibs das Problem
then TreeLabel.Caption:='Es wurde kein passendes Ergebnis gefunden'
else
begin
TreeMemo.Visible:=true;
TreeLabel.Caption:=inttostr(TreeQuery2.RecordCount);
end;
end
else
TreeLabel.Caption:='Es wurden keine Angaben gemacht';
end;
und das ist das
SQL-Stateamnet aus TreeQuery2:
SELECT count(*) FROM artikel, arttree WHERE artikel.tree = arttree.lfd and artikel.artnr LIKE :ARTNR
schon mal danke für Antworten im vorraus
Zukunft: etwas, das die meisten Menschen erst lieben, wenn es Vergangenheit geworden ist.
- William Somerset Maugham (engl. Schriftsteller)