Kofax DM API - Manual (Page 135)

DM API O BJECTS 115
PCDSQL
Dim nResult As Long
Dim nRowCount As Long
'Determine which row is being updated.
'Then, load the data from the text box.
nRowNumber = UpdateForm.lstUserIDs.ListIndex
nRowNumber = nRowNumber + 1
nResult = oUpdateSQL. SetRow (nRowNumber)
sTempBuf = oUpdateSQL. GetColumnValue (1)
sSQL = "UPDATE DOCSADM.PEOPLE SET FULL_NAME = '" _
& txtFullName.Text & "' WHERE USER_ID = '" _
sTempBuf + "'"
nResult = oUpdateSQL. Execute (sSQL)
If nResult <> 0 Then
sTempBuf = _
"Native SQL Error from the Update call - " _
& Str(oUpdateSQL. GetSQLErrorCode ())
MsgBox sTempBuf
End If
'Verify that a single row was updated.
nResult = oUpdateSQL. GetRowsAffected ()
If nResult = 1 Then
oUpdateSQL. Execute ( "SELECT USER_ID, “ _
& “FULL_NAME FROM DOCSADM.PEOPLE" )
End If
End Sub
Private Sub Form_Load()
Dim sSQL As String
Dim nNumRows As Long
Dim nResult As Long
Dim sTempBuf As String