Incluir um registro no arquivo selecionado
INSERT [BEFORE]
|
BEFORE |
determina que o registro seja inserido antes do registro corrente. |
Quando utilizado, inclui um registro no arquivo selecionado.
Os itens incluídos são inicializados pelo comando REPLACE ou pelos comandos de atribuição.
Caso o arquivo tenha uma chave única e esta já tenha o valor a ser incluído, a função DBERR() retornará um código diferente de 0 (zero) e o registro não e incluído. Com isso evita-se que antes de uma inclusão tenha que se verificar a existência dos valores que serão incluídos.
A cláusula BEFORE só se aplica a arquivo de banco de dados OpenBASE e é útil para ordenar o arquivo de dados.
O exemplo a seguir inclui um registro em um arquivo externo.
USE * && Abre um arquivo externo
* Inicio da declaração do arquivo externo
tel S LEN(94)
numero n14
nome u30
ende u50
ENDUSE
ACCEPT "Nome " TO nome
ACCEPT "Endereço " TO ende
INPUT "Telefone " TO numero
IF CONF()
INSERT
ENDIF
O exemplo a seguir inclui um registro em um arquivo entidade.
USE tab_clie && Abre o arquivo
ACCEPT "Codigo do Cliente " TO id0_clie
ACCEPT "Nome do Cliente " TO nom_clie
IF CONF( )
REPLACE AUTOMEM && Atribui aos itens do arquivo os valores em memória
INSERT && Inclui registro
** Verifica se registro foi incluído evitando pesquisar.
IF DBERR( ) # 0
BEEP
? "Registro já existe "
ENDIF
ENDIF
APPEND, REPLACE, RESTORE, SAVE, SELECT, DBERR( ), EOF( ), FBINSERT( ), FINSERT( ), RECNO( ) e FRECCOUNT( ).