Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!

GO

Propósito

Ler um registro através de seu número lógico.

Sintaxe

GO <exp.N> [SHARED | EXCLUSIVE] [ALL]

Argumentos

<exp.N>

representa o número lógico do registro.

ALL

determina que todos os itens do registro sejam lidos.

SHARED

determina o bloqueio para leitura compartilhada do registro

EXCLUSIVE

determina o bloqueio para uso exclusivo do registro.

Utilização

Acessa um registro pelo seu endereço lógico no arquivo de dados.

Este comando ignora o índice utilizado, lendo diretamente sobre o arquivo de dados.

SHARED determina que o registro seja bloqueado podendo ser compartilhada somente a leitura do registro. Utilizada em bloqueio de banco, funciona como EXCLUSIVE.

EXCLUSIVE determina que o registro seja acessado exclusivamente pelo usuário, sem permitir a leitura ou a gravação por outro usuário.

Se <exp.N> for o endereço de um registro excluído, a função DBERR() retornará 216 (este código indica que REGISTRO NÃO EXISTE NO ARQUIVO).

Este comando só se aplica aos arquivos de banco de dados e arquivos externos tipo S e R (seqüencial e relativo), devido ao fato de que seus registros possuírem tamanho fixo.

A função EOF( ) retorna verdadeiro (.T.), caso o registro não seja encontrado.

Exemplo

O exemplo a seguir mostra-nos como acessar o quinto registro em um arquivo de banco de dados.

USE tab_vend

GO 5     && Acessa o registro de numero 5

IF FOUND()

  ? "Encontrou o Registro Numero 5"

ELSE

  ? "Este Arquivo tem menos de 5 registros"

  ?? " ou Registro 5 foi excluído"

ENDIF

O exemplo a seguir mostra-nos a leitura de um registro em arquivo externo.

USE agenda.d     && Arquivo tipo S (seqüencial)

GO 90

IF EOF()

  ? "Este Arquivo tem menos de 90 registros"

  ?? " ou Registro 90 foi excluído"

ENDIF

Consulte

$READALL, LOCATE, RESTORE, SAVE, SELECT, EOF( ), FGO ( ), FRECNO( ) e RECCOUNT( ).

Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!