+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 7 su 7

Discussione: Verificare la connessione ad internet

  1. #1
    L'avatar di nman
    nman non è in linea Scribacchino
    Luogo
    Milano
    Post
    1,625

    Verificare la connessione ad internet

    Esiste con VBA un modo semplice per verificare se un PC è connesso ad internet ?


    Grazie

  2. #2
    L'avatar di @Alex
    @Alex non è in linea Very Important Person
    Post
    15,767
    @Alex
    Il CROSSPOST è VIETATO
    Mirror al vecchio sito WEB(salvare i Demo riassegnando l'estensione (.Zip/.Rar/.Exe in base all'icona...):
    http://mirror.masterdrive.it/alessandrobaraldi/
    Leggi il
    Regolamento del Forum e nel comprenderne la filosofia rispettalo.

  3. #3
    L'avatar di willy55
    willy55 non è in linea Scribacchino
    Post
    660

  4. #4
    L'avatar di nman
    nman non è in linea Scribacchino
    Luogo
    Milano
    Post
    1,625
    Ringrazio per le risposte, Ci ho studiato su parecchio e mi sono state utili ( a livello generale )

    Nel dettaglio pero avevo posto la domanda in modo decisamente affrettato e incompleto perche
    - oltre a verificare la connessione ad internet di un PC
    - dovevo verificare anche la connessione ad internet di un Server remoto
    - e verificare anche che in quel Server sia disponibile il servizio SQLServer
    ------ talvolta ( raramente ) viene arrestato


    pertanto ho lanciato brutalmente un test su una tabella del Server in questo modo:

    codice:
    Public Function VeCo2() As Boolean
    ' verifico la connessione da un Client verso un DB Remoto
    ' aprendo un recorset per testare il DB
    On Error GoTo GesErr
    
    Dim Dbx As DAO.Database
    Set Dbx = DBEngine(0)(0)
    
    Dim Rsx As DAO.Recordset
    Set Rsx = Dbx.OpenRecordset("SELECT TOP 1 TN.TNId FROM TN;", dbReadOnly)
    ' Dove TN è una tabella locale qualunque connessa al DB remoto
        VeCo2 = True
    
    Uscux:
        On Error Resume Next
        Rsx.Close
        Dbx.Close
        Set Rsx = Nothing
        Set Dbx = Nothing
    
    MsgBox VeCo2
    
    Exit Function
    
    GesErr:
        VeCo2 = False
        Resume Uscux
    
    End Function

    Sistemi migliori ??

    Grazie

  5. #5
    L'avatar di willy55
    willy55 non è in linea Scribacchino
    Post
    660
    In generale per verificare la connessione, ad internet, di un Server remoto (prima di agire sull'accesso ad un recordset) si può valutare se il server sia accessibile attraverso il suo percorso di rete.
    Per quanto riguarda la verifica di un servizio SQLServer si dovrà, su questo, avviare un processo che ne fornisca le informazioni ad un computer remoto che si connetta da un dominio diverso e fornisca credenziali, nome utente e password.
    Per ottenere ciò si può impiegare una serie di elementi, legati all'ambiente che si connette o di quello del server, che deve fornire il servizio (API, VBA, VBScript, Remote Data Service ecc).
    I seguenti link forniscono una panoramica di vari aspetti della problematica:
    VBnet™ Visual Basic Developers Resource Centre
    API: Enumerating Local and Network Drives
    MS Access: checking network paths without freezing your application | Cypris' lookout
    Connecting to WMI on a Remote Computer (Windows)
    Using VBA to Execute a Remote Process | Coding Zen
    How to Check using if SQL Server is running on a remote computer - dBforums
    sql server - Running a simple VBA script to test a connection - Stack Overflow
    FreeVBCode code snippet: Start, Stop, or Pause the SQL Server Service
    VBScript using WMI to find out SQL Server version - Stack Overflow
    MsSqlServer.vbs - Microsoft SQL Server monitoring using ActiveXperts Network Monitor
    Willy

  6. #6
    L'avatar di nman
    nman non è in linea Scribacchino
    Luogo
    Milano
    Post
    1,625
    In effetti è vero, mi sa che il "mio" test è troppo invasivo .......
    ..... mi dovrò mettere di buzzo buono a "studiare" i link proposti


    Grazie Willy

    .

  7. #7
    L'avatar di @Alex
    @Alex non è in linea Very Important Person
    Post
    15,767
    I passi sono diversi da fare...
    1° Verifica Connessione Internet, hai tutti gli elementi
    2° Verifica raggiungibilità del SERVER, basta un PING all'indirizzo IP del Server
    3° VErifica raggiungibilità del Servizio... SQLSERVER se non ricordo male ha delle SP per la verifica...
    @Alex
    Il CROSSPOST è VIETATO
    Mirror al vecchio sito WEB(salvare i Demo riassegnando l'estensione (.Zip/.Rar/.Exe in base all'icona...):
    http://mirror.masterdrive.it/alessandrobaraldi/
    Leggi il
    Regolamento del Forum e nel comprenderne la filosofia rispettalo.

+ Rispondi al Thread

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi