Liste les locks présent sur un fichier de base de données.
Syntaxe
bResult = ASRecordLocks(ASRecordLockCollection, Fichier, Bibliothèque, Membre, Connexion)
Paramètres
bResult
Booléen - Vrai si la commande a réussi, Faux en cas d'erreur.
ASRecordLockCollection
Variable de type ASRecordLockCollection qui va contenir les résultats
Fichier
Fichier sur lequel on liste les locks.
Bibliothèque
Bibliothèque, il est possible d’utiliser la valeur *LIBL ou *CURLIB.
Membre
Membre concerné, il est possible d’utiliser *FIRST.
Connexion
Connexion - nom de la connexion
Exemple
lockList est une ASRecordLockCollection
monObjet est un ASRecordLock
nb est un entier
Sablier(Vrai)
SI AsRecordLocks(lockList,"SP_CUST","*LIBL","*FIRST",PrinciConnexion) ALORS
nb = lockList.CollectionASRecordLock..Occurrence
POUR nIndice= 1 A nb
monObjet = lockList.CollectionASRecordLock[nIndice]
TableauAjoute(gtabAsRecordLock, monObjet)
FIN
FIN
TableAffiche(TABLE_recordlocks)
Sablier(Faux)