แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - pondniizz

หน้า: [1]
1
จำได้ว่ามันมีหลายแบบมาก ทั้ง api wmi แต่ที่ผมมีในเครื่องเป็นแบบง่ายๆ ไม่ได้แสดงค่าอะไรแค่ให้ค่า True กับ False เท่านั้น แต่ฟังก์ชั่นนี้ตอบสนองเร็วใช้ได้ดีกว่าการ Ping แต่แม่นยำป่าว ต้องลองดูนะครับ

Function SystemOnline(ByVal ComputerName As String) As Boolean
    Dim colPingResults As Variant
    Dim oPingResult As Variant
    Dim strQuery As String
    strQuery = "SELECT * FROM Win32_PingStatus WHERE Address = '" & ComputerName & "'"
    Set colPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery(strQuery)
    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
-----------------------------------------------------
การใช้งาน
SystemOnline("192.168.1.3")
หรือ
SystemOnline("ชื่อคอมเป้าหมาย")
โพสต์นี้ได้รับคำขอบคุณจาก: pondniizz

2
ปกติเวลามี Error แล้วเค้าจะมี Error Number แจ้งมาด้วย
เราก็ใช้ประโยชน์จาก อันนี้มาจัดการได้ครับ

เช่นตัวอย่างนี้ เป็นการหารด้วย 0 ซึ่ง Error Number คือ 11




เราก็ใช้ประโยชน์จากตรงนี้มาเขียนโค้ดแบบนี้ครับ




แล้วเราจะได้การแสดงผลเป็นแบบนี้




โพสต์นี้ได้รับคำขอบคุณจาก: pondniizz

3
รบกวนสอบถามอาจารย์ทุกท่านคะ

เราสามารถใช้ Query Add ข้อมูลที่เป็นรูปแบบ Attachment (ที่สร้างแยกใน Form เปล่า)   แล้วใช้ Query
ในการเพิ่มAttachment ลงในตารางได้ไหมคะ โดยที่เราไม่ได้ดึงตารางนั้นๆขึ้นมาใช้

หรือมีวิธีหรือคำแนะนำอื่นๆไหมคะ  :question:

ขอบคุณคะ :love:

ข้อมูลที่เป็นรูปแบบ Attachment (ที่สร้างแยกใน Form เปล่า) มีหน้าตาฟอร์มที่ออกแบบไว้ไหมครับ
จะได้ลองคิดแนวทางให้ครับว่าคุณต้องการแบบไหน Attachment ที่จะเพิ่มเข้าไปคืออะไร 
แล้วจะเลือก Attachment อย่างไร เพื่อนำไปบันทึกลงในตาราง
ลงตาราง ชื่ออะไรครับ ลองอธิบายเพิ่มอีกนิดนะครับ

 :grin: :grin:

โพสต์นี้ได้รับคำขอบคุณจาก: pondniizz

หน้า: [1]