Páginas filhas
  • Found

Recupera o resultado referente a última operação de busca efetuada pelo processamento corrente.

Sintaxe

Found()

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna verdadeiro (.T.) se a última operação de busca, realizada pelo processamento corrente, obteve sucesso; caso contrário, falso (.F.).

Exemplos

user function test

  local cRdd   := 'TOPCONN'
  local cTable := 'MYTABLE'
  local aStru  := {{"CPOC","C",10,0}}
  local nHdl   := tcLink()

  if tcCanOpen(cTable)
    tcDelFile(cTable)
  endif

  dbCreate(cTable, aStru, cRdd)
  dbUseArea(.T., cRdd, cTable, (cTable), .F., .F. )
  dbCreateIndex('MYINDEX', 'CPOC')

  for i := 0 to 6
    dbAppend(.F.)
    (cTable)->CPOC := chr(65+i)  //Insere caracteres de A à F
    dbCommit()
  next

  dbGoTop()
  dbSeek("D", .F.)
  if Found()
    msgInfo("Operação de busca (caractere 'D'): sucesso")
  else
    msgInfo("Operação de busca (caractere 'D'); falha")
  endif
  
  
  dbGoTop()
  dbSeek("H", .F.)
  if Found()
    msgInfo("Operação de busca (caractere 'H'): sucesso")
  else
    msgInfo("Operação de busca (caractere 'H'): falha")
  endif

  dbCloseArea()
  tcUnlink(nHdl)

return

  • Sem rótulos