Einzelnen Beitrag anzeigen

Silbar

Registriert seit: 23. Jun 2005
42 Beiträge
 
Delphi 6 Professional
 
#1

Problem mit COUNT (vermutlich ist die Antwort einfach^^*)

  Alt 26. Jul 2005, 15:19
Datenbank: Oracle • Version: 8 • Zugriff über: BDE
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)
  Mit Zitat antworten Zitat