แสดงกระทู้

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 - Max

หน้า: [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("ชื่อคอมเป้าหมาย")
โพสต์นี้ได้รับคำขอบคุณจาก: Max

2
อัปเดตเพิ่มเติมนะคะ ตอนนี่สามารถอัปเดตข้อมูลได้แล้ว โดยการสร้าง temp table รองรับข้อมูลจาก oracle ก่อน แล้วจึงใช้คำสั่งอัปเดตค่ะ
โพสต์นี้ได้รับคำขอบคุณจาก: Max

3
ใส่ .BodyPart.Charset = "utf-8"   
ตามนี้ได้เลยครับ

https://stackoverflow.com/questions/43927471/send-up-arrow-%E2%86%91-character-to-iphone-with-sms-using-vba-and-a-cdo-mail-object link

ผมลองแล้วใช้ได้



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

4
สำหรับ Gmail ใช้อันนี้ได้ครับ
https://wellsr.com/vba/2020/excel/vba-send-email-with-gmail/ link
แล้วก็เปิด App password gmail นำพาสที่ได้มาใช้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Max

5
เสริมหน่อยนะครับ คือ Unix Timestamp ในการแปลง เวลาจะเป็นมาตรฐาน GMT ซึ่งหากต้องการให้แสดงเป็นเวลาไทยต้อง GMT+7:00 ขึ้นอยู่กับว่าข้อมูลบันทึกมาจากไหนถ้าบันทึกเวลาเป็นไทยอยู่แล้วก็ไม่ต้องแปลง แต่ส่วนใหญเวลาเขาแปลงแสดงในสาธารณะเขาจะใช้ GMT ถ้าอย่างนั้น หากเราอยากจะรู้ว่าเป็นเวลาไทยเท่าไหร่ก็ต้องบวกอีก 7 ชั่วโมงด้วยนะครับ ไม่งั้นเวลาจะไม่ตรง ต้องตรวจสอบความถูกต้องของข้อมูลด้วยนะครับ
https://www.epochconverter.com/ link
โพสต์นี้ได้รับคำขอบคุณจาก: Max

6
หาจนเจอครับ มันเป็นรูปแบบของ UnixTime ซึ่งเป็นรูปแบบวันที่ บน MySQL
จึงเอามาฝากใว้ให้เพื่อนสมาชิก เผื่อว่า ติดปัญหาเดียวกัน
vDate =  ([StartTime]/86400)+#01/01/1970#

แหล่งที่มา
https://codebeautify.org/unix-time-stamp-converter link
โพสต์นี้ได้รับคำขอบคุณจาก: Max

7
ห้อง Ms Access อื่นๆ / MS Access Runtime by อ.TTT
« เมื่อ: 02 ก.พ. 63 , 13:18:13 »
MS Access Runtime ของฟรีมีอยู่จริง? โดย อ.TTT (Access-Creator@youtube link)

ฝากกดไลท์ แชร์ และติดตามอาจารย์ในยูทูปด้วยนะครับ :love:
โพสต์นี้ได้รับคำขอบคุณจาก: Max

8
ขอเสนอ "Access VBA ติดต่อกับ API" ด้วยนะครับ

เรื่องนี้คงลำบากหน่อยครับ เพราะทาง Microsoft เค้าไม่สนับสนุน API สำหรับผลิตภัณฑ์ในชุด Office

สิ่งที่เกิดคือทำให้ Coding ด้านนี้ไม่เสถียรจนไว้ใจได้ มักจะมีปัญหาจุกจิกตลอด ยิ่งมีการเปลี่ยนเวอร์ชั่น สิ่งที่เคยสร้างไว้ด้วยการเชื่อมต่อที่เค้าบอกว่าไม่สนับสนุนก็อาจใช้งานไม่ได้เลย

ผมเจอมา 2-3 รอบแล้ว เคยมีแล้วก็หายไปซะงั้น เช่น BCM, Access Pages
โพสต์นี้ได้รับคำขอบคุณจาก: Max

9
ปัญหานี้เป็นเพราะการซบเซาจากธุรกิจหนังสือในช่วงไม่กี่ปีที่ผ่านมา

การเสนอต้นฉบับการใช้งานโปรแกรมระดับสูงต่างๆ มักจะโดนดันตกไป (จริงๆ ไม่ใช่ "มักจะ" หรอก แต่แค่อ้าปากก็ไม่เอาแล้ว)

ทั้งที่จริงๆ แล้วเรื่องของ VBA นี่น่ะยังมีคนสนใจใช้งานกันอีกมาก

ช่วงนี้ภาวะธุรกิจหนังสือเริ่มดีขึ้น

เร็วๆ นี้ผมว่าจะลองผลักดันหนังสือ VBA Access/Excel อีกซักครั้ง หวังว่าจะสำเร็จ
โพสต์นี้ได้รับคำขอบคุณจาก: Max

10
เรียนรู้เบื้องต้นให้เชี่ยวชาญก่อนครับ ส่วนขั้นสูงมาเรียนรู้ในเว็บนี้ครับ ผมรับรอง ตำราไหนๆก็ไม่เทียบเท่า แต่ละท่านที่แนะนำ เทพทั้งนั้น!!!! Confirm...
โพสต์นี้ได้รับคำขอบคุณจาก: Max

11
 ร้านซีเอ็ดมีนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Max

12
หาร้าน online ครับ ยังมีเยอะ
ผมยกตัวอย่าง chulabook.com ,se-ed.com
โพสต์นี้ได้รับคำขอบคุณจาก: Max

หน้า: [1]