Kofax DM API - Manual (Page 142)

122 C HAPTER 3
PCDSQL
If nResult = 0 Then
nNumRows = oNRSQL. GetRowCount ()
'If there are more than one row then lets do it.
If nNumRows > 0 Then
nNumCols = oNRSQL. GetColumnCount ()
'Add the appropriate elements to the
'control array.
For i = 1 To nNumCols
lblResultData(i - 1).Caption = _
oNRSQL. GetColumnName (i)
txtResultData(i - 1).Text = _
oNRSQL. GetColumnValue (i)
Next i
End If
End If
'Check the number of rows coming back.
'If more than one, then enable the
'cbNextRow button.
If nNumRows > 1 Then
cbNextRow.Enabled = True
Else
cbNextRow.Enabled = False
End If
nRowsViewed = 1
End Sub