Txt File inhalt in DB speichern

[marabu]

Hallo Dominik.

Fehler entstehen bei der gezeigten Vorgehensweise zwangsläufig, wenn der Inhalt der Dateien mehrzeilig ist. Das aufnehmende Tabellenfeld ist doch bestimmt ein TMemoField? Dann würde ich es so probieren:

Delphi-Quellcode:

begin
  // ...
  error := FindFirst(pfad + '*.txt', faAnyfile, sr);
  while error = 0 do
  begin
    Inc(anzahl);
    dateiname := pfad + sr.name;
    id := ...; // damit du nicht immer den gleichen Datensatz änderst
    // label1.Caption := IntToStr(anzahl);
    // Memo1.Lines.LoadFromFile(dateiname);
    with command do
    begin
      CommandText := 'UPDATE Tabelle SET Daten = :text WHERE Id = :id';
      Parameters.ParamByName('text').LoadFromFile(dateiname);
      // Parameters.ParamByName().AsInteger := id; // ohne Parametername geht es nicht
      Parameters.ParamByName('id').AsInteger := id;
      Execute;
    end;
    error := FindNext(sr);
  end;
  FindClose(sr);
end;

Getippt und nicht getestet.

Grüße vom marabu