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

FINSERT()

Propósito

Incluir um registro em arquivo de banco de dados

Sintaxe

FINSERT (<exp.C>, <vet.C1>, <vet.C2>)

Argumentos

<exp.C>

representa o nome do arquivo do banco de dados em uso.

<vet.C1>

representa o nome de um vetor-cadeia com o nome dos itens que serão incluídos. Deve ter tamanho mínimo de 12 caracteres. Todos as chaves devem estar presentes e seus elementos devem conter apenas os nomes dos itens do arquivo referenciado.

<vet.C2>

representa o nome de um vetor-cadeia com os valores dos itens para inclusão. Deve ter tamanho mínimo do maior item do registro.

Utilização

Insere um registro no fim do arquivo especificado por <exp.C>.

Se a inclusão for bem sucedida, retorna 0 (zero). Caso contrário, retorna um número referente ao erro de inclusão (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 vetores de caracter para o tipo do item no arquivo.

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

Similar ao comando INSERT.

Exemplos

O exemplo a seguir mostra-nos uma função para inclusão de registros no banco de dados em uso.

FUNC inc_befo

PARAMETERS arq_nom(c), reg_lis[](c), reg_buf[](c)

RETURN (FINSERT (arq_nom, reg_lis, reg_buf))

* Retornara o codigo de erro da inclusão ou 0 (zero) se 

* registro foi incluído.

O exemplo a seguir mostra-nos como utilizar esta função.

DATABASE bdemp1 33 a 2

USE tab_func

tam_reg = AFIELDS ()

DECLARE vet_reg[tam_reg] = SPACE(12)

DECLARE vet_buf[tam_reg] = SPACE(50)

tam_reg = AFIELDS (vet_reg)            && Preenche vet_reg com nome dos itens.

? FINSERT ("tab_func",vet_reg,vet_buf)     && Exibirá erro de inclusão ou 0

Consulte

INSERT, FBINSERT(), FDBMESS(), FRECNO() e FRECCOUNT().

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