🚀 go-pugleaf

W dniu poniedziałek, 2 listopada 2015 10:36:47 UTC+1 użytkownik Xylo napisał:
> Witam !
> Korzystam w moim accessie 2003 / Win 7 z funkcji
> 
> Function SystemOnline(ByVal ComputerName As String)
>      ' This function returns True if the specified host could be pinged.
>      ' HostName can be a computer name or IP address.
>      ' The Win32_PingStatus class used in this function requires Windows XP or later.
>      ' Standard housekeeping
>     Dim colPingResults As Variant
>     Dim oPingResult As Variant
>     Dim strQuery As String
>      ' Define the WMI query
>     strQuery = "SELECT * FROM Win32_PingStatus WHERE Address = '" & ComputerName & "'"
>      ' Run the WMI query
>     Set colPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery(strQuery)
>      ' Translate the query results to either True or False
>     For Each oPingResult In colPingResults
>         If Not IsObject(oPingResult) Then
>             SystemOnline = False
>         ElseIf oPingResult.StatusCode = 0 Then
>             SystemOnline = True
>         Else
>             SystemOnline = False
>         End If
>     Next
> End Function
> 
> w ten sposób sprawdzam pingiem czy mam urządzenia w sieci.
> Niestety po około dwóch godzinach wywala mi błąd 2004
> 
> Brakuje pamięci aby wykonać operację, zamknij niepotrzebne aplikacje i spróbuj ponowić operację
> 
> Pracuje sam access, muszę z menadżera zadań zakończyć accessa i uruchomić od nowa.
Tak po amatorsku :) 
Access ma tendencje do "puchnięcia" w takich sytuacjach. 
Na Twoim miejscu po prostu co jakiś czas bym ją zamykał (harmonogram zadań) i defragmentował. U mnie pomaga. 

Wiem, że to nieprofesjonalne :(