Hallo, kurz vor Feierabend häng ich aufm Schlauch...
erstmal Code: .......
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;
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(sAlteDatei, sNeueDatei);
qAkteanhänge.ExecSQL := 'UPDATE Personalakte_Anhaenge SET DateinameSave=' + QuotedStr(sNeueDatei) + ' WHERE DateinameSave= ' + QuotedStr(sAlteDatei); // in dieser Line hab ich Probleme
qAkteanhänge.Open;
qAkteanhänge.Close;
qAkteAnhänge.Next;
end;
end;
.. habe das ganze zuvor mit qAkteanhänge.SQL.Text := 'Update .... probiert, da meinte er ich soll bei solchen Statements execSQL verwenden. Soweit so gut, also verwende ich nun execSQL aber so meint er, dass der linken seite nichts zugewiesen werden kann wenn ich den : weglasse meint er := erwartet aber = gefunden?!?
Bin ausgepowert
würde mich über Hilfe freuen, damit ich dass heute Abend noch fertig bekomme.