Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
23 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 23 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

Estatísticas
Temos 7065 usuários registrados
O último usuário registrado atende pelo nome de Cauby

Os nossos membros postaram um total de 48 mensagens em 25 assuntos

File Acess Denied

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Em curso File Acess Denied

Mensagem por renatojunior2009 em 30/5/2012, 09:48

Bom dia,

Galera preciso da ajuda de vocês trago o nome da minha tabela em uma propriedade até ai tudo bem, só que ao usar faço uma verificação se ela está em uso ou não, só que quando tento deletar da a mensagem de File Access Denied.

Obs: Estou usando o comando USE IN &lcNomeTab , só que não está adiantando, o que mais poderia tentar ?

Código:

Thisform.nometabela = lcNomeTab

IF Controle.fusu = .f. AND Controle.fconv = .f.
   DELETE FROM controle where Controle.ftabela = lcNomeTab
   IF !USED(lcNomeTab)
       USE &lcNomeTab IN 0
   ENDIF
   USE IN &lcNomeTab
   DROP TABLE &lcNomeTab   
ENDIF

Abraços

Renato
avatar
renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Em curso Re: File Acess Denied

Mensagem por Sub-Zero em 30/5/2012, 11:42

Thisform.nometabela = lcNomeTab

IF Controle.fusu = .f. AND Controle.fconv = .f.
DELETE FROM controle where Controle.ftabela = lcNomeTab
Close Data all
DROP TABLE &lcNomeTab
ENDIF


Provavel que tenha que deletar essa tabela na proxima abertura do sistema


Sub-Zero
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: File Acess Denied

Mensagem por Sub-Zero em 30/5/2012, 11:50

Veja se esse código te ajuda


Código:
CLOSE DATABASES ALL

IF FILE('login.dbf')
   COPY FILE Login.dbf TO Login_OLD.dbf
   COPY FILE Login.cdx TO Login_OLD.cdx
ENDIF    

IF FILE('login.dbf')
      DROP TABLE login
ENDIF

IF NOT FILE('login.dbf')
  CREATE TABLE LOGIN (NOME C(45,0))
ENDIF   

USE LOGIN EXCLUSIVE

IF TYPE ("login.NOME") <> "U"
ELSE
ALTER table login ADD COLUMN NOME C(45,0)
ENDIF
 
INDEX ON  NOME TAG  NOME


INSERT INTO LOGIN ( NOME ) ;
VALUES ("MEUNOME" )


SELECT * ;
FROM login_old INTO CURSOR aa READWRITE
SELECT aa

AB = "MEUNOME"
SCAN FOR NOME # ALLTRIM(AB)
      SELECT login
      APPEND BLANK
    replace login.NOME WITH aa.NOME
ENDSCAN
USE IN AA

IF FILE('login_old.dbf')
      DROP TABLE login_old
ENDIF
 
CLOSE DATABASES ALL

Sub-Zero
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: File Acess Denied

Mensagem por renatojunior2009 em 30/5/2012, 13:28

[Você precisa estar registrado e conectado para ver este link.] escreveu:Thisform.nometabela = lcNomeTab

IF Controle.fusu = .f. AND Controle.fconv = .f.
DELETE FROM controle where Controle.ftabela = lcNomeTab
Close Data all
DROP TABLE &lcNomeTab
ENDIF


Provavel que tenha que deletar essa tabela na proxima abertura do sistema



Não deu certo Sub-Zero teria outra forma ? TENTEI utilizando ERASE e também não deu.
avatar
renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Em curso Re: File Acess Denied

Mensagem por FERNANDOMATRELLA em 30/5/2012, 14:31

Abra a tabela em modo compartilhado


USE "tabela" SHARED in 0

FERNANDOMATRELLA
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: File Acess Denied

Mensagem por FERNANDOMATRELLA em 30/5/2012, 14:36

Voce esta usando a tabela feche-a usando o comando USE

Thisform.nometabela = lcNomeTab

IF Controle.fusu = .f. AND Controle.fconv = .f.
DELETE FROM controle where Controle.ftabela = lcNomeTab
IF !USED(lcNomeTab)
USE &lcNomeTab IN 0
ENDIF
USE IN &lcNomeTab
SELECT &lcNomeTab
USE
ENDIF

FERNANDOMATRELLA
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: File Acess Denied

Mensagem por renatojunior2009 em 30/5/2012, 15:51

[Você precisa estar registrado e conectado para ver este link.] escreveu:Voce esta usando a tabela feche-a usando o comando USE

Thisform.nometabela = lcNomeTab

IF Controle.fusu = .f. AND Controle.fconv = .f.
DELETE FROM controle where Controle.ftabela = lcNomeTab
IF !USED(lcNomeTab)
USE &lcNomeTab IN 0
ENDIF
USE IN &lcNomeTab
SELECT &lcNomeTab
USE
ENDIF


Também não deu certo...
avatar
renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Em curso Re: File Acess Denied

Mensagem por Sub-Zero em 30/5/2012, 16:05

Código:
IF FILE('PARTICIPACOES.CDX')
      DELETE FILE FULLPATH(CURDIR())+'PARTICIPACOES.CDX' RECYCLE
ENDIF

IF FILE('PARTICIPACOES.DBF')
      DELETE FILE FULLPATH(CURDIR())+'PARTICIPACOES.DBF' RECYCLE
ENDIF

Sub-Zero
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: File Acess Denied

Mensagem por Marcos Guedes em 1/6/2012, 12:13

Renato, você está utilizando o Windows Seven/Vista?
Se sim, tente executar como administrador para ver se é questão de direitos.

Se resolver, já sabemos q o problema é outro...

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum