Comando Use (tabela) com macro em Opus/OpenBase

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

paulobergo
Usuário Nível 1
Usuário Nível 1
Mensagens: 30
Registrado em: 09 Nov 2007 08:54
Localização: Juiz de Fora-MG

Comando Use (tabela) com macro em Opus/OpenBase

Mensagem por paulobergo »

Olá pessoal...
Este post é uma questão que talvez se aplique aos colegas...
Preciso descobrir uma forma de abrir uma tabela usando macro na linguagem OPUS com banco de dados OpenBase... da mesma forma que se faz em Clipper...

Exemplos que funcionam em Clipper

sTabela = "impostos"
Select a
Use &sTabela
Use (sTabela)

etc...

No OpenBase, devo especificar, explicitamente, a tabela...

Select a
Use impostos

Nada parecido com o código em Clipper funciona...

Se alguém ja tiver conseguido ou tiver uma idéia de como fazê-lo, pode dar alguma dica?

Grato!

Abraços.
Não se vê bem com insolação... é essencial cobrir os olhos...
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Mensagem por rochinha »

Amiguinho

O Clipper é um tanto restrito no caso de tabelas que sejam de outros BDs, sugiro então que voce use um aplicativo especifico para abrir estas tabelas.

Um conversor OPUS -> DBF por exemplo.

Ja tentou abrir via Excell ou Access?

Diretamente pelo Clipper não será possivel pois os RDDs dele chegam no maximo a Paradox 4.

Como seu post não foi explicito o bastante para sabermos quais suas reais intenções fico apenas no que passei.

De uma olhada neste help aqui
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Manuel Luis Modernel
Usuário Nível 2
Usuário Nível 2
Mensagens: 66
Registrado em: 02 Mar 2008 20:40
Localização: São José do Rio Preto - SP

Comando Use (tabela) com macro em Opus/OpenBase

Mensagem por Manuel Luis Modernel »

Boa Noite PauloBergo,

Eu usava a função abaixo para chamar um banco de dados sem escrever sempre o comando "USE", só que era num Clipper bem velho (Summer 87) e usava assim:

US(MeuDBF)

Código: Selecionar todos


FUNC US
PARAMETERS DBFS
DO WHILE .T.
   ARQU=ALLTRIM('&DBFS')
   USE &DBFS
   IF NETERR()
      LIMPA23()
      CENTRA('ARQUIVO '+ARQU+' ESTA EM USO, AGUARDE LIBERA€ŽO !!!',23)
      TONE(500,09)
      inkey(1)
      IF LASTKEY()=27
         EXIT
      ENDIF
      LOOP
   ELSE
      EXIT
   ENDIF
ENDDO
RETURN 0


No fundo nem sei se te servirá mais a diferença é que declaro o Parametro a usar.
NOTA:
O NETERR() era só para "ALCAGUETAR" se ele estava sendo usado em algum outro terminal da rede sem travar o Sistema.
OI Aqui é o Veio Modernel
Responder