QUAL BIBLIOTECA FALTA DECLARAR ?
No código abaixo falta eu declarar o que ? Será que alguma biblioteca eu não declarei ? Pergunto isso porque em algumas linhas me aparecem indicações de erro em tempo de projeto, os quais me indicam falta de declarar algo.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim enderecoUrl As String
Dim arquivoXml As String
If txtCodigoProduto.Text = [Ô][Ô] Or Not IsNumeric(txtCodigoProduto.Text) Then
MsgBox([Ô]Código do Produto Inválido ! [Ô], vbCritical, [Ô]Código do Produto[Ô])
Exit Sub
End If
enderecoUrl = [Ô]http://macorati/loja/detalhe.asp?id=[Ô] & Val(txtCodigoProduto.Text)
With AxInet1
.AccessType = icDirect
.Proxy = [Ô][Ô]
.Protocol = icHTTP
arquivoXml = .OpenURL(enderecoUrl)
End With
Call processaArquivoXml(arquivoXml)
End Sub
Private Sub processaArquivoXml(ByVal arqxml As String)
[ô]--------------------------------------
[ô] define as variáveis usadas no programa
[ô]---------------------------------------
Dim oDom As DOMDocument
Dim Numerocampos As Integer
Dim icontador As Integer
Dim NomeCampos As String
[ô]--------------------------------
[ô] instancia o objeto DOM
[ô]--------------------------------
oDom = New DOMDocument
With oDom
.loadXML(arqxml)
[ô]--------------------------------------------------------------
[ô] verifica se os dados foram recebidos e o arquivo XML carregado
[ô]--------------------------------------------------------------
If .parseError.errorCode <> 0 Then
MsgBox([Ô]Não foi possÃvel acessar os dados ![Ô] & vbrlf & _
.parseError.errorCode & vbCrLf & _
[Ô]linha : [Ô] & .parseError.Line & vbCrLf & _
[Ô]descrição : [Ô] & .parseError.srcText, vbCritical, [Ô]Erro no acesso aos dados [Ô])
oDom = Nothing
Exit Sub
Else
Numerocampos = .childNodes(0).childNodes.length
If Numerocampos = 1 Then
Dim oTexto As Object
For Each oTexto In Me.Controls
If TypeOf oTexto Is TextBox Then
oTexto.Text = [Ô][Ô]
End If
Next oTexto
MsgBox([Ô] Nenhum produto foi encontrado ![Ô], vbCritical, [Ô] Produtos [Ô])
oDom = Nothing
Exit Sub
End If
For icontador = 0 To Numerocampos - 1
Me([Ô]txt[Ô] & .childNodes(0).childNodes(icontador).baseName).Text = .childNodes(0)._
childNodes(icontador).Text()
Next
End If
End With
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim enderecoUrl As String
Dim arquivoXml As String
If txtCodigoProduto.Text = [Ô][Ô] Or Not IsNumeric(txtCodigoProduto.Text) Then
MsgBox([Ô]Código do Produto Inválido ! [Ô], vbCritical, [Ô]Código do Produto[Ô])
Exit Sub
End If
enderecoUrl = [Ô]http://macorati/loja/detalhe.asp?id=[Ô] & Val(txtCodigoProduto.Text)
With AxInet1
.AccessType = icDirect
.Proxy = [Ô][Ô]
.Protocol = icHTTP
arquivoXml = .OpenURL(enderecoUrl)
End With
Call processaArquivoXml(arquivoXml)
End Sub
Private Sub processaArquivoXml(ByVal arqxml As String)
[ô]--------------------------------------
[ô] define as variáveis usadas no programa
[ô]---------------------------------------
Dim oDom As DOMDocument
Dim Numerocampos As Integer
Dim icontador As Integer
Dim NomeCampos As String
[ô]--------------------------------
[ô] instancia o objeto DOM
[ô]--------------------------------
oDom = New DOMDocument
With oDom
.loadXML(arqxml)
[ô]--------------------------------------------------------------
[ô] verifica se os dados foram recebidos e o arquivo XML carregado
[ô]--------------------------------------------------------------
If .parseError.errorCode <> 0 Then
MsgBox([Ô]Não foi possÃvel acessar os dados ![Ô] & vbrlf & _
.parseError.errorCode & vbCrLf & _
[Ô]linha : [Ô] & .parseError.Line & vbCrLf & _
[Ô]descrição : [Ô] & .parseError.srcText, vbCritical, [Ô]Erro no acesso aos dados [Ô])
oDom = Nothing
Exit Sub
Else
Numerocampos = .childNodes(0).childNodes.length
If Numerocampos = 1 Then
Dim oTexto As Object
For Each oTexto In Me.Controls
If TypeOf oTexto Is TextBox Then
oTexto.Text = [Ô][Ô]
End If
Next oTexto
MsgBox([Ô] Nenhum produto foi encontrado ![Ô], vbCritical, [Ô] Produtos [Ô])
oDom = Nothing
Exit Sub
End If
For icontador = 0 To Numerocampos - 1
Me([Ô]txt[Ô] & .childNodes(0).childNodes(icontador).baseName).Text = .childNodes(0)._
childNodes(icontador).Text()
Next
End If
End With
End Sub
End Class
Em quais linhas aparece o [Ô]erro[Ô]?
.AccessType = icDirect : Name icDirect is not declared
.Protocol = icHTTP : Name icHTTP is not declared
arquivoXml = .OpenURL(enderecoUrl) : Overload resolution failed because no accessible [ô]Open URL[ô] accepts this number of arguments.
Dim oDom As DOMDocument : Type [ô]DOMdocument[ô] is not defined
MsgBox([Ô]Não foi possÃvel acessar os dados ![Ô] & vbrlf & : Name vbrlf is not declared
.Protocol = icHTTP : Name icHTTP is not declared
arquivoXml = .OpenURL(enderecoUrl) : Overload resolution failed because no accessible [ô]Open URL[ô] accepts this number of arguments.
Dim oDom As DOMDocument : Type [ô]DOMdocument[ô] is not defined
MsgBox([Ô]Não foi possÃvel acessar os dados ![Ô] & vbrlf & : Name vbrlf is not declared
Deixa ver se adivinho, você achou esse código em algum lugar e copiou pro seu, certo?
Certo Mano mas nem sei se é realmente o que eu preciso.
O que realmente preciso é de um código que eu leia informações da bolsa de valores na internet conforme o site se atualiza, e passe a informação para um form.
O que realmente preciso é de um código que eu leia informações da bolsa de valores na internet conforme o site se atualiza, e passe a informação para um form.
é que a coisa não deve ser dessa maneira. Uma página é só uma maneira de exibir dados. O que você deve procurar é um webservice que forneça essas informações.
Tópico encerrado , respostas não são mais permitidas