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.

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... .

[Gollum]

Hallo,

warum so kompliziert?

Delphi-Quellcode:

  ...
  pwQuery.Close;
  pwQuery.SQL.Text:=
    'UPDATE "t:eDienstreisebuch\pw.dbf"'+#13#10+
    Format('SET Passwort="%s"', [edPWneu.text])+#13#10+
    Format('WHERE (Name="%s") AND (Passwort="%s")', [edName.text, edPWalt.text]);
  pwQuery.ExecSQL;
  ...

[LuckyStrike4life]

Hm..

der Code haut nicht hin,
ich bekomm beim Ausführen des Codes immer nur:
Fehler beim Erstellen des Cursor-Handle.

[Robert_G]

Mach's mit einer Mischung aus deinem und Gollums Code:

Delphi-Quellcode:

  pwQuery.Close; 
  // Die Zeile kannst du dir sparen, da du mit "pwQuery.SQL.Text := ..." den Text komplett überschreibst 
  // pwQuery.SQL.Clear; 
  pwQuery.SQL.Text := 
  'UPDATE DeineTabelle'+ #10 + 
  'SET    PassWord = :iNewPassWord' + #10 + 
  'WHERE  Name     = :iUserName'; 
  pwQuery.prepare; 
  pwQuery.ParamByName('iUserName').AsString    := edName.Text; 
  pwQuery.ParamByName('iNewPassWord').AsString := edPWneu.Text;
  // Da dies keine Abfrage, sondern DML ist, musst du ExecSQL aufrufen
  pwQuery.ExecSQL;

Auch wenn mich so mancher Datasource/TTable-Anhänger jetzt kreuzigen will. :mrgreen:
Führe Updates "zu Fuss" aus, in einer Query -> dadurch hast du einfach mehr Kontrolle darüber was wann an den Server geht.

p.s.: Ich bin davon ausgegangen, dass "Name" in der DB eindeutig ist.

[LuckyStrike4life]

Delphi-Quellcode:

  pwQuery.Close;
  pwQuery.SQL.Clear;
  pwQuery.SQL.Text :=
  'SELECT * ' + #10 +
  'FROM "t:\edienstreisebuch\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.Close;
  pwQuery.SQL.Text :=
  'UPDATE "t:\eDienstreisebuch\pw.dbf"' + #10 +
  'SET    Passwort = :iNewPassWord' + #10 +
  'WHERE  Name     = :iUserName';
  pwQuery.prepare;
  pwQuery.ParamByName('iUserName').AsString    := edName.Text;
  pwQuery.ParamByName('iNewPassWord').AsString := edPWneu.Text;
  pwQuery.ExecSQL;
end;

So gehts nun, juhuu!

Weiß wer wie man normale Editfelder verschlüsselt, ich meine damit - dass die Felder fürs Passwort nicht in Klartext angezeigt werden, jenes wäre wohl sehr hilfreich... . Hm.

[Schubi]

Hm...Entweder du reagierst auf Edit.OnChange und holst den Text in eine Variable, und ersetzt den Text im Edit mit *** oder du nimmst einen Maskedit. Dann musst du dich halt ums Posten und ändern usw selber kümmern

[Robert_G]

Oder noch viel einfacher -> in PasswordChar des Edits mal ein * eintragen :shock:

[Schubi]

Äh, ja, ich dachte er hatte geschrieben DBEdit. Aber wenn er nen normalen edit hat, kann er den ja durch einen MaskEdit ersetzen, wie ich bereits geschrieben hab. Der normale Edit hat die eigenschaft PasswordChar nämlich nicht :wink:

[Robert_G]

Doch hat es... :P

[LuckyStrike4life]

Zitat:

Zitat von GeorgeWNewbie

Doch hat es... :P

Thx, das geht!

Sehr schön.