Hi, we have 2 databases and I just want search results from one specified database only. Currently after a search, the DocOpenDlg is still returning documents from both databases. Any ideas?
Here's my code:
Dim SearchCmd As IMANEXTLib.SearchCmd = New IMANEXTLib.SearchCmd
Dim ContextItems As IMANEXTLib.ContextItems = New IMANEXTLib.ContextItems
Dim dms As New ManDMS
Dim sess As IManSession
Dim pSearchParams As IManage.IManProfileSearchParameters
Dim pNRTDocs As IManage.NRTDocuments
Dim OverFlow As String
Dim pSearcArgs As IManage.IManProfileSearchParameters
Dim pSearchArg As IManage.IManProfileSearchParameter
sess = dms.Sessions.Add("OURSERVERNAME")
sess.TrustedLogin()
pSearcArgs = dms.CreateProfileSearchParameters
pSearchArg = pSearcArgs.Add(imProfileAttributeID.imProfileType, "VPS")
With ContextItems
.Add("ParentWindow", Me)
.Add("SelectedIManSession", sess)
.Add("NRTDMS", dms)
.Add("SearchDatabaseName", "Knowledge")
End With
SearchCmd.Initialize(ContextItems)
SearchCmd.Update()
If SearchCmd.Status = (SearchCmd.Status And IMANEXTLib.CommandStatus.nrActiveCommand) Then
SearchCmd.Execute()
pNRTDocs = ContextItems.Item("SearchedNRTDocuments")
pSearchParams = ContextItems.Item("IManSearchParameters")
OverFlow = ContextItems.Item("varOverFlow")
ContextItems.Remove("SearchedNRTDocuments")
ContextItems.Remove("IManSearchParameters")
ContextItems.Remove("varOverFlow")
OpenDocDlg = New IIntegrationDlg.DocOpenDlg
OpenDocDlg.NRTDMS = dms
OpenDocDlg.SingleSel = True
OpenDocDlg.ShowContainedDocuments = pSearchParams
OpenDocDlg.CloseOnOK = False
Dim commands(0 To 3) As String
commands(0) = "
@0@&Open "
commands(1) = "
@1@&View"
OpenDocDlg.CommandList = commands
OpenDocDlg.Show(OpenDocDlg.Window())
End If
