Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
13 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 13 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
Últimos assuntos
» Ajuda a direcionar
8/12/2016, 01:17 por miiiih

» Alterar uma palavra num arquivo de texto
5/12/2016, 12:02 por Teseu

» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

Alterar uma palavra num arquivo de texto

5/12/2016, 12:02 por Teseu

Olá prezados colegas de programação!

Este é eu primeiro post no fórum e gostaria de poder …

Comentários: 0

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

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

Estatísticas
Temos 6964 usuários registrados
O último usuário registrado atende pelo nome de Ricardo Cassolatto

Os nossos membros postaram um total de 17119 mensagens em 2577 assuntos

NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Página 1 de 2 1, 2  Seguinte

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

Resolvido NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Linghston em 19/10/2010, 11:24

Ola galera,
Estou usando este comando abaixo para atualizar registro na tabela contatos, porem quando termina a atualização a tabela fica travada, somente leitura.
Sera que esta errado meu comando ou esta faltando mais alguma coisa?
Como faço para que a tabela não fique somente leitura apos terminar o update?

Código:
Close All
Set Exclusive Off
With Thisform
   nconexao= Sqlstringconnect("DSN=Informatc;UID=;PWD=;SourceDB=\\172.20.166.117\gmdn\Informatc\Tabelas;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;")
   Set Defa To \\172.20.166.117\gmdn\Informatc\Tabelas
   SQLExec(nconexao, "Select * from contatos")

   Update contatos Set email = m.email Where Nome = Alltrim(m.nomee) And mesa = .text1.Value

Endwith
Close All
SQLDisconnect(nconexao)
Release Thisform

Obrigado


Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por m@r<3|o em 19/10/2010, 12:43

Olá
seria a questao que selecionou pelo SQLEXEC mais no UPDATE conseguiu fazer sem o SQLEXEC isso quer dizer , que as coisas funcionam sem SQLEXEC

ou mesmo colocar SQLEXEC( UPdate ...................)

ou

Código:
string = UPdate
SQLEXEC (string)

tambem set dele off , se não for um caso que voce realmente necessita
coloque SET dele ON


O seu problema deve estar que esta Close All antes de fechar a conexao entao por isso deve ficar amarrada a tabela como leitura

no final inverta

Código:
Close All
SQLDisconnect(nconexao)
Release Thisform

para

Código:
SQLDisconnect(nconexao)
Release Thisform
Close All



m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por m@r<3|o em 19/10/2010, 13:09

Tipo ... por curiosidade , voce tem um DBC ou DBF e fez uma conexao ODBC
para expor na Rede

Tipo eu preciso incluir excluir pela REDE usando DBF , somente faço um Mapeamento Z: no Servidor

e crio um Executavel com

Set defa to "Z:"

e tambem coloco no Servidor ai puxo o atalho Z: para outras estaçoes

sem usar PST sem usar ODBC

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Linghston em 19/10/2010, 13:10

Marcelo fiz o que sugeriu mas não funcionou!!!

Mensagem de erro escreveu:FILE ACCESS IS DENIED C:\GM\INFORT\TABELAS\CONTATOS.DBF

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por m@r<3|o em 19/10/2010, 13:12

certo , mais tipo ... e a minha colocacao na seguinte resposta
Não seria o que precisa

certo e como o código ficou ,
os detalhes da segunda mensagem é o que define as paradas ...
essa conexao realmente a necessidade ? isso que fiquei na duvida desde a postagem sobre insert

Voce esta usando ODBC e PST para acessar uma mesma Rede num HUB ?
ou mesmo isso esta num FTP ou site por isso esse esquema todo ?

quer que eu colo um UPdate fazendo com SQLEXEC por STRING tenho o modelo ?
posto ?


Última edição por marcelofazan em 19/10/2010, 13:16, editado 1 vez(es)

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Linghston em 19/10/2010, 13:16

Marcelo, estou sem entender o que diz!!!

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Linghston em 19/10/2010, 13:18

marcelofazan escreveu:certo , mais tipo ... e a minha colocacao na seguinte resposta
Não seria o que precisa

certo e como o código ficou ,
os detalhes da segunda mensagem é o que define as paradas ...
essa conexao realmente a necessidade ? isso que fiquei na duvida desde a postagem sobre insert

Voce esta usando ODBC e PST para acessar uma mesma Rede num HUB ?
ou mesmo isso esta num FTP ou site por isso esse esquema todo ?

quer que eu colo um UPdate fazendo com SQLEXEC por STRING tenho o modelo ?
posto ?

Uso o ODBC somente para acessar uma rede interna da empresa!!!
usando mapeamento pelo IP.
Nada de FTP

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por m@r<3|o em 19/10/2010, 13:19

