beautypg.com

Pcdsql – Kofax DM API User Manual

Page 138

background image

118 C

HAPTER

3

PCDSQL

Dim sDST As String

Dim oDSTDIC As New DocInternalClass

Dim oDSTLogin As New

PCDLogin

Public oDSTSQL As New

PCDSQL


Private Sub cbCancel_Click()

Dim nResult As Long

sDST = ""

nResult = oDSTSQL.

ReleaseResults

()

Unload DSTForm

End Sub


Private Sub cbDoQuery_Click()

nResult = oDSTSQL.

Execute

( "SELECT DOCNAME, “ _

& “DOCNUMBER, STATUS, AUTHOR from “ _