Kofax DM API Manual do Utilizador descarregar pdf (Página 139)

DM API OBJECTS 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

1 2 ... 134 135 136 137 138 139 140 141 142 143 144 ... 527 528

Comentários a estes Manuais

Sem comentários