Newsgroup: it.comp.appl.access
Titolo: Leggere da codice una pagina Web

Vorre fare la 'open' di una pagina web e leggerne il sorgente, tutto da 
codice Access.
E se volessi, sempre da codice far partire un download http?  
(attualmente creo una pagina locale e faccio partire il browser di 
default invocandola)
In qualche modo dovrebbe essere possibile, che ne pensate?

Paolo Holzl ha scritto:

oggetto webbrowser o oggetto internetexplorer in libreria internet.controls
c'e' tutto quello che ti serve
--
ac

io uso questo codice alla pressione di un pulsante per leggere un file
txt su web credo sia uguale per un file html
nella tabella T_Versione ho 3 campi testo
id
Versione (Num versione attuale MDB)
PercorsoFonte (Link http del file txt)
'--------------
Private Sub Comando2_Click()
On Error GoTo Err_Comando2_Click
Dim objXmlHttp As Object
Dim VersioneAPP, VersioneAttualeData, VersioneAttuale, WebSource As
String
VersioneAPP = Left(Trim(DLookup("[Versione]", "T_Versione", "[ID_vers]
= 1")), 5)
WebSource = Trim(DLookup("[PercorsoFonte]", "T_Versione", "[ID_vers] =
1"))
    Set objXmlHttp = CreateObject("Msxml2.ServerXMLHTTP")
        objXmlHttp.Open "GET", WebSource, False
        objXmlHttp.Send
        VersioneAttuale = Left(Trim(objXmlHttp.ResponseText), 5)
        VersioneAttualeData = Right(Trim(objXmlHttp.ResponseText), 12)
        If VersioneAPP = VersioneAttuale Then
        MsgBox "Hai la versione più recente dell'applicativo" & vbCrLf
& vbCrLf & _
        "La tua versione è la " & VersioneAPP
        Exit Sub
        Else
        MsgBox "ATTENZIONE: C'è un nuovo aggiornamento" & vbCrLf &
vbCrLf & _
        "Nuova versione " & VersioneAttuale & " del " &
VersioneAttualeData & vbCrLf & _
        "La tua versione è la " & VersioneAPP
        End If
    Set objXmlHttp = Nothing
Exit_Comando2_Click:
Exit Sub
Err_Comando2_Click:
    MsgBox Err.Description & vbCrLf & "E' probabile che la connessione
dal/al server sia disattiva."
    Resume Exit_Comando2_Click
End Sub
'--------------
Per il download potresti usare FTP qui c'è un bell'esempio di giorgio
rancati
http://discolife.netsons.org/access/FTPget-put.zip

 In qualche modo dovrebbe essere possibile, che ne pensate?
Per il download non ti basta utilizzare  Application.FollowHyperlink "Path
file http"?

 ha scritto nel messaggio 
news:vh5yk.15$Lu1...@nntpserver.swip.net...

Ciao Paolo.
Questo esempio legge il contenuto di ogni tabella:
'---
'--> Microsoft Internet Controls
'--> Microsoft HTML Object Library
'On Error GoTo LeggiTabellaHTML_err
Dim oBrws As New SHDocVw.InternetExplorer
Dim oDoc As MSHTML.IHTMLDocument
Dim oTbl As Object 'MSHTML.IHTMLTable
Dim oTblRw As Object 'MSHTML.IHTMLTableRow
Dim oTblCll As Object 'MSHTML.IHTMLTableCell
oBrws.Navigate2 "
http://tuaURL/tabella.htm
"
Do
    If oBrws.readyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
    DoEvents
Loop
Set oDoc = oBrws.Document
For Each oTbl In oDoc.getElementsByTagName("TABLE")
'--> per avere il numero delle righe della tabella: objTabella.rows.length
  For Each oTblRw In oTbl.Rows
    a = 0
    For Each oTblCll In oTblRw.Cells
      Debug.Print oTblCll.innerText
      a = a + 1
    Next oTblCll
  Next oTblRw
Next oTbl
Set oTbl = Nothing
Set oTblRw = Nothing
Set oTblCll = Nothing
Set oDoc = Nothing
Exit Sub
LeggiTabellaHTML_err:
    DoCmd.SetWarnings True
    Set oTbl = Nothing
    Set oTblRw = Nothing
    Set oTblCll = Nothing
    Set oDoc = Nothing
    MsgBox "Errore: " & Application.AccessError(Err.Number) & vbCrLf & 
"Riga: " & Erl & vbCrLf & "Numero: " & Err.Number
End Sub
'---
Ciao.
-- 
Sergio MAZZA 

 txt su web credo sia uguale per un file html
...
Assolutamente perfetto, proprio quello che mi serviva, oltretutto dovevo 
fare proprio la stessa cosa ovvero rilevare da una pagina Web la presenza 
di una nuova versione.