Kofax DM API - Manual (Page 139)

DM API O BJECTS 119
PCDSQL
& “DOCSADM.PROFILE")
If nResult = 0 Then
NextRowForm.sNRDST = oDSTDIC. GetDST ()
NextRowForm.Show
Else
MsgBox ("Query Failed")
End If
End Sub
Private Sub cbSetDST_Click()
Dim nResult As Long
'Do mandatory login process in order to get a DST.
nResult = oDSTLogin. AddLogin (0, "MyLibrary", _
"", "")
nResult = oDSTLogin. AddLogin (0, "MyDomain", _
"MyUser", "MyPassword")
nResult = oDSTLogin. Execute ()
sDST = oDSTLogin. GetDST ()
'Get and display the DST.
oDSTSQL. SetDST (sDST)
oDSTDIC. SetDST (sDST)
'Show the DST in the Text box.
txtDST.Text = sDST
End Sub
Private Sub Form_Load()
txtDST.Text = "No DST yet."
End Sub