USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  EDITANDO DADOS DBF PELO VB
helienilson
não registrado
Postada em 30/07/2004 10:47 hs   
BOM pessoal não participo muito desse forum por falta de tempo mas estou com uma dificudade com banco de dados dbf, gostaria de obter uma resposta rápida no forum ou se estou fazendo coisa errada por favor me avise.
Estou fazendo uma integração do sistema da empresa que trabalho do dbf para o mdb.

No banco de dados dbf possuo um campo "Transf" com 2 caracter texto.
No meu sistema em vb possuo um botão "iniciar Tranferencia. "
Quando o usuário clicar no botão "iniciar tranferencia" os dados que estão no dbf terão que passar para o mdb, "o que ele já está fazendo".

Enquanto ele transfere os dados 1 por 1 devo colocar um "X" Dentro do campo "Transf" ou seja ele tem que editar o dado que está setado colocando um "X" coloquei o seguinte comando.

do while not .eof
Dim mGrava As String
        mGrava = "X"
           .Fields("TRANSF") = mGrava
           .Update        
           .MoveNext
loop

mas ele não grava nada. Ocorre um erro.
"A operação deve consultar uma consulta atualizavel"

, Tentei fazer de outra forma criei um DATAGRID E OUTRO CONEXÃO
No grid consegui inserir dados no dbf normal mas quando fui editar não consegui, alguem pode me ajudar nesse caso.
 
estou usando o ado
     
Álvaro
Pontos: 2843
GUARULHOS
SP - BRASIL
Postada em 31/07/2004 20:02 hs            
olá helienilson
helienilson acho que está faltanto um comando o edit, por exemplo, desejo atualizar um banco de dados que tenha 50 registros e o campo é a cidade e o nome do banco de dados é temp, ficaria algo parecido com isso.
Primeiro você indexa o arquivo e movimenta para o primeiro registro
Temp.index="ICidade"
Temp.MoveMin
While not temp.eof
    Temp.Edit
    Temp!Cidade="Guarulhos - São Paulo"
    Temp.Update
    Temp.MoveNext
Wend
Msgbox "Atualização Completa"
 
helienilson acho que é isso que você estava querendo, pelo menos foi isso que eu entendi, qualquer coisa pode perguntar que se eu não responder a galera responde pois não vi ninguém ficar na mão. E não estou puxando o saco é apenas uma observação, pois visito muito aqui e tenho aprendido muito, além de poder ajudar sempre que possível.

Abraço e que DEUS te abençõe, espero poder ter te ajudado
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página