Newsgroup: it.comp.appl.access
Titolo: Catturare orario da un server web

Un po' di tempo fa mi pare di avere visto una routine per poter catturare 
l'ora di un server fatto apposta per questo scopo. Non riesco più a 
trovarla. Qualcuno mi può aiutare ? Da considerare che io non ho un server 
che fa questo, quindi mi dovrei appoggiare ad un server free... ma quale può 
essere questo server ?
Grazie
Antonio

 ha scritto nel messaggio 
news:4963aab9$0$736$5fc...@news.tiscali.it...

l'ho pubblicata su accessgroup tempo fa... ;-|
http://www.accessgroup.it/HomeArgomenti.asp?ID=120&Oggetto2=Recuperare%20DATI%20da%20SERVER%20REMOTO
-- 
---
Ciao
Pablitomf
FORZA NAPOLI - - - SEMPRE!
Tifosi Napoletani, gente fantastica
http://it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
 

 ha scritto nel messaggio 
news:gk0i7d$1ob$1...@tdi.cu.mi.it...

Sapevo di poter contare su un seguace di Maradona :-))))))))
Ti ringrazio tanto.
Ora devo uscire, ma nel pomeriggio inserirò la routine nel mio programma. Mi 
chiedo solo se posso contare che per i mesi futuri (magari anni) quella 
pagina del server che hai indicato continui ad esistere senza avere il 
problema di tornare su tutte le installazioni per ritoccare la release 
divulgata.
Grazie ancora
Antonio

 - Mostra testo citato -
Ciao, ottimo il sistema per recuperare un solo valore presente in una
pagina asp.
Ma avendo una pagina asp che è una tabella contenente valori, come
applicare il metodo?
Es: tabella contenuta in pagina .asp
Nome Cognome
MARIO ROSSI
ANTONIO VERDI
EMMA BONINO
Questo il codice dell'esempio:
Private Sub Form_Open(Cancel As Integer)
Dim oHttp As Object
Dim txtRequestString As String
Dim mia_data As Date
mia_data = "22/06/07"
Dim web_data As Date
Set oHttp = CreateObject("MSXML2.XMLHTTP")
txtRequestString = "
http://www.accessgroup.it/Data.asp
"
oHttp.Open "GET", txtRequestString, False
oHttp.send
web_data = oHttp.responsetext
Me.Testo0 = mia_data
Me.Testo2 = web_data
If CVDate(mia_data) < CVDate(web_data) Then
    MsgBox "LA VERSIONE TRIAL E' SCADUTA "
Else: End If
End Sub
Grazie

 ha scritto nel messaggio 
news:f52b42ee-d89a-4bdb...@k9g2000vbl.googlegroups.com...





Grazie
[risposta]
Con quel metodo non credo sia possibile se non cercando il testo con la 
Instr(),ma dovresti sapere esattamente cosa cerchi (es. il testo MARIO).
Se utilizzi il borwser e OLE puoi fare:
'---
'--> 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://www.accessgroup.it/Data.asp
"
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 '<-- testo contenuto nella cella
    Next oTblCll
  Next oTblRw
Next oTbl
Set oTbl = Nothing
Set oTblRw = Nothing
Set oTblCll = Nothing
Set oDoc = Nothing
Exit Sub
LeggiTabellaHTML_err:
    Set oTbl = Nothing
    Set oTblRw = Nothing
    Set oTblCll = Nothing
    Set oDoc = Nothing
    MsgBox "Errore: " & Application.AccessError(Err.Number) & " " & 
Err.Number
'---
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
-- 
Ciao
Geppo 

 Geppo
Ciao.
-- 
Sergio MAZZA