Forum: Datenbanken
Delphi
by Metallicwar,
25. Nov 2010
hmn, irgendwas mach ich falsch....
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;
...
Forum: Datenbanken
Delphi
by Metallicwar,
25. Nov 2010
Hallo, kurz vor Feierabend häng ich aufm Schlauch...
erstmal Code: .......
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';