Ir para conteúdo
Fórum Script Brasil

marcos espanhol

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre marcos espanhol

marcos espanhol's Achievements

0

Reputação

  1. Pessoal, sou novo por aqui, E Estou com uma rotina para buscar CEP que está dando pau na linha VB_Result....Alguém pode me ajudar??? ABS Private Sub cbBusca_Click() Dim obj As MSXML2.ServerXMLHTTP Dim objLerXml As MSXML2.DOMDocument Set obj = New MSXML2.ServerXMLHTTP Set objLerXml = New MSXML2.DOMDocument 'query_string url = "http://republicavirtual.com.br/web_cep.php?cep=" & txtCEP & "&formato=XML" obj.open "GET", url obj.send 'se ocorreu um erro HTTP If obj.Status >= 400 And obj.Status <= 505 Then MsgBox "Erro Ocorrido : " & obj.Status & " - " & obj.statusText Exit Sub Else objLerXml.loadXML (obj.responseText) End If Set VB_RESULT = objLerXml.selectSingleNode("//resultado") If VB_RESULT.Text <> 0 Then Set VB_UF = objLerXml.selectSingleNode("//uf") Set VB_CIDADE = objLerXml.selectSingleNode("//cidade") Set VB_BAIRRO = objLerXml.selectSingleNode("//bairro") Set VB_RUA = objLerXml.selectSingleNode("//tipo_logradouro") Set VB_LOGRADOURO = objLerXml.selectSingleNode("//logradouro") txtUf.Text = VB_UF.Text txtCidade.Text = VB_CIDADE.Text txtBairro.Text = VB_BAIRRO.Text txtLogradouro.Text = VB_RUA.Text & " " & VB_LOGRADOURO.Text Else MsgBox "Serviço indisponível - cep inválido" End If End Sub
×
×
  • Criar Novo...