** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - Access y la Red: Yahoo Queries
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAccess y la Red: Yahoo Queries

 Responder Responder
Autor
Mensaje
genoma111 Ver desplegable
Administrador
Administrador
Avatar

Unido: 28/Marzo/2011
Localización: ...
Estado: Sin conexión
Puntos: 3248
Enlace directo a este mensaje Tema: Access y la Red: Yahoo Queries
    Enviado: 20/Agosto/2013 a las 23:06
Como los ejemplos de Yahoo queries por algún motivo no funcionan cuando se utilizan parámetros, dejo este código que funciona para interactuar con ellas:
 

Private Sub Command50_Click()
   Dim xml     As Object
   Dim strWeb  As String
   Dim str     As String
 
   strWeb = "http://query.yahooapis.com/v1/public/yql?q=select+*+from+weather.forecast+where+location=94025"
 
   Set xml = CreateObject("MSXML2.XMLHTTP")
  
       With xml
           .Open "GET", strWeb, False
           .Send
           str = .responseText
       End With
 
   MsgBox str
   Set xml = Nothing
End Sub

Esta es la sintaxis que pone yahoo, y no hacía más que arrojarme un error 401 de autorización:
Cita
http://query.yahooapis.com/v1/yql?q=select+*+from+weather.forecast+where+location%3D%40zip

http://developer.yahoo.com/yql/guide/yql_url.html
 


Editado por genoma111 - 20/Agosto/2013 a las 23:06
"To VBA or not to VBA... that's the question" DFP
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable