Thema: Delphi problem mit abfrage

Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#3

Re: problem mit abfrage

  Alt 6. Apr 2005, 10:23
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;
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat