Textliste- vs. RichText-Item auslesen

[magic_halli]

Hi,

ich möchte von Aufgabendokumenten das Body-Item auslesen und in einer Variable speichern. Diese Variable benutze ich in einem INSERT-Statement, um den Aufgabentext in einer SQL-DB zu speichern. Das Feld in der SQL-DB ist vom Typ ntext.

Ich habe bisher das Body-Item so ausgelesen (Body ist vom Typ Textliste):

Code

Dim text As String
text = docTask.GetItemValue("Body")(0)

Wenn jetzt aber der Inhalt des Item zu lang wird, ist es vom Typ RichText! (Aufgabentext geht im Beispiel über ca. 30 volle Zeilen!)
Das habe ich bisher nicht beachtet.
Nun stehe ich vor der Frage, wie lese ich den Text nun aus und in welchen Variablentyp speichere ich ihn?
Die Variable mit dem Text-Inhalt von Body soll ja schließlich dann in die SQL-DB geschrieben werden.
Mein Gedanke war nun folgender:

Code

Dim text As Variant
Dim rtitem As Variant
Set rtitem = docTask.GetFirstItem("Body")
If (rtitem.Type = RICHTEXT) Then
   text = rtitem.GetUnformattedText()
Else
   text = docTask.GetItemValue("Body")(0)
End If

Hier erschlage ich zwar beide Fälle (Body ist Textliste oder RichText), aber im Fall von RICHTEXT klappt das INSERT in die DB nicht: "LS:DO- ODBC Could not complete the requestet operation"!
Im Debugmode hat die Variable 'text' hier auch keinen Datentyp (sollte eigentlich Variant sein)!!!

Wie kann ich denn alternativ den Text des Body-Items (Richtext) auslesen und speichern (Datentyp?), sodass er in eine SQL-DB in ein ntext-Feld geschrieben werden kann?
Ich glaube, das ist eine Sache bzgl. Datentypen und -längen?!


Danke und Gruß

Rico.

[LN4ever]

Hallo Rico,

wenn du die erste Zeile auf
Dim text As String
umstellst, sollte es klappen.

Gruß

Norbert

[magic_halli]

Danke. Es funktioniert!  

Gruß

Rico