webservice VBA Access

senhores

Boa Tarde

preciso de alguma luz em relação a consumo de webservice no access, na internet não tem muito conteudo. tenho o link e faço o teste em software apropriado o SUAPUI e fiz o teste de consumo, tudo ok.

No access 365 tentei na parte de importação, serviços de dados, tento criar o vinculo conexão, por esse assistente e sempre me apresenta o mesmo erro. sendo que o link não está errado.

segue em anexo a tela do error.

se alguem tiver algum conteudo de consumo de webservice(wsdl) via vba

Obrigado a todos

Assunto já batido neste fórum.

Veja uma luz neste tópico
https://www.maximoaccess.com/t34574-resolvidoimportar-xml-erro-de-timeout

Caro Damasceno

Bom Dia

Verifiquei o codigo, mas a xml que tenho parece ser diferente. estou enviando o xml em anexo.


Obrigado

É esse o XML devolvido pelo SOAPUI após um envio?

Seu XML tá com cara de XSD. Veja sobre os dois no link abaixo
pt.stackoverflow.com/questions/71992/qual-%C3%A9-a-diferen%C3%A7a-entre-um-arquivo-xml-e-um-arquivo-xsd

desculpe mas enviei o arquivo errado. esse é o correto

Continuo com o mesmo pensamento. É uma estrutura de XSD.

Onde você está encontrando este arquivo?

esse webservice, foi disponibilizado pelo sistema de vendas não sei a linguagem da empresa para se comunicar com o sistema de almoxarifado feito em access

Em uma integração com WebService, um XML é enviado para um endereço e então é retornado um outro XML como resposta.

Veja na imagem como funciona isso no SOAPUI.

Na seta 1 é o XML a ser enviado. Na seta 2 o envio será feito. E na seta 3 surgirá um XML como resposta.


Se na estrutura que você tem montada isso estiver funcionando então no Access também funcionará. É assim que você tá fazendo?

Viu aí como o texto que é enviado e o texto recebido são diferentes do que está no arquivo que você mandou?

Basta agora desenvolver adequadamente um código que monta um XML, que envie o XML, e que leia o XML recebido.

Exemplos para estudo e adaptação

de montagem de um XML para ser enviado

Código:

