hmn, irgendwas mach ich falsch....
Delphi-Quellcode:
begin
qAkteAnhänge.First;
for iDatensätze := 0 to qAkteanhänge.RecordCount - 1 do
begin
sNeueDatei := qAkteAnhänge.FieldByName('ID_PersonalAkte').AsString + '_' + qAkteanhänge.FieldByName('Dateiname').AsString;
sAlteDatei := qAkteAnhänge.FieldByName('DateinameSave').AsString;
RenameFile(sPfadPersonal+sAlteDatei, sPfadPersonal+sNeueDatei);
qNewAuftrag.SQL.Text := 'UPDATE Auftragakte_Anhaenge SET DateinameSave=' + QuotedStr(sNeueDatei) + 'WHERE DateinameSave=' +QuotedStr(sAlteDatei);
qNewAuftrag.ExecSQL;
qAkteAnhänge.Next;
end;
end;
der
SQL stimmt doch, er soll für jeden Datensatz den alten Dateinamen durch den neuen ersetzen, aber das tut er nicht, in der
DB stehn immer noch die selben werte....