none
Ler xml com vb6 RRS feed

  • Pergunta

  • Pessoal, temos um webservice que faz uma deterninada validação em um arquivo xml, este webservice é chamado por um programa vb6 que deve receber como resposta uma string contendo o xml.

    O webservice está funcionando bem, e devolve a string certa, o problema que estou tendo é quando o vb6 vai ler esta string, está dando: Run-time error '-2147467259(80004005)'  O conjunto de registros não pode ser criado. O XML de origem está icompleto ou é inválido.

    segue o código vb6 do sistema

    Private Function Montar_Recordset(Lxml As String) As Recordset
    '
    Lxml é o arquivo xml lido e válido no webservice

        Dim stmNota As ADODB.Stream
        Dim rsNota As ADODB.Recordset
       
        Set stmNota = New ADODB.Stream
        Set rsNota = New ADODB.Recordset
       
        stmNota.Open
        stmNota.WriteText Lxml
        stmNota.Position = 0
       
        rsNota.Open stmNota
       
        Set Montar_Recordset = rsNota
           
        stmNota.Close
        Set stmNota = Nothing
       
    End Function

    segunda-feira, 12 de janeiro de 2009 11:57

Todas as Respostas

  • Lissandra,

     

    Eu só consegui gerar um recordset para vb6 através de uma dll, feita em c# acessando o webservice e convertendo o xml no formato para o recordset.

     

    Nesse link que consegui gerar o xml.

    http://support.microsoft.com/kb/316337/en-us

     

    Agora nos testes que fizemos aqui na empresa quando preciso retornar uma simples string eu consigo instanciar o webservice para uma string no vb6. Nem preciso ler o xml.

     

     

    Espero que ajude

     

     

    terça-feira, 13 de janeiro de 2009 14:13