Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Gogun_Beokz am 19.03.08 - 09:11:23
-
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
-
Kennt niemand einen Lösungsansatz oder hab ich mich unglücklich/ undeutlich ausgedrückt?
Gruß G0guN_b3ok*Z
-
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 (http://atnotes.de/projekte/bp/team/tmc/_forumsregeln/rules001.html#22)
-
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.