LER ARQUIVO XML
Boa tarde Galera
Como faço para le um arq xml linha por linha e carrgar os dados em, um banco9 de dados.
o que preciso fazer é ler Nfe e carragar em banco.
Conto com a ajuda dos colegas
Sds
Mito
Como faço para le um arq xml linha por linha e carrgar os dados em, um banco9 de dados.
o que preciso fazer é ler Nfe e carragar em banco.
Conto com a ajuda dos colegas
Sds
Mito
Uma classe pra ajudar. Tem mais na seção de arquivos.
http://vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=6042
http://vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=6042
LLaia baixei sua dica mas nao adiantou muita coisa, o xml inteiro até consigo ler porem o que preciso é item por item pra colocar em um banco de dados!!
Socorro pessoal
Sds,
Ademilço
Socorro pessoal
Sds,
Ademilço
Boa noite ,,,, se for utilizando VB6 eu faço assim..... adapte a função ao seu gosto....
Public Function RetornaTagXML(strCaminhoXML As String, TagMae As String, SubTag As String) As String
On Error Resume Next
RetornaTagXML = [Ô][Ô]
Set XML = New DOMDocument
XML.async = False
If XML.Load(strCaminhoXML) Then
[ô] *** Tentar pegar o strCampoXML
Set objNodeList = XML.getElementsByTagName(TagMae & [Ô]//[Ô] & SubTag)
Set objNode = objNodeList.nextNode
Dim sLeitura As String
sLeitura = objNode.Text
If Len(Trim(sLeitura)) > 0 Then [ô]CONSEGUI LER O XML NODE
RetornaTagXML = sLeitura
End If
Else
MsgBox [Ô]Não foi possÃvel abrir o arquivo XML da NFe especificada para Leitura.[Ô], vbCritical, [Ô]Erro.[Ô]
End If
End Function
Public Function RetornaTagXML(strCaminhoXML As String, TagMae As String, SubTag As String) As String
On Error Resume Next
RetornaTagXML = [Ô][Ô]
Set XML = New DOMDocument
XML.async = False
If XML.Load(strCaminhoXML) Then
[ô] *** Tentar pegar o strCampoXML
Set objNodeList = XML.getElementsByTagName(TagMae & [Ô]//[Ô] & SubTag)
Set objNode = objNodeList.nextNode
Dim sLeitura As String
sLeitura = objNode.Text
If Len(Trim(sLeitura)) > 0 Then [ô]CONSEGUI LER O XML NODE
RetornaTagXML = sLeitura
End If
Else
MsgBox [Ô]Não foi possÃvel abrir o arquivo XML da NFe especificada para Leitura.[Ô], vbCritical, [Ô]Erro.[Ô]
End If
End Function
Tópico encerrado , respostas não são mais permitidas