Kofax DM API Manuel d'utilisateur Page 135

  • Télécharger
  • Ajouter à mon manuel
  • Imprimer
  • Page
    / 528
  • Table des matières
  • MARQUE LIVRES
  • Noté. / 5. Basé sur avis des utilisateurs
Vue de la page 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
Vue de la page 134
1 2 ... 130 131 132 133 134 135 136 137 138 139 140 ... 527 528

Commentaires sur ces manuels

Pas de commentaire