Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
15 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 15 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
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

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: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

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

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