Executa inserção de uma chave no servidor KV caso ela não exista. Se for chamado novamente, manterá somente o dado imputado originalmente.
KVSetNX( < cKey >, < xValue > )
Nome | Tipo | Descrição | Obrigatório | Referência |
---|
cKey | character | Nome da chave que pretende incluir. | X |
|
xValue | variant | Valor a ser atribuído para a chave informada. | X |
|
Nome | Tipo | Descrição |
---|
xRetKV | array | xRetKV[1]= mensagem de Erro caso exista type:C, senão conteúdo será Nil type:U xRetKV[2]= retorno do servidor KV ao executar comando "setnx". |
function u_KVSetNX()
local oKVClient := tTecKVClient():New()
local cSrv := '127.0.0.1'
local nPort := 6379
local aKV := {}
local xValue
oKVClient:KVOpenConn(cSrv,nPort)
if ( oKVClient:KVIsConnected() )
aKV := oKVClient:KVSetNX( 'language', 'tlpp' )
aKV := oKVClient:KVSetNX( 'language', 'advpl' )
if ( empty(aKV[1]) )
oKVClient:KVGet('language',@xValue)
conout( "language: " + cValToChar(xValue) )
else
conout( "ERROR: " + aKV[1] )
endif
endif
oKVClient:Finish()
return
20.3.0.x ou superior