Txt File inhalt in DB speichern

[domsch]

Zitat von marabu:

Hallo Dominik.

Fehler enstehen 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;
      Execute;
    end;
    error := FindNext(sr);
  end;
  FindClose(sr);
end;

Getippt und nicht getestet.

Grüße vom marabu

HI marabu

das Feld in der DB ist ein "Text" Feld. Is bei MSSQL für große Textmengen...
Bei den paar Versuchen wo die Daten in die DB geschrieben werden, sind die Daten auch mehrzeilig und ich kann sie auch so wieder rausholen.

Das mit den Parametern geht leider nicht,

Delphi-Quellcode:

 
[Pascal Fehler] Unit1.pas(82): E2035 Nicht genügend wirkliche Parameter

da ich leider so gar keine Ahnung von Paramentern habe, kann ich mit der Fehlermeldung nix anfangen