Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
5 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 5 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 2

Visite meu canal no Youtube

20/1/2017, 00:45 por ImRicoh

VFP Unlimited


Comentários: 0

Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

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

Os nossos membros postaram um total de 9 mensagens em 3 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

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.

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...

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