Update ausführen

[shmia]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iDatensätze: Integer;
  sNeueDatei: String;
  sAlteDatei: String;
begin
  qAkteAnhänge.SQL.Text := 'SELECT ID_PersonalAkte, Dateiname, DateinameSave FROM PersonalAkte_Anhaenge';

  qAkteAnhänge.Open;

  while not qAkteanhänge.Eof do
    begin
      sNeueDatei := qAkteanhänge.FieldByName('ID_PersonalAkte').AsString + '_' + qAkteanhänge.FieldByName('Dateiname').AsString;
      //sAlteDatei := qAkteanhänge.FieldByName('DateinameSave').AsString;
      //RenameFile(sAlteDatei, sNeueDatei);

      qAkteanhänge.Edit;
      qAkteanhänge['DateinameSave'] := sNeueDatei;
      qAkteanhänge.Post;
      qAkteAnhänge.Next;
    end;
end;