Conectar de forma remota dois ou mais banco de dados na mesma máquina ou em máquinas
distintas
SET CONECTION TO <host>
<host> - nome do host relacionado a um endereço IP na tabela de hosts.
Esta opção deve ser utilizada sempre que uma aplicação cliente-servidor desejar utilizar mais de um banco de dados OpenBASE simultaneamente. Esses Bancos de Dados podem ser iguais ou não e podem estar localizados em diferentes diretórios no mesmo servidor ou em servidores distintos.
Devem-se atribuir diferentes nomes de host ao mesmo endereço IP do servidor com o qual se deseja conectar. Isto deve ser especificado, normalmente, na tabela de hosts (c:\windows\hosts ou /etc/hosts).
prog
if CONNECT("ts8") = .F. && Estabeleço conexão com máquina ts8
? "ERRO NA CONEXÃO COM ts8"
endif
database /usr1/clientes/exemplo 1 a 2 && Abro banco exemplo na máquina ts8
select a
use pessoa
locate
Do While .not. eof()
? nome
? str(idade)
wait
continue
Enddo
if CONNECT("aix") = .F. && Estabeleço coneção com máquina aix
? "ERRO NA COMECAO COM AIX"
endif
database /usr/tsgbd/tsdic/exemplo2 1 a 2 && Abro o banco exemplo2 na máquina aix
select a
use PESSOA
locate
Do While .not. eof()
? NOME1
? str(IDADE1)
wait
continue
Enddo
SET CONNECTION TO "ts8" && Altero coneção para máquina ts8
database /usr1/clientes/exemplo 1 a 2
select a
use pessoa
locate
Do While .not. eof()
? nome_p
? str(idade)
wait
continue
Enddo
No exemplo acima, as máquinas de nome "aix" e "ts8" possuem o mesmo endereço IP no arquivo hosts (tabela de hosts).