Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: jo@chim am 23.01.15 - 10:47:03

Titel: 💣 ☠☠-DXL - Import funktioniert nicht
Beitrag von: jo@chim am 23.01.15 - 10:47:03

Ich will eine vorher exportierte DXL-Datei importieren... gibt aber "DXL-Importer Operation failed".
Was mach ich falsch?

Code

Sub test(strFormName As String)

	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim instream As NotesStream
	Dim importer As NotesDXLImporter
	
	dxlpath$="d:\" & strFormName & ".xml"

	Set db = session.CurrentDatabase
	
	Set importer = session.CreateDXLImporter
	
	Set instream = session.CreateStream
	If Not instream.Open(dxlpath$) Then
		MessageBox "Cannot open DXL file",, dxlpath$
		Exit sub
	End If
		
	If instream.Bytes = 0 Then
		MessageBox "DXL file did not exist or was empty",, dxlpath$
	End If
	Call importer.SetInput(instream)
	Call importer.SetOutput(db)

	Call importer.Process
	Call instream.close
End Sub

Titel: Re: 💣 ☠☠-DXL - Import funktioniert nicht
Beitrag von: pram am 24.01.15 - 09:32:06

Bau mal einen Errorhandler ein und gib dir "importer.log" aus