Die Zeilen eines TMemo in die Datenbank (Tabelle) speichern

[LOMBI]

Seit einiger Zeit versuche ich die Einträge eines TMemos zeilenweise in die ABSTabelle zu speichern, aber ohne Erfolg:

Delphi-Quellcode:

procedure TDemoForm.BtnSpeichernClick(Sender: TObject);
begin
  with DatenModel, QueryKTxt do
  begin
  Append;
  FieldByName('Zeile1').AsString := Memo1.Lines[0];
  ...
  Post;
   end;
end;

Über Hilfe würde ich mich sehr freuen!

Gruß
Lombi

[mkinzler]

Kommt ein Fehler?

[LOMBI]

Nein das nicht, aber es wird nichts in die Tabelle gespeichert.

[marabu]

Hallo Lombi,

wenn kein Fehler kommt, dann könnte ich mir vorstellen, dass sehr wohl etwas in der Tabelle gespeichert wurde. Du hast allerdings kein Schlüsselfeld gefüllt, so dass du den Datensatz nicht an der erwarteten Stelle findest.

Die Zeilen eines Memos würde ich nicht unbedingt auf einzelne Felder eines Datensatzes abbilden wollen. Flexibler ist es, wenn der Inhalt gleich in einem Memo-Feld (ABS unterstützt diese Form eines BLOB-Feldes bestimmt) gespeichert wird. Oder, wenn ein BLOB-Feld nicht zur Diskussion steht, dann in einer Detailtabelle TEXTE (ID, ZEILE).

Beispiele für das Ansprechen von Blob-Feldern aus Delphi heraus findest du in der ABS-Hilfe unter dem Indexeintrag BLOB.

Freundliche Grüße

[LOMBI]

Hallo marabu,

genauso ist es! Nach Änderungen werden jetzt die Memozeilen
in die Tabelle geschrieben, jedoch nicht in die dafür vorgese-
henen Schlüsselfelder von Detailtabelle TxtNr 1, Zeile1, ...

Delphi-Quellcode:

...
  if Locate('TxtNr', 1, []) then
    begin
      Append;
      FieldByName('Zeile1').AsString := Memo1.Lines[0];
      FieldByName('Zeile2').AsString := Memo1.Lines[1];     
       ...
      Post;

Diese Kurztexte sollen später in Belegen erscheinen.
Also sinnvoller, die ABS auf den Feldtyp Memo umstellen
und eine .txt-Datei verwenden?

Grüße

[marabu]

Bitte nicht einfach umstellen.

Beschreibe erstmal, welche Bedeutung diese Texte haben.

Sind das Textbausteine, die du verschlüsseln willst um sie über einen Auswahlmechanismus bei der nächsten Eingabe anbieten zu können?

Kannst du ein Beispiel geben?

[LOMBI]

Nein, verschlüsseln brauche ich diese Textbausteine nicht.
Diese sollen bei einer Belegerfassung am Anfang und Ende
mit TextNr angezeigt werden, vielleicht sogar wählbar
mittels einer ComboBox.

Text Nr. 1 Rechnung -Anfang-
MemoText (Zeile1, Zeile2, ...)

Text Nr. 2 Rechnung -Ende-
MemoText (Zeile1, Zeile, ....

...

[marabu]

Es geht also um Standard-Textbausteine? Dann würde ich sie als MEMO (BLOB) speichern.

Mit "Verschlüsseln" bezeichne ich im Datenbankkontext die Speicherung einer Information zusammen mit einem Schlüssel, so dass man über diesen Schlüssel wieder an die Information kommt - also eine Lookup-Table.

[LOMBI]

Ja um Standard-Textbausteine.
Habe den ABS-Feldtyp auf "Memo" geändert.

Wie bitte bekomme ich jetzt die Einträge (Zeile1, Zeile2...) in die
richtigen Schlüsselfelder von TxtNr 1?

[marabu]

Nehmen wir mal du hättest eine Tabelle TBS: ID, NAME, TEXT - dann ist ID der automatisch vergebene Primärschlüssel, NAME eine kurze Identifikation zur Benutzerauswahl und TEXT der vollständige Textbaustein. In Schlüsselfelder schreibst du also gar nichts und auch das zeilenweise Speichern unterbleibt.

Zitat von marabu:

... Beispiele für das Ansprechen von Blob-Feldern aus Delphi heraus findest du in der ABS-Hilfe unter dem Indexeintrag BLOB...

Der Code muss zwar noch ein wenig an deine Bedürfnisse angepasst werden, aber er zeigt schon die wesentlichen Dinge:

Aus der ABS Online Hilfe

Delphi-Quellcode:

procedure TForm1.btLoadClick(Sender: TObject);
var
  FileStream: TFileStream;
  BlobStream: TABSBlobStream;
begin
  ABSTable1.Edit;
  try
    FileStream := TFileStream.Create('Comments.txt',fmOpenRead or fmShareDenyNone);
    BlobStream := ABSTable1.CreateBlobStream(ABSTable1.FieldByName('Comments'),bmWrite);
    BlobStream.CopyFrom(FileStream,FileStream.Size);
    FileStream.Free;
    BlobStream.Free;
    ABSTable1.Post;
  except
    ABSTable1.Cancel;
    raise;
  end;
end;

Der Trick mit dem BlobStream funktioniert mit TField, aber auch mit TParameter. Im Beispiel liest ein Stream aus einem anderen. Du hast deinen Textbaustein in einem TMemo erfasst, also würde ich es umdrehen und mit Memo.Lines.SaveToStream() in den BlobStream schreiben.