Domino 9 und frühere Versionen > ND6: Entwicklung

Datei in Notes erstellen und in Blob schreiben

(1/1)

Gogun_Beokz:
Hallo Zusammen,

ich habe wiedereinmal ein Problem und bisher keinen Thread gefunden der dazu passt.
Also ich möchte aus Notes in eine SQL Datenbank eine Textdatei speichern. Diese Textdatei benötigt die Endung Text.txt.nlk und als Text sollte in der Datei die Notes UNID stehen. Dazu habe ich in der SQL Datenbanktabelle einen Blob angelegt.

Wie wird soetwas realisiert?

Hier mein Versuch:

'Blob erstellen
Dim blob As  String
   
'Datei in Notes erstellen
'Dim stream As NotesStream
'Dim sfilename As String
'sfilename = "C:\test.txt.nlk"
'Set stream = session.CreateStream
'stream.WriteText(doc.UniversalID)
'blob = stream.Read

blob = Cstr(doc.UniversalID)
   
Dim defaultQuery As String
   
defaultQuery =  "INSERT INTO BpaMyNotesDoc(PKey,NotesBlob) VALUES ('"+Editable+"','"+blob+"')"
qry.SQL = defaultQuery
If qry.GetError <> DBstsSUCCESS Then
   Messagebox qry.GetExtendedErrorMessage,, _
   qry.GetError & " " & qry.GetErrorMessage
Exit Function
End If
   
Set result.Query = qry
   
If result.GetError <> DBstsSUCCESS Then
   Messagebox result.GetExtendedErrorMessage,, _
   result.GetError & " 0 " & result.GetErrorMessage
Exit Function
End If
   
result.Execute

Gogun_Beokz:
Kennt niemand einen Lösungsansatz oder hab ich mich unglücklich/ undeutlich ausgedrückt?

Gruß G0guN_b3ok*Z

m3:
SKANDAL!

Die Frage steht schon einen Tag im Forum und niemand hat geantwortet!

Was soll denn das? Warum zahl ich diese horrenden Mitgliedsgebühren ...


Aähm. Öhhh.  Moment. Mitgliedgebühren? Zugesagte Antwortzeiten. Öhhhh. Hüstel.


Znegva Yrlere

Gogun_Beokz:
Ne, mein zweiter Eintrag war ernst gemeint! Kann doch sein das es, wie ich es formuliert habe so nicht verständlich ist und deswegen bis jetzt noch keiner geantwortet hat.

Navigation

[0] Themen-Index