MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Extrair dados de uma XML

    avatar
    alexjc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 23/02/2016

    [Resolvido]Extrair dados de uma XML Empty [Resolvido]Extrair dados de uma XML

    Mensagem  alexjc 17/4/2021, 15:18

    Bom pessoal, estou tentando extrair dados de uma xml, onde a tag é   "" pois logo depois dessa tag pode ser um numero de 0 até 8.

    pois bem eu consigo extrair o primeiro, porem quando aplico em um loop ele ó pega o primeiro sempre, o código é esse ai, ou existe alguma função com o objetivo de "Começa com"  

    Dim a As Integer
    Dim cont As Long ' contador
    cont = 1 ' inicio com 1
    DoCmd.GoToRecord , "", acFirst ' vai para o primeiro registro
           
    For a = 1 To Me.Tot_Item Step 1
       
    Dim ori As String
       
       ori = InStr(cont, Me.txt_Inf_Comp, "", vbTextCompare)
       ori = Mid(Me.txt_Inf_Comp, InStr(cont, Me.txt_Inf_Comp, "", vbTextCompare), 7)
       ori = Replace(ori, "", "")
       Me.Orig_XML = ORI
     
     cont = cont + 1
    DoCmd.GoToRecord , , acNext
    Next
    avatar
    alexjc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 23/02/2016

    [Resolvido]Extrair dados de uma XML Empty Re: [Resolvido]Extrair dados de uma XML

    Mensagem  alexjc 17/4/2021, 16:59

    já mexi de toda forma e o máximo que acontece é que ele 5 primeiras linhas ele, busca corretamente, já na sexta linha erre da o erro.
    avatar
    alexjc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 23/02/2016

    [Resolvido]Extrair dados de uma XML Empty Extrair dados de uma XML

    Mensagem  alexjc 17/4/2021, 19:29

    consegui o problema é que eu estava sempre consultando a masma cadeia de caracteres quando acrecentei +1 funcionol perfeitamente


    0 codigo ficou correto assim

    Dim a As Integer
    Dim contador As Long ' contador
    Dim saldoAs Long
    Dim ori As String
    contador = 1

    saldo = 0


    DoCmd.GoToRecord , "", acFirst ' vai para o primeiro registro
    For a = 1 To Me.Tot_Item Step 1
    ' pega a origem do produto
    ori = InStr(contador, Me.txt_Inf_Comp, "", vbTextCompare) ' ori xxx
    saldo = ori + 1
    ori = Mid(Me.txt_Inf_Comp, InStr(contador, Me.txt_Inf_Comp, "", vbTextCompare), 7)
    ori = Replace(ori, "", "")
    Me.Orig_XML = ori
    contador = saldo ' aqui transporta o valor para sima para o proxima procura
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

    [Resolvido]Extrair dados de uma XML Empty Re: [Resolvido]Extrair dados de uma XML

    Mensagem  DamascenoJr. 17/4/2021, 20:25

    lol!

    Parabéns pelo avanço. O fórum agradece o retorno.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 13/6/2021, 00:01