OPEN DATABASE

4D v18

OPEN DATABASE


OPEN DATABASE ( filePath )

Parâmetro	Tipo	Descrição
filePath	String	Nome ou via de acesso completa do arquivo de base de dados a abrir (.4db, .4dc, .4dbase ou .4dlink)

Descrição

O comando OPEN DATABASE fecha a base de dados 4D atual e abre sobre a marcha da base definida por rotaArquivo. Este comando é útil para realizar provas automáticas ou para voltar a abrir uma base de forma automática depois de uma compilação.

No parâmetro rotaArquivo, passe o nome ou a rota de acesso completa da base a abrir. Pode utilizar os arquivos com uma das seguintes extensões:

.4db (arquivo de estrutura interpretado),
.4dc (arquivo de estrutura compilado),
.4dbase (pacote OS X),
4dproject (arquivo do banco de dados projeto)
.4dz (arquivo de lançamento dos bancos de dados projeto)
.4dlink (arquivo de acesso direto).

Se passar unicamente o nome de arquivo, deve ser colocado no mesmo nível que o arquivo de estrutura da base atual.

Se a rota de acesso estabelece uma base de dados válida, 4D fecha a base em progresso e abre a base especificada. No modo mono usuário, o Semaphore da base fechada e o da base aberta são chamados sucessivamente.

Atenção: dado que este comando faz que a aplicação se feche antes da reabertura da base especificada, não se recomenda seu uso no Método banco de dados On Startup, ou em um método chamado por este método base.

O comando se executa de forma assíncrona: depois de sua chamada, 4D continua executando o resto do método.
Logo, a aplicação se comporta como se o comando Sair do menu Arquivo estivesse selecionado: as caixas de diálogo de abertura se cancelam, todos os processos abertos têm 10 segundos para terminar antes de serem terminados, etc.

Se o arquivo da base objetivo não se encontra ou é inválido, se devolve um erro sistema estandarte do administrador de arquivos e 4D não faz nada.

Exemplo 1

OPEN DATABASE("C:\\databases\\Invoices\\Invoices.4db")

Exemplo 2

Este código poderia ser agregado à Método banco de dados On Startup de uma aplicação monousuário para selecionar um servidor:

 C_TEXT($xml)

 $xml:="<?xml version=\"1.0\" encoding=\"UTF-8\"?><database_shortcut is_remote=\"true\" server_database_name=\"{databaseName}\" server_path=\"{IP}\"/>"

 $databaseName:="myServer"

 $IP:="192.168.6.7:19813"

 

 If(Shift down)

    $IP:=Request("IP address to connect to "+$databaseName;$IP)

 Else

    ok:=1

 End if

 

 If(ok=1)

    $xml:=Replace string($xml;"{databaseName}";$databaseName)

    $xml:=Replace string($xml;"{IP}";$IP)

    C_OBJECT($link)

    $link:=Folder(fk user preferences folder).file("server.4dlink")

    $link.setText($xml)

    OPEN DATABASE($link.platformPath)

 Else

    QUIT 4D

 End if