Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Achar tabela
Message
From
27/10/2004 13:50:57
 
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Title:
Environment versions
Visual FoxPro:
FoxPro Windows
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
00954921
Message ID:
00954951
Views:
13
>
>Cenário:
>O executável está só em uma máquina.
>Na raiz dessa máquina eu tenho em:
>C:\A a tabela unidade.dbf e em
>C:\B\ uma outra tabela unidade.dbf.
>
>Em uma tela dependendo da seleção que o usuário fizer eu tenho que acessar a tabela na pasta A ou na pasta B.
>
>Como faço isso na FPW 2.6a para que em todas as máquinas da rede eu consiga pegar o caminho para tais tabelas, para poder abrir e acessar a elas, na hora que o usuário fizer a seleção.
>
Ola Roberto

Bem.. existem mil-e-uma maneiras.. Vou tentar citar 2:

1a. Delas - Atraves do config.fpw voce pode criar um icone na sua pasta que faca no atalho este trabalho:

LOCAL: c:\caminho\meuexecutavel.exe -cc:\pastaA\config.fpw

dai neste config.fpw em "c:\pastaA\" você coloca DEFAULT = c:\MINHAPASTAA.. Neste caso voce pode criar "N" situações que dependem somente de configuração de seus atalhos.. Faça isto em pastaA, pastaB, pastaC que dependem somente do config, e da clasula -C colocada no seu icone do windows..

2a. Maneira - No procedimento setup de cada screen nós podemos dividi-los em 2 regiões.. Algo como:
#REGION 0
* local que abro minhas tabelas
IF  USED("minhatabela")
    SELECT minhatabela
ELSE
    SELECT 0
    USE (LOCFILE(minhavariavelfolder+"minhatabela.dbf","DBF","Onde esta minhatabela?"));
	AGAIN ALIAS minhatabela
ENDIF
* minhavariavelfolder é o local que irá variar conforme o escolhido.. Detalhe o tam. do nome nao pode ser > 8
#REGION 1
* continuacao do meu setup
PRIVATE wzfields,wztalk
IF SET("TALK") = "ON"
    SET TALK OFF
    m.wztalk = "ON"
ELSE
    m.wztalk = "OFF"
ENDIF
SET AUTOSAVE  ON
set century   on
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform