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

FFIND()

Propósito

Ler um registro pelo valor da chave primária.

Sintaxe

FFIND (<exp.C1>, <exp.C2>, <vet.C1>, <vet.C2>)

Argumentos

<exp.C1>

Representa o nome de arquivo-entidade do banco de dados em uso.

<exp.C2>

Representa um valor para a chave pesquisada. Se a chave for numérica deve ser transformado para cadeia pela função STR (). Se a chave for do tipo data, deve ser transformada para cadeia no formato "dd/mm/aa". Se a chave for do tipo lógico deve ser transformado para cadeia sendo "0" para falso (.F.) e "1" para verdadeiro (.T.).

<vet.C1>

Representa o nome de um vetor cadeia com o nome dos itens que serão lidos. Deve ter tamanho mínimo de 12 caracteres .

<vet.C2>

Representa o nome de um vetor cadeia que receberá o valor dos itens lidos . Deve ter tamanho mínimo do maior item do registro.

Utilização

Executa uma leitura direta por chave primária em entidade e preenche um vetor (<vet.C2>) com o valor dos itens lidos no arquivo determinado por <exp.C1>.

Itens de arquivos que mantenham alguma ligação com o arquivo especificado também podem ser lidos, bastando para isso, declarar seus nomes em <vet.C1> e obter seus valores em <vet.C2>.

Retorna 0 (zero) se a leitura for bem sucedida , -1 se chegou ao fim do arquivo (EOF () = .T. e FOUND () = .F.) ou um número referente ao erro de leitura (DBERR ()).

Utilizada na construção de programas ou procedimentos com independência de dados e aplicação. Dispensa abertura de arquivo (USE), necessitando apenas que exista um banco de dados em uso.

Converte automaticamente o valor dos itens para caracter. Deve haver coerência entre os elementos de <vet.C1> e <vet.C2> para que a leitura se dê corretamente. Isto é, o número do elemento de <vet.C1>, que tem o nome do item a ser lido, deve corresponder ao valor do elemento de mesmo número em <vet.C2>. Esta relação é de 1 para 1.

Similar ao comando FIND.

Exemplos

O exemplo a seguir mostra-nos a utilização desta função.

DATABASE bdemp1 33 a 2

DECLARE vet_reg[3] = SPACE(12)

DECLARE vet_buf[3] = SPACE(10)

vet_reg[1] = "id2_func"

vet_reg[2] = "par_depe"

vet_reg[3] = "dat_depe"

arquivo = "tab_depe"

** Lê o registro de cuja chave primaria seja igual a 123.

ret = FFIND (arquivo, 123 , vet_reg, vet_buf)

** ret recebe o codigo de erro desta atualização.

Consulte

FIND, FGO() e FLOCATE().

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