CONSULTA EM TXT E SALVA EM MYSQL

 Tópico anterior Próximo tópico Novo tópico

CONSULTA EM TXT E SALVA EM MYSQL

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#392102 - 29/12/2011 10:19:09

ARES
BELO HORIZONTE
Cadast. em:Maio/2009


Amigos, bom dia!

tenho um arquivo .txt com os seguintes dados:

02900031.dpv;1

no banco de dados tenho varios arquivos com os seguintes dados:

No. pedido             pedido com problema
02900031.dpv                          0
01500001.dpv                          0
02600192.dpv                          0

Preciso de um código para verificar o número do pedido dentro de um .txt e alterar o campo de pedido com problema dentro do banco de dados
passando-o para:

No. pedido             pedido com problema
02900031.dpv                          1
01500001.dpv                          0
02600192.dpv                          0

Sabem me informar como fazer este código?

Desde já agradeço,


Ricardo Nantes
Contador


Resposta escolhida #392107 - 29/12/2011 12:36:22

RODRIGOFERRO
VIANA
Cadast. em:Junho/2009


a idéia é percorrer o txt lendo a linha inteira e dando split pelo curinga ";" e vai pegando as inforações e consultando normal..

Abraços

Estou voltando... Olá a todos... Já posso dizer, ("Ja lhes falei mais de mil vezes... HIAUhIAHIAUhAIUHAIUA")
- Chuck Norris usa o Notepad como banco de dados relacional.
- Chuck Norris sabe falar em códigos binários.



#392108 - 29/12/2011 12:39:45



Cadast. em:


Voce sabe como abrir um arquivo texto pelo VB ?

Caso saiba, basta ler as linhas do arquivo (ver a anotação que voce precisa) e associar ao campo sa sua tabela .


Dim cLinha As String
Dim Arquivo as String

arquivo = nome do arquivo

Open Arquivo For Input As #1

Do While Not EOF(1)
      Line Input #1, cLinha
      If clinha = ..........seus dados then
         faz o que voce quer no banco de dados
     end if
loop




#392110 - 29/12/2011 12:43:37

ARES
BELO HORIZONTE
Cadast. em:Maio/2009


zerocal,

blz! funcionou!!!

segue código:

Private Sub cliente()
Dim f As Long, sLine As String
Dim X As Integer
On Error GoTo trata_erro
Dim RetVal As String

'localiza o caminho da arquivo .txt para importar para a tabela
Me.text1 = "C:\clientes.txt"
                
                'inicia a conexão com o banco de dados
                
                
                mycon.Open "dsn=asgard_goodwill_salles"

                
                'verifica os dados dentro da .txt
                f = FreeFile
                
               'abre a .txt e inicia um loop para o número de linhas dentro do arquivo
                Open text1.Text For Input As f
                
                                          
                'inicia o processo de transferencia dos dados
                With mycmd
                Set .ActiveConnection = mycon
                .CommandType = adCmdText
              
                          
              On Error Resume Next
              
                'passa os parametros do loop para adicionar os dados na tabela cliente
                Do While Not EOF(f)
                Line Input #f, sLine
                ParseToArray sLine, Matriz()
            '    Me.lblprogress = "Atualizando clientes: " & Me.txtanalise & ""
                pb.Visible = True
                pb.Min = 0
                pb.Max = f
                pb.Value = 0
                For X = pb.Min To pb.Max
                pb.Value = X
                DoEvents
                Next X
        'insere os dados do array na tabela clientes
  
                .CommandText = "update cliente set " & _
                "nome = '" & Matriz(5) & "'" & _
                "where codigo = " & Val(Matriz(1)) & ""
                                          
                .Execute
        
              
        'finaliza o loop
        Loop
        
        Me.pb.Visible = False
        Me.lblprogress = ""
        End With

        Set mycmd = Nothing
        mycon.Close
        
        Close #f
        
            
        Exit Sub
trata_erro:
    
End Sub


Vou fazer testes agora com as informações corretas.




Ricardo Nantes
Contador


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ARES em 29/12/2011 12:44:22