SQL: Namens u. Passwortabfrage funzt, aber PW ändern nicht.

**LuckyStrike4life**

Morgen,
ich hab mich mal rangesetzt und ne Passwortabfrage geschrieben. Hab das ganze Programm + Datenbank als *.rar mal mit Hochgeladen, damit ihr euch das anschaun könnt.

Die Passwortabfrage bezogen auf den jeweiligen Namen geht,
aber ich brauch auch eine Maske, wo man sein PW verändern kann.

Da hab ich mir gedacht es würde funktionieren wenn ich die PW Abfrage mache, und wenn der Query ein Ergebniss erhält - dann wird das neue PW (ausm edit Feld) gleich abgefragt und eingeschrieben.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

  pwQuery.Close;

  pwQuery.SQL.Clear;

  pwQuery.SQL.Text :=

  'SELECT * ' + #10 +

  'FROM pw.dbf' + #10 +

  'WHERE Name = :iedName AND' + #10 +

  '      Passwort = :iedPWalt';

  pwQuery.prepare;

  pwQuery.ParamByName('iedName').AsString := edName.text;

  pwQuery.ParamByName('iedPWalt').AsString := edPWalt.text;

  pwQuery.open;

  pwQuery.Active:=True;

if pwQuery.Bof and pwQuery.Eof

 then begin

 application.terminate;

 end

{ else

  pwQuery.edit;

  pwQuery.FieldByName('Passwort').AsString := edPWneu.text;

 }   end;

Ich hab den Code, der den Fehler verursacht mal ausgeklammert.
Delphi gibt ne Fehlermeldung raus,
pwQuery: Eine Datenmenge die nur zum lesen ist, kann nicht verändert werden.

Wie muss ich denn den Code verändern, damit ich das PW auch in der Art ändern kann?

Schaut euch das Programm mal an, ist Delphi 5 Enterp. - ich hoffe ihr könnts öffnen, compilieren, lesen usw... .

SQL: Namens u. Passwortabfrage funzt, aber PW ändern nicht.

SQL: Namens u. Passwortabfrage funzt, aber PW ändern nicht.

Forumregeln