CONSULTA AO SPC VIA VB6

FUTURA 31/03/2011 11:21:33
#369859
pessoal, na net achei apenas com vb.net....como não manjo de webservice, da pra fazer em vb6 com soap ?
MSMJUDAS 31/03/2011 14:58:23
#369908
Tem como fazer sim, veja esse exemplo:

Dim WebService As New SoapClient
Dim Retorno As String
Dim DOMDoc As New MSXML2.DOMDocument

O endereço do webservice
WebService.mssoapinit ([Ô]http://www.seusite.com.br/webservice/busca.php?wsdl[Ô])

BuscaCep é uma função do webservice, a função te devolve os dados em xml
Retorno = WebService.BuscaCep([Ô]04125000[Ô])

Lê o XML e joga os dados para os campos
DOMDoc.loadXML (Retorno)
For x = 0 To DOMDoc.documentElement.childNodes.Length - 1
If DOMDoc.documentElement.childNodes(x).nodeName = [Ô]Logradouro[Ô] Then
TxtLogradouro.Text = Trim(DOMDoc.documentElement.childNodes(x).Text)
ElseIf DOMDoc.documentElement.childNodes(x).nodeName = [Ô]Cidade[Ô] Then
TxtCidade.Text = Trim(DOMDoc.documentElement.childNodes(x).Text)
End If
Next x
KURTGU 31/03/2011 15:14:22
#369916
MSM JUDAS acho que ele que saber SPC e nao CEP......
FUTURA 31/03/2011 15:17:36
#369919
isso spc ( serviço de proteção ao crédito)...passando login e senha..
TECLA 01/04/2011 23:25:53
#370151
Este serviço está disponível para efetuar consultas via WEB SERVICE com autenticação de usuário.
http://www.consultacpf.com/webservices/consultacpf.asmx

O site para comprar créditos é www.consultacpf.com.

Exemplo de consulta em VB.NET.
Partial Class consultacpf
    Inherits System.Web.UI.Page
 
    Protected Sub btn_consultar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_consultar.Click
        Dim oWS As New com.consultacpf.www.ConsultaCPFWebService
        Dim sCPF As String = Me.fld_CPF.Text
 
        If Trim(sCPF) = Nothing Then
            Exit Sub
        End If
 
        Dim aResults As Array = oWS.ConsultaSimples([Ô]seu-usuario[Ô], [Ô]sua-senha[Ô], sCPF)
        Me.lbl_ResultadodaPesquisa.Text = aResults(0).Status.ToString.Trim
 
 
    End Sub
End Class
MSMJUDAS 02/04/2011 08:26:23
#370183
Citação:

:
MSM JUDAS acho que ele que saber SPC e nao CEP......



O que eu postei foi um EXEMPLO de webservice, o autor disse que não manja nada de webservice em VB6, então só postei esse código de como acessar um ws.
FUTURA 04/04/2011 09:08:11
#370312
tecla, em vb6 da pra fazer ???...tem algum exemplo ::??
FUTURA 05/04/2011 12:28:55
#370472
alguem ai, sabe se da pra fazer em vb6 ?
FUTURA 06/04/2011 08:38:02
#370571
up...
MSMJUDAS 06/04/2011 10:44:52
#370594
é possível sim, pegue o exemplo que eu postei e altere o endereço do WS para algum dos endereços que existe no site que o Tecla passou, coloque nome da função junto com seu login, senha e CPF ou CNPJ.

Tipo:

Retorno = WS.ConsultaSimplesSERASA([Ô]teste@teste.com.br[Ô], [Ô]123456[Ô], [Ô]12345678900[Ô])
Tópico encerrado , respostas não são mais permitidas
Voltar