Fehlerhafte Antwort einer Anfrage mit ZEOS und Isempty

haste · Hält's aus hier Beiträge: 6

Hallo!
Ich benutze Firebird 1.5.4, Borland 2006 und ZEOS 6.6.1.

Das Programm wird problemlos kompiliert.
Mit der folgenden Prozedure bekomme ich kein Ergebnis bei dieser Datenbankanfrage:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.LoginBnClick(Sender: TObject);
begin
  try
    ZQuery1.SQL.Clear;
    ZQuery1.sql.add('SELECT * FROM BENUTZER WHERE BNAME = :BenNameTxt AND PW = :PasswortTxt');
    BenNameTxt.Text := ZQuery1.ParamByName('BenNameTxt').AsString;
    PasswortTxt.Text:= ZQuery1.ParamByName('PasswortTxt').AsString;
    ZQuery1.Open;
    if ( Not (ZQuery1.IsEmpty)) then
        begin
          Form1.Visible := false;
          Form2.Showmodal;
        end
        else begin
          MessageDlg('Fehlerhaftes Passwort/Benutzername',mtWarning,[mbok],0);
          //Form1.Close;
          //Form2.Close;

    end
  finally
    ZQuery1.Active := false;
    ZQuery1.sql.clear;
  end
end;

Ich habe auch nur mit einem Parameter versucht, aber es passierte auch nichts!

Ich habe mit Handanfrage außerhalb Delphi nach konkreten Werten gesucht und bekam das erwartete Ergebnis.
Zusätzlich habe ich nur mit

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.LoginBnClick(Sender: TObject);
begin
  try
    ZQuery1.SQL.Clear;
    ZQuery1.sql.add('SELECT * FROM BENUTZER');
    ZQuery1.Open;
    if ( Not (ZQuery1.IsEmpty)) then
        begin
          Form1.Visible := false;
          Form2.Showmodal;
        end
        else begin
          MessageDlg('Fehlerhaftes Passwort/Benutzername',mtWarning,[mbok],0);
          //Form1.Close;
          //Form2.Close;

    end
  finally
    ZQuery1.Active := false;
    ZQuery1.sql.clear;
  end
end;

probiert und bekam auch Ergebnis.

Deswegen verdächtige ich, dass etwas mit den Parametern nicht in Ordnung ist!

Weil ich keine Information dafür finden konnte, bitte ich Sie um Hilfe!

mkinzler · Verfasst: Do 19.04.07 06:46

Versuch mal:

markieren

Delphi-Quelltext

1:
2:
3:
4:

    ZQuery1.sql.Text := 'SELECT Count(*) as anzahl FROM BENUTZER';
    ZQuery1.Open;
    if ZQuery1.FieldByName('anzahl').Value > 0 then
        begin

Außerdem scheinst du ein Liebhaber von unnötigen Klammern zu sein:
if ( Not (ZQuery1.IsEmpty)) then kann man auch als

markieren

Delphi-Quelltext

1:	if Not ZQuery1.IsEmpty then

Schreiben.

_________________
Markus Kinzler.

stifflersmom · Beiträge: 194 XP /XP PRO/ SuSE div. D1 - D7, BDS 2006

Nimm doch einfach statt empty die Menge, also RecordCount

haste hat folgendes geschrieben:

Hallo!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.LoginBnClick(Sender: TObject);
begin
  try
    ZQuery1.SQL.Clear;
    ZQuery1.sql.add('SELECT * FROM BENUTZER WHERE BNAME = :BenNameTxt AND PW = :PasswortTxt');
    BenNameTxt.Text := ZQuery1.ParamByName('BenNameTxt').AsString;
    PasswortTxt.Text:= ZQuery1.ParamByName('PasswortTxt').AsString;
    ZQuery1.Open;
    if ZQuery1.RecordCount > 0  then // Stat Empty, einfach ErgebnisMENGE ansehen
        begin
          Form1.Visible := false;
          Form2.Showmodal;
        end
        else begin
          MessageDlg('Fehlerhaftes Passwort/Benutzername',mtWarning,[mbok],0);
          //Form1.Close;
          //Form2.Close;

    end
  finally
    ZQuery1.Active := false;
    ZQuery1.sql.clear;
  end
end;

Moin

alex517 · Beiträge: 60 D7Ent, FB, FIBPlus

Hallo haste,

versuchs doch mal damit:

markieren

Delphi-Quelltext

1:
2:
3:

    ZQuery1.sql.add('SELECT * FROM BENUTZER WHERE BNAME = :BenNameTxt AND PW = :PasswortTxt');
    ZQuery1.ParamByName('BenNameTxt').AsString := BenNameTxt.Text;
    ZQuery1.ParamByName('PasswortTxt').AsString := PasswortTxt.Text;

alex

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme