Skip to main content

AccessTr.neT


Sorgu İçerisindeki Verileri Tek Tek Kontrol Etme

Sorgu İçerisindeki Verileri Tek Tek Kontrol Etme

Çözüldü #1
Merhaba herkese kolay gelsin

Bir tablom var.İçerisinde bazı bilgisayarların IP numarası var bazılarının da yok.Bir sorgu hazırladım IP numarası olan bilgisayarlar sorgulanıyor.
Sorum şu; Sorgu sonucunda diyelim ki 20 tane IP numarası olan bilgisayar filtrelendi. Ben istiyorum ki bu 20 Ip numarasına sırayla ping attırıp eğer ping atmıyorsa arıza kaydı açtırayım. Sorgudaki Ip leri tek tek nasıl alıp IP numarası sorgulama modulune çekebilirim?

Cevaplarınız şimdiden teşekkür ederim.
Cevapla
#2
'Test stub
Sub TestPing()
Dim strComputer As String
strComputer = "<target computer>"
If Not SystemOnline(strComputer) Then
MsgBox "This computer is currently unreachable: " & strComputer, vbOKOnly, "Computer Status"
'....your logic
Else
'...your logic
MsgBox "This computer is Online!", vbOKOnly, "Computer Status"
End If
End Sub 'TestPing



'Determine if device is online
Function SystemOnline(ByVal ComputerName As String)
Dim oShell, oExec As Variant
Dim strText, strCmd As String
strText = ""
strCmd = "ping -n 3 -w 1000 " & ComputerName
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)
Do While Not oExec.StdOut.AtEndOfStream
strText = oExec.StdOut.ReadLine()
If InStr(strText, "Reply") > 0 Then
SystemOnline = True
Exit Do
End If
Loop
End Function
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
Yurtdışı forumlarda bu kodlar ile yapmışlar.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#3
merhaba 
ufak bir ip ping test hazırladım kodlar dış kaynaklı düzenleme yapıldı.
kendi isteginize göre uyarlarsınız.
tablodaki ıp numaralarını sıra ile test etmektedir.
ve sonuçları renkli olarak vermektedir.    bağlı= yeşil   bağlı değil=kırmız


inceleyiniz.
.rar ping test.rar (Dosya Boyutu: 33,7 KB | İndirme Sayısı: 11)
Universal Form Tasarımı. devamlı güncelleniyor.
SQL TO Vba Convertör.
Cevapla
#4
Sayın Alpeki99 ping  kodları var zaten elimde söylemek istediğim bu değildi
Cevapla
#5
Sayın A.Kadir gönderdiğiniz örnek tam da aradığım gibi çok teşekkür ederim
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da