| 4D v18OPEN 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) | |||||
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:
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.
 OPEN DATABASE("C:\\databases\\Invoices\\Invoices.4db")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
	Produto: 4D
	Tema: Ambiente 4D
	Número 
        1321
        
        
        
	
	Criado por: 4D v14 R3
	Manual de linguagem 4D ( 4D v18)
	
	
	
 Adicionar um comentário
Adicionar um comentário