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

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

1 2 ... 130 131 132 133 134 135 136 137 138 139 140 ... 527 528

Comentários a estes Manuais

Sem comentários