db afrage username und passwort

[strom]

jetzt kommt keine Fehlermeldung mehr :-)
aber geht trozdem nicht ?

Delphi-Quellcode:

procedure TForm2.BitBtn3Click(Sender: TObject);
begin
 with Form3 do begin

    Table.SQL.Text := 'SELECT * FROM BENUTZER WHERE username = :name AND password = :pass;';
    Table.ParamByName('name').AsString := Edit1.Text;
    Table.ParamByName('pass').AsString := Edit2.Text;
    //Table.Open;

 end;

 if Table.EOF then showmessage('Fehler')
  else form3.Show;

end;

[mkinzler]

Wie heisst den die Spalte in der Datenbank?

[strom]

die Spalten

id
username
password

die Datenbank BENUTZER

[mkinzler]

Ohen die Abfarge auzuführen wird kein Ergebnis geliefert werden

Zitat:

Delphi-Quellcode:

//Table.Open;

[haentschman]

Moin...:P

Fragen:
1: Warum heist die Query nun Table? Ist es eine Table oder immer noch eine Query?
2: Bitte laß das with xxx do einfach weg. Das macht nur Probleme...

[strom]

Habe ein wenig experimentiert,
einmal mit einer Query Komponente und einmal mit einer Table Komponente.

Bei der Query Komponente kommt immer noch eine Fehlermeldung, bei der Table nicht!

Wie könnte eine bfrage aussehen?

Delphi-Quellcode:

  if Edit1.Text = Query.ParamByName('user').AsString then begin
  if Edit2.Text........

[haentschman]

Zitat:

Bei der Query Komponente kommt immer noch eine Fehlermeldung, bei der Table nicht!

Du mußt wissen, daß bei einer Table ALLE Datensätze geladen verden. Mit einer Query kannst du nur die Daten holen die du magst. :thumb:

Delphi-Quellcode:

if Edit1.Text = Query.ParamByName('user').AsString then begin

...ist eindeutig falsch. Ein Parameter ist nur für die Aufnahme von Werten für die Query (SQL) da.
Dein Parameter im SQL heißt (letzter Stand) :name ... diesen mußt du füllen.

Delphi-Quellcode:

Query.ParamByName('name').AsString := 'Blubb';

PS: wie schon benmerkt ist name ein schlechter Bezeichner.

[Delphi.Narium]

ParamByName ist für die Übergabe von Werten an die Abfrage vor dem Öffnen derselben.

FieldByName ist für das Abholen von Werten nach dem Öffnen der Abfrage.

Ansonsten ist der gepostete Quelltext etwas knapp, um da zielgerichtet antworten zu können. Mal ein Schuss ins Blaue mit Hilfe der :glaskugel:

Delphi-Quellcode:

if Edit1.Text = Query.FieldByName('username').AsString then begin
  if Edit2.Text........

Wie heißt das Feld mit dem Benutzernamen in der Datenbank denn jetzt nun:

Wir haben da mal Name, nach Hinweisen auf Fehlermöglichkeiten wurde daraus Username und jetzt ist es User?

[p80286]

Der vollständige Sourcecode wäre jetzt nicht schlecht,
und wenn etwas nicht funktioniert, wäre es gut zu wissen was nicht funktioniert.

Gruß
K-H

[strom]

hallo,
einen vollständigen Sourcecode gibt es noch nicht, bin noch am experimentieren.

es sollte über Edit1 (User) und Edit2 (Password) und einem Button ein Login erfolgen.

Username und Passwort stehen in einer db

wie ich das ganze sinnvoll und einfach löse??? :oops: