import.css=/download/attachments/6062824/tecnologia.css |
Retira todos os bloqueios de registros e de arquivos da tabela atual.
DBUnlock() |
Os exemplos abaixo utilizam a RDD "TOPCONN", mas a função pode ser utilizada com qualquer uma das RDDs válidas.
user function test1() Local nHandle := TCLink( "MSSQL/DSN1", "127.0.0.1", 7890 ) Local cTable := "MYTABLE" Local cRDD := "TOPCONN" Local lRet := .F. // Abre a tabela em modo compartilhado DBUseArea( .T., cRDD, cTable, (cTable), .T., .F. ) DBGoTo( 100 ) lRet := DBRLock() // Bloqueia o registro de número 100 conout( lRet ) // Exibe: .T. lRet := DBRLock( 110 ) // Bloqueia o registro de número 110 conout( lRet ) // Exibe: .T. DBUnlock() // Desbloqueia todos os registros bloqueados em cTable // Fecha a tabela DBCloseArea() // Desconecta do SGBD TCUnlink( nHandle ) return |