Kofax DM API Bedienungsanleitung Seite 135

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 528
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 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
Seitenansicht 134
1 2 ... 130 131 132 133 134 135 136 137 138 139 140 ... 527 528

Kommentare zu diesen Handbüchern

Keine Kommentare