แสดงกระทู้
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.
Option Compare Database
Sub SendMessageToLineNotify()
Dim oXML As Object
Dim strToken As String
Dim strMessage As String
Dim strDate As String
Dim URL As String
'Line Notify Token
strToken = "ใส่ Token line ตรงนี้ " 'สมัคได้ที่ https://notify-api.line.me/
URL = "https://notify-api.line.me/api/notify"
strDate = Format(Now, "DD/MM/YYYY - HH:MM:SS")
'Line Message
strMessage = "message=MS Access "
'Ajax
Set oXML = CreateObject("Microsoft.XMLHTTP")
With oXML
'Line Post
.Open "POST", URL, 0
'Header
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.SetRequestHeader "Authorization", "Bearer " & strToken
'Ajax
.send (strMessage)
'Line Check Print
Debug.Print oXML.responseText
End With
'Line
Set oXML = Nothing
End Sub
Private Sub Command0_Click()
Call SendMessageToLineNotify
End Sub
Dim xlApp As Object
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Open "C:\Temp\Example.xlsx"
Set DB = CurrentDb
Set RS = DB.OpenRecordset("select PMU2_StartDT from PMU2")
xlApp.ActiveSheet.Range("C3").CopyFromRecordset RS
RS.Close
เพิ่งรู้ว่าการศึกษา Access ผิดกฏ ICT
เพื่อการศึกษานะไม่ผิดหรอกครับ แต่พวกมาโฆษณาแถมแนบลิ้งเว็บพนันนี่สิ
รวมถึงเดี๋ยวจะทำหน้าเว็บเพิ่มเติม ผู้ใช้งานจะได้มั้นใจว่าข้อมูลไม่โดนแฮ็กไปง่ายๆด้วยนะครับ