Código:
nconexao= Sqlstringconnect("DSN=Informatc;UID=;PWD=;SourceDB=\\172.20.166.117\gmdn\Informatc\Tabelas;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;")

essa conexao imensa é para acessar um micro da mesma rede ?

se for ..... tem outros meios mais convencionais

esse voce mapear , o mesmo programa que tem numa maquina funciona funciona em varias MAPEANDO sem fazer o que esta fazendo


Última edição por marcelofazan em 19/10/2010, 13:22, editado 2 vez(es)

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Linghston em 19/10/2010, 13:20

marcelofazan escreveu:certo , mais tipo ... e a minha colocacao na seguinte resposta
Não seria o que precisa

certo e como o código ficou ,
os detalhes da segunda mensagem é o que define as paradas ...
essa conexao realmente a necessidade ? isso que fiquei na duvida desde a postagem sobre insert

Voce esta usando ODBC e PST para acessar uma mesma Rede num HUB ?
ou mesmo isso esta num FTP ou site por isso esse esquema todo ?

quer que eu colo um UPdate fazendo com SQLEXEC por STRING tenho o modelo ?
posto ?


Sim, poste!!!
Deve me ajudar e muito.

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por m@r<3|o em 19/10/2010, 13:21

Código:
WITH thisformset.form2
vCodigo = .txtclie_cod.value
vNome = .Txtclie_nom.value
vCnpj = .txtclie_cpfcnpj.value
vIe = .txtclie_rgie.value
vNfant = .txtclie_nfant.value
vPFPJ = .txtclie_pfpj.value

cString = "Update cadclie SET clie_nom = ?vNome, clie_cpfcnpj = ?vCnpj, clie_rgie = ?vIe, clie_nfant = ?vNfant, clie_pfpj = ?vPFPJ Where clie_cod  = " + ALLTRIM(STR(.txtclie_cod.VALUE))

ENDWITH
=SQLPREPARE(conSql , cString)
= SQLCOMMIT(conSql) 

IF SQLEXEC(conSql ) <= 0
  MESSAGEBOX("Não foi possível Alterar Registro!", 0+16, "Erro de Alteração")
  RETURN
ENDIF

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Linghston em 19/10/2010, 13:22

marcelofazan escreveu:
Código:
nconexao= Sqlstringconnect("DSN=Informatc;UID=;PWD=;SourceDB=\\172.20.166.117\gmdn\Informatc\Tabelas;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;")

essa conexao imensa é para acessar um micro da mesma rede ?

se for ..... tem outros meios mais convencionais

esse voce mapear , o mesmo programa que tem numa maquina funciona em outra sem tudo isso que esta fazendo

concordo...rsrsrs.. mas tentei varias e a unica que eu consegui fazer rodar aki.!!!
se tiver como melhorar, agradeço!!!

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Linghston em 19/10/2010, 13:23

marcelofazan escreveu:
Código:
WITH thisformset.form2
vCodigo = .txtclie_cod.value
vNome = .Txtclie_nom.value
vCnpj = .txtclie_cpfcnpj.value
vIe = .txtclie_rgie.value
vNfant = .txtclie_nfant.value
vPFPJ = .txtclie_pfpj.value

cString = "Update cadclie SET clie_nom = ?vNome, clie_cpfcnpj = ?vCnpj, clie_rgie = ?vIe, clie_nfant = ?vNfant, clie_pfpj = ?vPFPJ Where clie_cod  = " + ALLTRIM(STR(.txtclie_cod.VALUE))

ENDWITH
=SQLPREPARE(conSql , cString)
= SQLCOMMIT(conSql) 

IF SQLEXEC(conSql ) <= 0
  MESSAGEBOX("Não foi possível Alterar Registro!", 0+16, "Erro de Alteração")
  RETURN
ENDIF


Ok vou testar esta sugestão tambem.

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por m@r<3|o em 19/10/2010, 13:33

voce tem 1 exe ira criar outro para finalidade de rede

va no PRG inicial e troque uma linha que esta entre as primeiras

set defa to "C:\PastadoSistema\Sistema"

troque para

set defa to "Z"

e compile .....

quando compilar ............ coloque o nome dele diferenciado ex

z_meusistema.exe

salve ele junto de onde está meusistema.exe

apartir dai voce tem 2 EXE ....

1 - meusistema.exe - pra funcionar onde fica as tabelas
2 - z_meusistema.exe - pra que vai servir a Rede

sem alterar nada , ...... no programa
NÃO A NECESSIDADE DE MUDAR CAMINHO NADA

qdo voce coloca set defa "Z:" o programa fara tudo em outras maquinas , sem mudar 1 linha no programa

Resumindo somente troca esse comando que ele faz o sentido em qual diretorio sera lido as tabelas

