Tratar Abertura de DBF.

[Marcos]

Olá a todos deste conceituado fórum,
Estou passando por uma situação stressante, como faço tratamento de arquivos DBF'S, ou seja, as vezes tento abrir um BD que já está aberto, assim, não vou precisar mais abri-lo apenas Seleciona-lo, em outras situações tenho que fecha-lo antes, alguém tém alguma rotina ou pode me ajudar neste assunto, por favor?
Agradeço a todos, e bom fim de semana.
Marcos.

[Antonio]

IF SELECT("clie") == 0

USE (basespriv) + "clientes.dbf" ALIAS clie SHARED NEW
SELECT('clie')

ENDIF

DBSETINDEX((basespriv) + "clientes.cdx")
CLIE->(DBSETORDER(1))

[Marcos]

Obrigado Antonio pela sua ajuda,
Valeu,
Marcos.

[Abadtard7]

Celebrity sex movies

http://nakedparishilton.info/censored/46283