Kofax DM API Manuale Utente Pagina 135

  • Scaricare
  • Aggiungi ai miei manuali
  • Stampa
  • Pagina
    / 528
  • Indice
  • SEGNALIBRI
  • Valutato. / 5. Basato su recensioni clienti
Vedere la pagina 134
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
Vedere la pagina 134
1 2 ... 130 131 132 133 134 135 136 137 138 139 140 ... 527 528

Commenti su questo manuale

Nessun commento