problem mit abfrage

[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;