FCLOSE ()

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

Propósito

Fechar o banco de dados em uso.

Sintaxe

FCLOSE ()

Utilização

Fecha o banco de dados em uso, retornando um valor numérico correspondente ao código de erro desta operação (DBERR).

Quando o banco é fechado 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.

Exemplo

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

PROG

ret = FOPEN ("bdemp1", "a", 1, 2)

IF ret # 0

  MESSAGE "Erro " + str(ret,2) + " na abertura do banco"

  QUIT

ENDIF

MESSAGE "Banco aberto" bold

WAIT "Fecha o banco ? s/n " TO k

IF UPPER (LEFT (k, 1)) = "S"

  ret = FCLOSE ()

  IF ret # 0

    MESSAGE "Nao foi possível fechar o banco" BLINK

  ENDIF

ENDIF