strEnv = ""
    strEnv = strEnv & "<soap:Envelope xmlns:soap=""http://www.w3.org/2003/05/soap-envelope"" xmlns:urn=""urn:ihe:iti:xds-b:2007"" xmlns:urn1=""urn:oasis:names:tc:ebxml-regrep:xsd:lcm:3.0"" xmlns:urn2=""urn:oasis:names:tc:ebxml-regrep:xsd:rim:3.0"" xmlns:urn3=""urn:ihe:iti:xds-b:2007"">" & vbNewLine
    strEnv = strEnv & "  <soap:Header>" & vbNewLine
    strEnv = strEnv & "      <wsse:Security xmlns:wsse=""http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"">" & vbNewLine
    strEnv = strEnv & "        <wsse:UsernameToken wsu:Id=""Id-0001334008436683-000000002c4a1908-1"" xmlns:wsu=""http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd"">" & vbNewLine
    strEnv = strEnv & "            <wsse:Username>CADSUS.SMS.MINHACIDADE.UF</wsse:Username>" & vbNewLine
    strEnv = strEnv & "            <wsse:Password Type=""http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText"">UMA.SENHA.SUPER.DIFICIL</wsse:Password>" & vbNewLine
    strEnv = strEnv & "        </wsse:UsernameToken>" & vbNewLine
    strEnv = strEnv & "      </wsse:Security>" & vbNewLine
    strEnv = strEnv & "  </soap:Header>" & vbNewLine
    strEnv = strEnv & "  <soap:Body>" & vbNewLine
    strEnv = strEnv & "      <PRPA_IN201305UV02 xsi:schemaLocation=""urn:hl7-org:v3 ./schema/HL7V3/NE2008/multicacheschemas/PRPA_IN201305UV02.xsd"" ITSVersion=""XML_1.0"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns=""urn:hl7-org:v3"">" & vbNewLine
    strEnv = strEnv & "        <id root=""2.16.840.1.113883.4.714"" extension=""123456""/>" & vbNewLine
    strEnv = strEnv & "        <creationTime value=""20070428150301""/>" & vbNewLine
    strEnv = strEnv & "        <interactionId root=""2.16.840.1.113883.1.6"" extension=""PRPA_IN201305UV02""/>" & vbNewLine
    strEnv = strEnv & "        <processingCode code=""T""/>" & vbNewLine
    strEnv = strEnv & "        <processingModeCode code=""T""/>" & vbNewLine
    strEnv = strEnv & "        <acceptAckCode code=""AL""/>" & vbNewLine
    strEnv = strEnv & "        <receiver typeCode=""RCV"">" & vbNewLine
    strEnv = strEnv & "            <device classCode=""DEV"" determinerCode=""INSTANCE"">" & vbNewLine
    strEnv = strEnv & "              <id root=""2.16.840.1.113883.3.72.6.5.100.85""/>" & vbNewLine
    strEnv = strEnv & "            </device>" & vbNewLine
    strEnv = strEnv & "        </receiver>" & vbNewLine
    strEnv = strEnv & "        <sender typeCode=""SND"">" & vbNewLine
    strEnv = strEnv & "            <device classCode=""DEV"" determinerCode=""INSTANCE"">" & vbNewLine
    strEnv = strEnv & "              <id root=""2.16.840.1.113883.3.72.6.2""/>" & vbNewLine
    strEnv = strEnv & "            </device>" & vbNewLine
    strEnv = strEnv & "        </sender>" & vbNewLine
    strEnv = strEnv & "        <controlActProcess classCode=""CACT"" moodCode=""EVN"">" & vbNewLine
    strEnv = strEnv & "            <code code=""PRPA_TE201305UV02"" codeSystem=""2.16.840.1.113883.1.6""/>" & vbNewLine
    strEnv = strEnv & "            <queryByParameter>" & vbNewLine
    strEnv = strEnv & "              <queryId root=""1.2.840.114350.1.13.28.1.18.5.999"" extension=""1840997084""/>" & vbNewLine
    strEnv = strEnv & "              <statusCode code=""new""/>" & vbNewLine
    strEnv = strEnv & "              <responseModalityCode code=""R""/>" & vbNewLine
    strEnv = strEnv & "              <responsePriorityCode code=""I""/>" & vbNewLine
    strEnv = strEnv & "              <parameterList>" & vbNewLine
    strEnv = strEnv & "                  <livingSubjectId>" & vbNewLine
    strEnv = strEnv & "                    <value root=" & Parametro1 & " extension=""" & Me!OuMeMeuCampo & """/>" & vbNewLine
    strEnv = strEnv & "                    <semanticsText>LivingSubject.id</semanticsText>" & vbNewLine
    strEnv = strEnv & "                  </livingSubjectId>" & vbNewLine
    strEnv = strEnv & "              </parameterList>" & vbNewLine
    strEnv = strEnv & "            </queryByParameter>" & vbNewLine
    strEnv = strEnv & "        </controlActProcess>" & vbNewLine
    strEnv = strEnv & "      </PRPA_IN201305UV02>" & vbNewLine
    strEnv = strEnv & "  </soap:Body>" & vbNewLine
    strEnv = strEnv & "</soap:Envelope>"

do envio do XML montado

Código:

Set xmlHttp = New MSXML2.XMLHTTP60

    With xmlHttp
        .Open "POST", strURL, False
        .setRequestHeader "Content-Type", "text/xml; charset=utf-8"
        .setRequestHeader "Content-Length", "Length"
        .send strEnv
    End With

do recebimento do XML respondido

Código:

If CLng(xmlHttp.Status) < 300 Then
       
        strTemp = xmlHttp.responseText
        'XML respondido na string strTemp
        'trabalhe a strTemp para interpretar a resposta

else
        'aqui se houve erro ao enviar o XML
end if

set xmlHttp = nothing

Algum avanço, ifahidalgo?

Estou buscando outros conteúdos para ver como é antes da codificação que passou.

me dá uma luz, quando coloco o segundo link no suapui tenho o print que passei do suapui

esse é o arquivo que recebo do ws, e abro no google chrome;
https://i.servimg.com/u/f19/20/11/26/74/ws110.jpg

escolhendo a primeira linha
http://192.168.2.6:81/ServiceIntegration.svc?wsdl

tenho no browse
https://i.servimg.com/u/f19/20/11/26/74/ws210.jpg

e a segunda linha
http://192.168.2.6:81/ServiceIntegration.svc?singleWsdl

xml abaixo

Código:

This XML file does not appear to have any style information associated with it. The document tree is shown below.
<wsdl:definitions xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:wsam="http://www.w3.org/2007/05/addressing/metadata" xmlns:wsx="http://schemas.xmlsoap.org/ws/2004/09/mex" xmlns:wsap="http://schemas.xmlsoap.org/ws/2004/08/addressing/policy" xmlns:msc="http://schemas.microsoft.com/ws/2005/12/wsdl/contract" xmlns:wsp="http://schemas.xmlsoap.org/ws/2004/09/policy" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns="http://tempuri.org/" xmlns:wsa10="http://www.w3.org/2005/08/addressing" xmlns:wsaw="http://www.w3.org/2006/05/addressing/wsdl" xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/08/addressing" name="Service1" targetNamespace="http://tempuri.org/">
<wsdl:types>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" elementFormDefault="qualified" targetNamespace="http://tempuri.org/">
<xs:import namespace="http://schemas.datacontract.org/2004/07/NAV_MIO_Integration_WS.Entities"/>
<xs:element name="CreatePurchaseOrder">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q1="http://schemas.datacontract.org/2004/07/NAV_MIO_Integration_WS.Entities" minOccurs="0" name="PurchaseOrderList" nillable="true" type="q1:ArrayOfCreatePurchaseOrders"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="CreatePurchaseOrderResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q2="http://schemas.datacontract.org/2004/07/NAV_MIO_Integration_WS.Entities" minOccurs="0" name="CreatePurchaseOrderResult" nillable="true" type="q2:ReturnWS"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:tns="http://schemas.microsoft.com/2003/10/Serialization/" attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://schemas.microsoft.com/2003/10/Serialization/">
<xs:element name="anyType" nillable="true" type="xs:anyType"/>
<xs:element name="anyURI" nillable="true" type="xs:anyURI"/>
<xs:element name="base64Binary" nillable="true" type="xs:base64Binary"/>
<xs:element name="boolean" nillable="true" type="xs:boolean"/>
<xs:element name="byte" nillable="true" type="xs:byte"/>
<xs:element name="dateTime" nillable="true" type="xs:dateTime"/>
<xs:element name="decimal" nillable="true" type="xs:decimal"/>
<xs:element name="double" nillable="true" type="xs:double"/>
<xs:element name="float" nillable="true" type="xs:float"/>
<xs:element name="int" nillable="true" type="xs:int"/>
<xs:element name="long" nillable="true" type="xs:long"/>
<xs:element name="QName" nillable="true" type="xs:QName"/>
<xs:element name="short" nillable="true" type="xs:short"/>
<xs:element name="string" nillable="true" type="xs:string"/>
<xs:element name="unsignedByte" nillable="true" type="xs:unsignedByte"/>
<xs:element name="unsignedInt" nillable="true" type="xs:unsignedInt"/>
<xs:element name="unsignedLong" nillable="true" type="xs:unsignedLong"/>
<xs:element name="unsignedShort" nillable="true" type="xs:unsignedShort"/>
<xs:element name="char" nillable="true" type="tns:char"/>
<xs:simpleType name="char">
<xs:restriction base="xs:int"/>
</xs:simpleType>
<xs:element name="duration" nillable="true" type="tns:duration"/>
<xs:simpleType name="duration">
<xs:restriction base="xs:duration">
<xs:pattern value="\-?P(\d*D)?(T(\d*H)?(\d*M)?(\d*(\.\d*)?S)?)?"/>
<xs:minInclusive value="-P10675199DT2H48M5.4775808S"/>
<xs:maxInclusive value="P10675199DT2H48M5.4775807S"/>
</xs:restriction>
</xs:simpleType>
<xs:element name="guid" nillable="true" type="tns:guid"/>
<xs:simpleType name="guid">
<xs:restriction base="xs:string">
<xs:pattern value="[\da-fA-F]{8}-[\da-fA-F]{4}-[\da-fA-F]{4}-[\da-fA-F]{4}-[\da-fA-F]{12}"/>
</xs:restriction>
</xs:simpleType>
<xs:attribute name="FactoryType" type="xs:QName"/>
<xs:attribute name="Id" type="xs:ID"/>
<xs:attribute name="Ref" type="xs:IDREF"/>
</xs:schema>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:tns="http://schemas.datacontract.org/2004/07/NAV_MIO_Integration_WS.Entities" elementFormDefault="qualified" targetNamespace="http://schemas.datacontract.org/2004/07/NAV_MIO_Integration_WS.Entities">
<xs:complexType name="ArrayOfCreatePurchaseOrders">
<xs:sequence>
<xs:element minOccurs="0" maxOccurs="unbounded" name="CreatePurchaseOrders" nillable="true" type="tns:CreatePurchaseOrders"/>
</xs:sequence>
</xs:complexType>
<xs:element name="ArrayOfCreatePurchaseOrders" nillable="true" type="tns:ArrayOfCreatePurchaseOrders"/>
<xs:complexType name="CreatePurchaseOrders">
<xs:sequence>
<xs:element name="VendorNo" nillable="true" type="xs:string"/>
<xs:element name="OrderIntegrationNumber" nillable="true" type="xs:string"/>
<xs:element name="PurchaseLineList" nillable="true" type="tns:ArrayOfPurchaseOrderLine"/>
</xs:sequence>
</xs:complexType>
<xs:element name="CreatePurchaseOrders" nillable="true" type="tns:CreatePurchaseOrders"/>
<xs:complexType name="ArrayOfPurchaseOrderLine">
<xs:sequence>
<xs:element minOccurs="0" maxOccurs="unbounded" name="PurchaseOrderLine" nillable="true" type="tns:PurchaseOrderLine"/>
</xs:sequence>
</xs:complexType>
<xs:element name="ArrayOfPurchaseOrderLine" nillable="true" type="tns:ArrayOfPurchaseOrderLine"/>
<xs:complexType name="PurchaseOrderLine">
<xs:sequence>
<xs:element minOccurs="0" name="Description" nillable="true" type="xs:string"/>
<xs:element minOccurs="0" name="No" nillable="true" type="xs:string"/>
<xs:element minOccurs="0" name="Quantity" type="xs:decimal"/>
<xs:element minOccurs="0" name="ServiceCode" nillable="true" type="xs:string"/>
<xs:element minOccurs="0" name="Type" nillable="true" type="xs:string"/>
<xs:element minOccurs="0" name="UnitCost" type="xs:decimal"/>
</xs:sequence>
</xs:complexType>
<xs:element name="PurchaseOrderLine" nillable="true" type="tns:PurchaseOrderLine"/>
<xs:complexType name="ReturnWS">
<xs:sequence>
<xs:element minOccurs="0" name="Code" nillable="true" type="xs:string"/>
<xs:element minOccurs="0" name="Description" nillable="true" type="xs:string"/>
</xs:sequence>
</xs:complexType>
<xs:element name="ReturnWS" nillable="true" type="tns:ReturnWS"/>
</xs:schema>
</wsdl:types>
<wsdl:message name="IServiceIntegration_CreatePurchaseOrder_InputMessage">
<wsdl:part name="parameters" element="tns:CreatePurchaseOrder"/>
</wsdl:message>
<wsdl:message name="IServiceIntegration_CreatePurchaseOrder_OutputMessage">
<wsdl:part name="parameters" element="tns:CreatePurchaseOrderResponse"/>
</wsdl:message>
<wsdl:portType name="IServiceIntegration">
<wsdl:operation name="CreatePurchaseOrder">
<wsdl:input wsaw:Action="http://tempuri.org/IServiceIntegration/CreatePurchaseOrder" message="tns:IServiceIntegration_CreatePurchaseOrder_InputMessage"/>
<wsdl:output wsaw:Action="http://tempuri.org/IServiceIntegration/CreatePurchaseOrderResponse" message="tns:IServiceIntegration_CreatePurchaseOrder_OutputMessage"/>
</wsdl:operation>
</wsdl:portType>
<wsdl:binding name="BasicHttpBinding_IServiceIntegration" type="tns:IServiceIntegration">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http"/>
<wsdl:operation name="CreatePurchaseOrder">
<soap:operation soapAction="http://tempuri.org/IServiceIntegration/CreatePurchaseOrder" style="document"/>
<wsdl:input>
<soap:body use="literal"/>
</wsdl:input>
<wsdl:output>
<soap:body use="literal"/>
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
<wsdl:service name="Service1">
<wsdl:port name="BasicHttpBinding_IServiceIntegration" binding="tns:BasicHttpBinding_IServiceIntegration">
<soap:address location="http://192.168.2.6:81/ServiceIntegration.svc"/>
</wsdl:port>
</wsdl:service>
</wsdl:definitions>

o xml baixado não é xml, é xsd.

Não há segredos: o mesmo comando enviado no SOAPUI deve ser feito no access. Um xml é enviado e um xml é recebido. Conforme a tela que você me mandou do SOAPUI. Não há nada a ser feito no navegador. Apenas testado no SOAPUI e seguir o modelo que mostrei de como montar um xml para enviar e como ler o xml recebido. Simples. Sem usar o navegador.

Damasceno

Boa Tarde

Por acaso teria algum exemplo de como colocaria a codificação para envio dos campos nos arquivos que passei?
e a tratativa da resposta?

procuro na internet mas o conteudo para WS é muito pequeno.

Desde Ja obrigado

Na verdade o conteúdo de webservice é bem vasto na internet. Isso e a minha mensagem nº 2 e mensagem nº 10 são tudo que você precisa. Basta adaptar ao seu cenário.

Infelizmente você não encontrará um exemplo pronto. Não cometa esse erro que eu cometi durante muito tempo esperando quando precisei integrar meus aplicativos ao webservice do sistema de cartão sus e também de boletos da caixa. Minha sugestão para sua evolução é que explore e estude a interação e seja você o criador do conteúdo para que os demais possam estudar.

Pelo SOAPUI já vejo que o serviço está funcionando (que é o que seria mais difícil). Basta agora enviar o xml e recebê-lo de volta.

Nota: não pude ver todos os seus arquivos pois o serviço do seu webservice está rodando na sua rede local, e não na internet.

Caro Damasceno

peguei suas dicas fiz mais umas buscas e consegui fazer o consumo da WS, mas estou com duvida agora no seguinte, quando eu precisar autenticar onde entra o codigo. a senha será fixa.


desde já Obrigado

Você pode colocar a senha em uma tabela, também pode cripta-la. Pode recuperá-la com

Código:

DLookup("CampoSenha", "TabelaSenha")

pode alterá-la com

Código:

Currentdb.execute ("update TabelaSenha set CampoSenha = '" & ValorSenha & "';"

e por aí vai...

as possibilidades são muitas.

Algum avanço? Creio que a solicitação inicial foi resolvida. Se sim, feche o tópico com o resolvido.

Caro Damasceno

A xml e o consumo consegui fazer, me passaram o layout dos campos, tudo direitinho, sendo que tambem me passaram uma senha para imputar no cabeçalho da requisição, onde é esse cabeçalho?

segue o xml;

Código:

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/" xmlns:nav="http://schemas.datacontract.org/2004/07/NAV_MIO_Integration_WS.Entities">
  <soapenv:Header/>
  <soapenv:Body>
      <tem:CreatePurchaseOrder>
        <!--Optional:-->
        <tem:PurchaseOrderList>
            <!--Zero or more repetitions:-->
            <nav:CreatePurchaseOrders>
              <nav:DocumentType>?</nav:DocumentType>
              <nav:DocumentDate>?</nav:DocumentDate>
              <nav:OrderIntegrationNumber>?</nav:OrderIntegrationNumber>
              <nav:VendorNo>?</nav:VendorNo>
              <nav:DelegationCode>?</nav:DelegationCode>
              <nav:BranchCode>?</nav:BranchCode>
              <nav:TaxMatrix>?</nav:TaxMatrix>
              <nav:PurchaseLineList>
                  <!--Zero or more repetitions:-->
                  <nav:PurchaseOrderLine>
                    <!--Optional:-->
                    <nav:CostCenter>?</nav:CostCenter>
                    <!--Optional:-->
                    <nav:Description>?</nav:Description>
                    <!--Optional:-->
                    <nav:Description2>?</nav:Description2>
                    <!--Optional:-->
                    <nav:LineNumber>?</nav:LineNumber>
                    <!--Optional:-->
                    <nav:LocationCode>?</nav:LocationCode>
                    <!--Optional:-->
                    <nav:NCMCode>?</nav:NCMCode>
                    <!--Optional:-->
                    <nav:No>?</nav:No>
                    <!--Optional:-->
                    <nav:Quantity>?</nav:Quantity>
                    <!--Optional:-->
                    <nav:ServiceCode>?</nav:ServiceCode>
                    <!--Optional:-->
                    <nav:Type>?</nav:Type>
                    <!--Optional:-->
                    <nav:UnitCost>?</nav:UnitCost>
                  </nav:PurchaseOrderLine>
              </nav:PurchaseLineList>
            </nav:CreatePurchaseOrders>
        </tem:PurchaseOrderList>
      </tem:CreatePurchaseOrder>
  </soapenv:Body>
</soapenv:Envelope>

Cabeçalho diz respeito a tag Header

Código:

<soapenv:Header/>

Código:

<soapenv:Header>AREA_DO_CABEÇALHO</soapenv:Header>

sim. no app soapui eu coloco o token clicando em headers adicionando o value. mas  como ficaria em vba

Código:

"<soapenv:Header>Token=PASSWORD</soapenv:Header>"

ou

<soapenv:Header>PASSWORD</soapenv:Header>

Assim

Código:

<soapenv:Header>
      <wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
        <wsse:UsernameToken wsu:Id="Id-0001334008436683-000000002c4a1908-1" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
            <wsse:Username>USUARIO</wsse:Username>
            <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">SENHA</wsse:Password>
        </wsse:UsernameToken>
      </wsse:Security>
  </soapenv:Header>