Domino 9 und frühere Versionen > ND6: Entwicklung

DesignElemente per DXL erstellen

(1/3) > >>

bikerboy:
So ich brauche mal wieder einen Kognitiven-Anstoss

Ich habe ein DesignElement per DXL-Exporter exportiert und möchte dies nun in einer anderen DB  erstellen.

Nun habe ich ein bisschen die Suche gequält und bin auch schon soweit, dass ich die NotesDXLImporter-Klasse brauche

Habe dann folgenden Code getippert :


--- Code: --- Dim s As New NotesSession
Dim ws As New NotesUIWorkspace

Dim streamer As NotesStream
Dim dxlImporter As NotesDXLImporter

Dim dbTarget As NotesDatabase

Dim varChoice As Variant

varChoice = ws.Prompt(13,"Choose Database","Please select the Target Database",0,0)

If Isarray(varChoice) Then
Set dbTarget = s.GetDatabase(varChoice(0), varChoice(1))
If Not dbTarget.IsOpen Then
Call dbTarget.Open(dbTarget.Server,dbTarget.FilePath)
End If

If Not dbTarget.IsOpen Then
Msgbox "Konnte die angebene Datenbank nicht finden" , 16 , "Fehler"
Exit Sub
End If

Set dxlImporter = s.CreateDXLImporter(newAgent)
dxlImporter.DesignImportOption = DXLIMPORTOPTION_CREATE
Call dxlImporter.SetOutput(newAgent)
Call dxlImporter.Process

--- Ende Code ---

newAgent ist eine Konstante

FehlerMeldung ist die folgende :

jBubbleBoy:
Input und Output wird mit der "Konstanten" newAgent beschrieben ????
Überleg mal was Input und was Output sein müsste ;)

bikerboy:
Ich habe ehrlich gesagt, keine Ahnung ich brauch ja eigentlich nur einen Ouput, aber das hat er auch kritisiert.

bikerboy:

--- Code: --- Set dxlImporter = s.CreateDXLImporter(newAgent)
dxlImporter.DesignImportOption = DXLIMPORTOPTION_CREATE
Call dxlImporter.SetOutput(dbTarget)
Call dxlImporter.Process
--- Ende Code ---

So müsste das schon ein bisschen eher hinkommen

jBubbleBoy:
Geht es jetzt?
Was sind newAgent und dbTarget, ich hoffe keine Konstanten!!

Navigation

[0] Themen-Index

[#] Nächste Seite