problem mit abfrage

[RavenIV]

Zitat von Sharky:

Hai Gigant02,

ich würde bei der Abfrage einen anderen Weg gehen. Dir reicht ja die Information ob es einen Eintrag mít User und Passwort gibt. Also kannst Du das ja auch so beim Server abfragen:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
Var
  cUser : string;
  cPass : string;
begin

  cUser           := Edit1.Text;
  cPass           := Edit2.Text;
  
  Query1.Close;
  Query1.Sql.Test := 'SELECT COUNT(*) AS anzahl FROM login ' + #10
                   + 'WHERE (user = ' + QuotedStr(cUser) + #10
                   + ') AND (passwort = ' + QuotedStr(cPass) + ')';
  Query1.Open
  if (Query1.FieldByName('anzahl').AsInteger = 1) then
  begin
    ShowMessage('hallo');
  end;
end;

ich würde das #10 weglassen.
und dann heisst es Query1.Sql.Text!
beim SQL-Befehl könnte man "DISTINCT" einabuen, weil es ja nur einen passenden datensatz geben kann.
und prüfe bei der auswertung ab, ob RowCount = 1 ist.

gruessle