Information générale
Catégorie:
Bases de données DAO/RDO/ODBC/ADO
OK - here we go
Dim strSQL As String
Dim rst As ADODB.Recordset
Dim blnSuccess As Boolean
Dim strUser As String
Dim strSleep As String
Dim intSession As Integer
Dim intTable As Integer
With rst
.ActiveConnection = globNLF
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = " SELECT * FROM OrderPad "
End With
Do Until rst.EOF
Do Until rst.EOF
'Log in first Session, User and Table
strUser = rst!tCreatedUserID
intSession = rst!niSessionNumber
intTable = rst!nlTableNumber
rst.MoveNext
If rst.EOF Then
GoTo EndOfField
End If
If rst!niSessionNumber = intSession Then
If rst!tCreatedUserID = strUser Then
If rst!nlTableNumber = intTable Then
rst!Message = "Duplicate Order"
rst!MessageID = 2
rst.Update
ElseIf rst!nlTableNumber <> intTable + 1 Then
rst!Message = "Out of Order"
rst!MessageID = 1
rst.Update
End If
End If
End If
Loop
Loop
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement