
122 CHAPTER 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
Comentários a estes Manuais