dbSeek – Realizar uma busca na tabela através do índice

⭐ Gostou do tema? Salve este artigo para consultar depois

O comando dbSeek faz uma busca no banco de dados através de um índice existente.

Vamos fazer uma busca, por exemplo, na tabela SB1

dbSelectArea("SB1")
SB1->(dbSetOrder(1))
If SB1->( dbSeek(xFilial("SB1")+"000001") )
      //Faça algo aqui, o registro encontrado está posicionado neste momento
      Conout(SB1->B1_COD + "-" + SB1->B1_DESC)
EndIf

dbSelectArea("SB1")

SB1->(dbSetOrder(1))

If SB1->( dbSeek(xFilial("SB1")+"000001") )

//Faça algo aqui, o registro encontrado está posicionado neste momento

Conout(SB1->B1_COD + "-" + SB1->B1_DESC)

EndIf

Veja que inseri o dbSeek em uma estrutura condicional IF, ou seja, se não encontrar nada, você pode tratar via código uma alternativa, com um else, por exemplo.

Também, utilizei no dbSetOrder o índice 1 da tabela SB1. Você pode fazer o exemplo com outros índices.

Link do dbSeek no TDN

Leave a Reply Cancelar resposta