FOPEN ()

• Propósito
• Sintaxe
• Argumentos
• Utilização
• Exemplo

Propósito

Abrir um banco de dados OpenBASE.

Sintaxe

FOPEN (<exp.C1>, <exp.C2>, <exp.N1>, <exp.N2>)

Argumentos

<exp.C1>	Representa o nome do banco de dados.
<exp.C2>	Representa o nível de acesso às informações dos itens do banco de dados.
<exp.N1>	Representa o código de segurança definido para o banco de dados.
<exp.N2>	Representa o modo de abertura do banco de dados.

Utilização

Abre o banco de dados definido por <exp.C1>, retornando um valor numérico correspondente ao código de erro desta operação (DBERR).

Quando o banco de dados é aberto com sucesso o valor retornado é igual a zero. Caso seja diferente de 0, este valor pode ser utilizado pela função FDBMESS (), para que esta informe o erro ocorrido.

Permite criar programas independentes do banco de dados, pois só verifica a existência do banco durante a execução do programa. Deste modo, as informações para a abertura do banco de dados podem ser passadas como argumentos para o programa.

Exemplo

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

PROG

ACCEPT "Informe o nome do banco ............ " TO nom_ban

ACCEPT "Informe a palavra de nivel ......... " TO pal_niv

INPUT "Informe o codigo de Segurança ...... " TO cod_seg

INPUT "Informe o modo de abertura ......... " TO mod_abe

cod_err = FOPEN (nom_ban, pal_niv, cod_seg, mod_abe)

IF cod_err # 0

  ? "Erro na abertura do banco de dados"

  ? FDBMESS (cod_err)

ELSE

  ? "Banco aberto"

ENDIF