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

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

1 2 ... 136 137 138 139 140 141 142 143 144 145 146 ... 527 528

Comentários a estes Manuais

Sem comentários