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
