sql = " select sum(z.xxx), count(distinct(x.yyy)) "
sql = sql& " from mytable "
sql = sql & " WHERE xxx like ('"&datetime&"%')"
sql = sql& " and zzzz = 'Haralooya' "
sql = sql& " and jost in ('Jost','Sara') "
sql= sql& " and Jost like ('%@%') and x.yyy <= 28800 "
sql= sql & " group by HOUR(xxxx) "
sql= sql& " order by HOUR(xxx) asc ; "
Set Rst = SERVER.CreateObject("ADODB.Recordset")
Rst.Open sql_tpbs,1,3
If Not Rst.Eof Then
ArrDatat = Rst.Getrows()
End if
set rst = nothing
เอามาหมุนรอบแรก 24 ครั้ง
for out = 1 to 24
ภายใน หมุน ตามที่ข้อมูลจริง
for in = 1 to ubound(arraydata,2) ' -1 +1
เครื่อมมือที่มีใช้ มี 2 ตัว คือ 1. arrData(0,in) ชั่วโมงทีคิวรี่ออกมา 2 out จำนวนรอบที่หมุน
If out <> arrData(0,in) Then
อะไรก้ว่าไป
End If
Load balance : Server 05
