Kofax DM API - Manual (Page 141)

DM API O BJECTS 121
PCDSQL
End Sub
Private Sub cbNextRow_Click()
Dim nResult As Long
'Increment the nRowsViewed count.
nRowsViewed = nRowsViewed + 1
'Go to the next row.
nResult = oNRSQL. NextRow ()
For i = 1 To nNumCols
lblResultData(i - 1).Caption = _
oNRSQL. GetColumnName (i)
txtResultData(i - 1).Text = _
oNRSQL. GetColumnValue (i)
Next i
'If at end of record set, deactivate the button.
If nRowsViewed = nNumRows Then
cbNextRow.Enabled = False
End If
End Sub
Private Sub Form_Load()
Dim nResult As Long
Dim sTempBuf As String
Dim nRowsAffected As Long
nResult = oNRSQL. Execute ("SELECT DOCNAME, “ _
& “DOCNUMBER, STATUS, AUTHOR from “
& “DOCSADM.PROFILE")
'If the Query is successful, place the first
'row into the text boxes.