Bom dia, como usar sql em access com link no próprio pc para CEP de ruas do Brasil todo.
Achei um BD no forum do VIACEP , mas não funciona no trabalho o link , só no pc em casa pq no trabalho bloqueia.
então pensei se tem como fazer um caminho no pc sem precisar pela internet, é possível?
'---------------------------------------'
' Codigo retirado do site "zeplanilha" '
' Adaptado por FabioPaes em 25/01/2017 '
' Para MaximoAccess.com '
'---------------------------------------'
Function ConsultaCEP(valorcep As String, tipoCampo As String)
Dim oXmlDoc As DOMDocument
Dim oXmlNode As IXMLDOMNode
Dim oXmlNodes As IXMLDOMNodeList
Set oXmlDoc = New DOMDocument
oXmlDoc.async = False
oXmlDoc.Load ("https://viacep.com.br/ws/" + valorcep + "/xml/")
Set oXmlNodes = oXmlDoc.SelectNodes("/xmlcep/" + tipoCampo) '
For Each oXmlNode In oXmlNodes
ConsultaCEP = oXmlNode.Text
Next
End Function
Achei um BD no forum do VIACEP , mas não funciona no trabalho o link , só no pc em casa pq no trabalho bloqueia.
então pensei se tem como fazer um caminho no pc sem precisar pela internet, é possível?
'---------------------------------------'
' Codigo retirado do site "zeplanilha" '
' Adaptado por FabioPaes em 25/01/2017 '
' Para MaximoAccess.com '
'---------------------------------------'
Function ConsultaCEP(valorcep As String, tipoCampo As String)
Dim oXmlDoc As DOMDocument
Dim oXmlNode As IXMLDOMNode
Dim oXmlNodes As IXMLDOMNodeList
Set oXmlDoc = New DOMDocument
oXmlDoc.async = False
oXmlDoc.Load ("https://viacep.com.br/ws/" + valorcep + "/xml/")
Set oXmlNodes = oXmlDoc.SelectNodes("/xmlcep/" + tipoCampo) '
For Each oXmlNode In oXmlNodes
ConsultaCEP = oXmlNode.Text
Next
End Function