Access Feld Memo mit String beschreiben ?

[Cyberbob_at_tot]

Hallo zusammen,
habe das Problem das ich ein Memofeld in Access beschreiben will, wenn ich mir die Tabelle anzeigen lasse steht im Memofeld einfach nur "[memo]".
mir fehlt nun der Quellcode für Delphi wie ich mit Delphi und ADO drauf zugreifen kann!

Delphi-Quellcode:

      ADOTable1.append;
      ADOTable1.Edit;
      For y:=3 to Liste.Colcount-1 do
        Begin
        If Liste.Cells[y,x]<>'' Then LabelString.Add(Liste.Cells[y,x]);
        end;
      Memo1.Lines.Add(Labelstring.Text);
      ADOTable1.FieldByName('Labels').AsString:=Memo1.Lines;
//oder
      ADOTable1.FieldByName('Labels').AsString:=Labelstring.text;
//beides geht leider nicht!
      ADOTable1.Post;
      ADOTable1.Next;
      end;

ich kann also keni String ans Memofeld übergeben?
oder wie kann ich das verstehen ?

THX

Cyberbob

[mikhal]

Vielleicht so? LabelString ist TStringList:

Delphi-Quellcode:

(ADOTable1.FieldByName('Labels') As TBlobField).Assign(LabelString); // Zuweisen...
LabelString.Assign(ADOTable1.FieldByName('Labels') As TBlobField); // Auslesen...

Grüße
Mikhal

[Cyberbob_at_tot]

Was ist denn BlobField ?
sagt bei mir immer unbekannter bezeichner!

[Stevie]

Mit der DP-Suche gefunden!!!

[mikhal]

TBlobField ist eine Klasse, die auch für Memos auf der Datenbank verwendet werden kann. In den beiden Anweisungen wird ein Casting auf TBlobField vorgenommen, sodaß die daten gelesen bzw. geschrieben werden können.

Letztlich kannst du auch via BlobStream (siehe OH: TBlobStream) arbeiten.

Grüße
Mikhal

[Cyberbob_at_tot]

Richtig, das habe ich auch schon gelesen,
mir geht es aber nicht drum eine Memo zu übergeben sondern einen string!
und wie soll ich das sonst bergeben als über
Table1.FieldByName('Labels').AsString:=Labelstring.text; Es geht ja darum, das der String mehr als 255 Zeichen haben kann und ich deshalb memo gewählt habe!
den String setze ich aus einem Stringgrid zusammen!

[mikhal]

(AdoTable1.FindField('Labels') As TBlobField).AsString := LabelString.Text; // ZuWeisung... Grüße
Mikhal

[Duffy]

Hallo Christian,

Vversuch es mal so ADOTable1.FieldByName('Labels').AsString := Memo1.Lines.Text;


bye
Claus

[Cyberbob_at_tot]

Tag Duffy,
habe ich schon versucht! es bleibt immer [memo] stehen! ohne fehlermeldung oder sowas!