Click or drag to resize

DbUnLock Function

Release all locks for a work area.

Namespace:  XSharp.RT
Assembly:  XSharp.RT (in XSharp.RT.dll) Version: 2.4a
Syntax
 FUNCTION DbUnLock() AS LOGIC
View Source

Return Value

Type: Boolean
TRUE if successful; otherwise, FALSE.
Remarks
DBUnlock() releases any record or file locks obtained by the current process for a work area.  DBUnlock() is only meaningful on a shared database. By default, this function operates on the currently selected work area.
It can be made to operate on an unselected work area by specifying it within an aliased expression
Tip Tip
Shared mode: Releasing locks can cause updates to the database to become visible to other processes.  
Examples
The following example illustrates a basic use of the DBUnlock() function:
X#
 1cLast := "Winston"
 2USE sales SHARED NEW VIA "DBFNTX"
 3Sales->DBSetIndex("lastname")
 4IF Sales->DBSeek(cLast)
 5    IF Sales->RLock()
 6        Sales->DBDelete()
 7        QOut("Record deleted: ", Sales->Deleted())
 8        Sales->DBUnlock()
 9    ELSE
10        QOut("Unable to lock record...")
11    ENDIF
12ELSE
13    QOut("Not found")
14ENDIF
See Also