esssa parte foi do Fox

agora tem a parte do Windows

Vá em Meu Computador -> no Menu va em Ferramentas
e tera opcao Mapear Unidade de Rede - clique -> Abrira uma nova janela

Selecione a Letra Z: ou mesmo aparece por padrao .

Onde tem o Campo chamado Pasta voce cola o caminho C:\PastadoSistema\Sistema

pronto ..... apartir dai voce tera a Unidade Z: Mapeada ....

Somente criar um Atalho z_meusistema.exe nas estacoes .....
e o mesmo programa que roda na maquina principal roda em todas
se utilizando de 2 EXEs


Última edição por marcelofazan em 19/10/2010, 13:41, editado 2 vez(es)

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Linghston em 19/10/2010, 13:36

[Você precisa estar registrado e conectado para ver este link.] escreveu:
marcelofazan escreveu:
Código:
WITH thisformset.form2
vCodigo = .txtclie_cod.value
vNome = .Txtclie_nom.value
vCnpj = .txtclie_cpfcnpj.value
vIe = .txtclie_rgie.value
vNfant = .txtclie_nfant.value
vPFPJ = .txtclie_pfpj.value

cString = "Update cadclie SET clie_nom = ?vNome, clie_cpfcnpj = ?vCnpj, clie_rgie = ?vIe, clie_nfant = ?vNfant, clie_pfpj = ?vPFPJ Where clie_cod  = " + ALLTRIM(STR(.txtclie_cod.VALUE))

ENDWITH
=SQLPREPARE(conSql , cString)
= SQLCOMMIT(conSql) 

IF SQLEXEC(conSql ) <= 0
  MESSAGEBOX("Não foi possível Alterar Registro!", 0+16, "Erro de Alteração")
  RETURN
ENDIF


Ok vou testar esta sugestão tambem.

Testei mas retormou erro que a variavel conSql não existe!!!

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por m@r<3|o em 19/10/2010, 13:37

onde está conSql mude para nconexao em todas linhas

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Linghston em 19/10/2010, 13:49

marcelofazan escreveu: onde está conSql mude para nconexao em todas linhas

OK!!!
Funcionou, porem a tabela continua a ficar travada, em somente leitura.
não consigo finalizar a transação.

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Marcos Guedes em 19/10/2010, 13:53

Linghston, por precaução, feche o seu VFP e abra-o novamente, para testar as novas dicas pois talvez você esteja com alguma conexão aberta.

_________________
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

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Linghston em 19/10/2010, 13:58

[Você precisa estar registrado e conectado para ver este link.] escreveu:Linghston, por precaução, feche o seu VFP e abra-o novamente, para testar as novas dicas pois talvez você esteja com alguma conexão aberta.

Marco ja fiz isto, assim que realizo um update fecho o sistema e vou abrir a tabela para chegar, ela não abre.
So consigo abri-la se fizer isto que voce mencionou, realmente a conexão não esya fechando, este é o problema.



Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por m@r<3|o em 19/10/2010, 15:33

tem uma questoes mais acho que nao se cabe ao fox 9
que é quando dá essas semangens de somente para leitura

seria nas pastas principal do sistema clica com botão inverso e propriedades
e onde tem o check somente para leitura ticado .... tirar o tique e salvar

ai funcionava ... tenta algo nesse sentido

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Marcos Guedes em 19/10/2010, 16:13

Linghston, esta tabela contatos é nativa do VFP?
Caso não seja, então você deve mandar o comando pela função SQLEXEC.

Ficaria mais ou menos da seguinte forma:

Código:
SQLExec(nconexao, [Update contatos Set email = ]+m.email+[ Where Nome = ]+Alltrim(m.nomee)+[ And mesa = ]+.text1.Value)


_________________
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

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por m@r<3|o em 19/10/2010, 18:13

fecho o sistema e vou abrir a tabela para chegar, ela não abre.

Linghston


entao onde tem

Código:
Close All
SQLDisconnect(nconexao)
Release Thisform


coloque isso


Código:
SQLDisconnect(nconexao)
RELEASE thisform
CLEAR
CLEAR EVENTS
ON SHUTDOWN quit
QUIT

quando for entrar novamente vai conseguir se caso estive amarrado os Eventos Externos



m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Linghston em 20/10/2010, 06:45

[Você precisa estar registrado e conectado para ver este link.] escreveu:Linghston, esta tabela contatos é nativa do VFP?
Caso não seja, então você deve mandar o comando pela função SQLEXEC.

Ficaria mais ou menos da seguinte forma:

Código:
SQLExec(nconexao, [Update contatos Set email = ]+m.email+[ Where Nome = ]+Alltrim(m.nomee)+[ And mesa = ]+.text1.Value)


Sim é uma tabela nativa do VFP9.

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Linghston em 20/10/2010, 06:47

marcelofazan escreveu:
fecho o sistema e vou abrir a tabela para chegar, ela não abre.

Linghston


entao onde tem

Código:
Close All
SQLDisconnect(nconexao)
Release Thisform


coloque isso


Código:
SQLDisconnect(nconexao)
RELEASE thisform
CLEAR
CLEAR EVENTS
ON SHUTDOWN quit
QUIT

quando for entrar novamente vai conseguir se caso estive amarrado os Eventos Externos



Marcelo, deste jeito funciona, executando o QUIT.
Mas toda vez que o usuario for fazer uma alteração em um registro ele deve sair do sistema!!!! acho que nao é por ai.

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Linghston em 20/10/2010, 07:05

Pessoal so para não ter duvida quanto ao que quero e o que estou fazendo, ok!!!

Estou usando uma tabela DBF chamada CONTATOS, a qual quero dar acesso via conexão SQLExec() em uma rede, onde o usuario ira acessar a mesma e inserir, alterar, excluir, pesquisar as informações dentro desta tabela.
Estou usando esta string de conexão abaixo para acessar o banco de dados:
Código:
nconexao= Sqlstringconnect("DSN=Informatc;UID=;PWD=;SourceDB=\\172.20.120.101\GM\Infort\bdados.dbc;SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;")
SQLExec(nconexao, "Select * from contatos")

Porem quando eu pesquiso a informação para alterar via update, a tabela trava e não deixa eu nem fazer a alteração e nem me conectar nela.

ROTINA PARA PESQUISAR NA TABELA:

Código:
Close All
Set Exclusive Off
With Thisform
.txtlocalizar.readonly =.t.
.text1.readonly =.t.

Código:
nconexao= Sqlstringconnect("DSN=Informatc;UID=;PWD=;SourceDB=\\172.20.120.101\GM\Infort\bdados.dbc;SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;")
   SQLExec(nconexao, "Select * from contatos")

Loca=1
   If Loca=1
LOCATE FOR nome = ALLTRIM(m.nomee) AND mesa = .text1.value
If Found()
.LABEL9.VISIBLE = .T.
.optg1.visible =.t.
.optg1.enabled = .t.
.cmd6.enabled =.f.
.cmd7.enabled =.t.
.txtemail.value = email
.txtnome.value = nome
.txtfornec.value = fornec
.txtmesa.value = mesa
.REFRESH
ELSE
Messagebox('Contato Inexistente.',48+0+0,'Atenção:')
ENDIF
endif
SQLDisconnect(nconexao)
RELEASE thisform
CLEAR
CLEAR EVENTS
ON SHUTDOWN quit
QUIT
ENDWITH

Esta rotina funciona bem para pesquisar, porem quando vou fazer a alteração via UPDATE é que começa os problemas!!!!!
Ela trava e não deixa eu alterar e nem conectar nela.
Mensagem de erro escreveu:FILE ACCESS IS DENIED C:\GM\INFORT\TABELAS\CONTATOS.DBF

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Marcos Guedes em 20/10/2010, 10:37

Vamos tentar explicar melhor as coisas.

Em seu código contém a seguinte linha:
Código:
nconexao= Sqlstringconnect("DSN=Informatc;UID=;PWD=;SourceDB=\\172.20.120.101\GM\Infort\bdados.dbc;SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;")
  SQLExec(nconexao, "Select * from contatos")

Neste caso acima, você está consultando uma tabela que NÃO é nativa do VFP.


Logo abaixo você tem:
Código:
Update contatos Set email = m.email Where Nome = Alltrim(m.nomee) And mesa = .text1.Value
Neste caso você está tentando alterar da dos de uma tabela NATIVA.





Esta tabela é FREE?
Em caso positivo:
Abra a tabela, logo em seguida prossiga com a alteração:
Código:
USE 'contatos' IN SELECT('contatos') SHARED && Apenas um exemplo
Update contatos Set email = m.email Where Nome = Alltrim(m.nomee) And mesa = .text1.Value

Se não for FREE, então abra a base de dados, primeiro:
Código:
OPEN DATABASE caminho\nomeDoBanco
USE 'contatos' IN SELECT('contatos') SHARED
Update contatos Set email = m.email Where Nome = Alltrim(m.nomee) And mesa = .text1.Value

Para uma das opções acima, não esqueça de fechar a tabela:
Código:
USE IN SELECT('contatos')

Resolve?

_________________
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

Resolvido Re: NÃO CONSIGO FINALIZAR TRANSAÇÃO NO UPDATE.

Mensagem por Conteúdo patrocinado Hoje à(s) 17:20


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Página 1 de 2 1, 2  Seguinte

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