กระทู้เก่าบอร์ด อ.Yeadram
1,272 4
URL.หัวข้อ /
URL
ต้องการวนลูปเวลาเป็นวินาทีครับ
ต้องการวนลูปเวลาเป็นวินาที ครับ เช่น
ผมมีตาราง A มี Field ชื่อ TimeStamp เก็บข้อมูลเวลา รูปแบบ คือ HHMMSS เช่น 171625 หมายถึง เวลา 17 นาฬิกา 16 นาที 25 วินาที ครับ ทีนี้ Field นี้ ผมต้องการให้ในแต่ละ Record เวลามันขึ้นเรียงต่อเนื่องไปเรื่อยๆ ทีละวินาที ครับ จนสิ้นสุดข้อมูลของตาราง A ต้องเขียน ฟังก์ชั่นยังไงครับ ขอบคุณครับ
ผมมีตาราง A มี Field ชื่อ TimeStamp เก็บข้อมูลเวลา รูปแบบ คือ HHMMSS เช่น 171625 หมายถึง เวลา 17 นาฬิกา 16 นาที 25 วินาที ครับ ทีนี้ Field นี้ ผมต้องการให้ในแต่ละ Record เวลามันขึ้นเรียงต่อเนื่องไปเรื่อยๆ ทีละวินาที ครับ จนสิ้นสุดข้อมูลของตาราง A ต้องเขียน ฟังก์ชั่นยังไงครับ ขอบคุณครับ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R08687
ขอบคุณครับ คุณ sjs ผมต้องการนำไปใช้กับ Query ครับ แต่เดี๋ยวผมนำไปประยุกต์ใช้ต่อเองครับ ขอบคุณครับ
3 @R08702
เรียนสอบถาม อ.และท่าน อื่นๆ เพิ่มเติม ครับ ว่าถ้าหากในกรณีที่ผมจะนำฟังก์ชั่นไปใช้ในคิวรี่ ครับ ในกรณีที่ ข้อมูลในแต่ละวันไม่เท่ากัน ผมต้องการนำคิวรี่ ไปสร้างเป็น Table ใหม่ โดยความต้องการคืออยากให้มันวนลูปเวลาปัจจุบันไปจนถึงข้อมูล Record สุดท้ายครับ ต้องทำอย่างไร เนื่องจาก ต.ย.ที่ให้ไว้มันไม่ได้เช็คว่ามี Record เท่าไรให้วนตามจำนวนนั้น นะครับ ขอบคุณทุกท่านครับ
4 @R08706
ผมไม่ได้โหลดตัวอย่าง ของ อ.sjs มาดูนะครับ
ผมมาอ่านคำถามที่ความเห็นสุดท้าย ผมพอจะช่วยแก้ปัญหาได้ในกรณี "เอาข้อมูลเก่าไปสร้างเป็นตารางใหม่" นะครับ
สมมติว่าคุณมีข้อมูลเก่าในตารางชื่อ table1 มี 3 ฟิลด์ ชื่อ f1, f2 และ TimeStamp
ผมจะนำข้อมูลไปสร้างเป็นตารางใหม่ชื่อ tbTemp นะครับ พร้อมกับเรียงเวลาให้ด้วย
ให้สร้างฟังก์ชั่นไว้เรียกใช้ผ่าน macro หรือ ปุ่มคำสั่งก็ได้ครับ
function InsertTime()
dim conn as new adodb.connection
dim rs as new adodb.recordset
dim nNow as date
set conn = currentproject.connection
conn.execute "Select table1.* into tbTemp from table1;"
nNow = now()
rs.open "tbTemp", conn, 3,1
do while not rs.eof
rs(2) = format(dateadd("s",rs.absoluteposition -1,nNow),"HHMMSS")
rs.update
rs.movenext
loop
rs.close
set rs=nothing
set conn = nothing
End function
ผลลัพธ์ที่ได้จะปรากฎ ในตาราง tbTemp นะครับ
เรื่องจะดูผ่านคิวรี่ ก็ไปสร้างเอาเองครับ เอา tbTemp นั่นแหละมาสร้างเป็นคิวรี่
ผมมาอ่านคำถามที่ความเห็นสุดท้าย ผมพอจะช่วยแก้ปัญหาได้ในกรณี "เอาข้อมูลเก่าไปสร้างเป็นตารางใหม่" นะครับ
สมมติว่าคุณมีข้อมูลเก่าในตารางชื่อ table1 มี 3 ฟิลด์ ชื่อ f1, f2 และ TimeStamp
ผมจะนำข้อมูลไปสร้างเป็นตารางใหม่ชื่อ tbTemp นะครับ พร้อมกับเรียงเวลาให้ด้วย
ให้สร้างฟังก์ชั่นไว้เรียกใช้ผ่าน macro หรือ ปุ่มคำสั่งก็ได้ครับ
function InsertTime()
dim conn as new adodb.connection
dim rs as new adodb.recordset
dim nNow as date
set conn = currentproject.connection
conn.execute "Select table1.* into tbTemp from table1;"
nNow = now()
rs.open "tbTemp", conn, 3,1
do while not rs.eof
rs(2) = format(dateadd("s",rs.absoluteposition -1,nNow),"HHMMSS")
rs.update
rs.movenext
loop
rs.close
set rs=nothing
set conn = nothing
End function
ผลลัพธ์ที่ได้จะปรากฎ ในตาราง tbTemp นะครับ
เรื่องจะดูผ่านคิวรี่ ก็ไปสร้างเอาเองครับ เอา tbTemp นั่นแหละมาสร้างเป็นคิวรี่
Time: 0.3552s
www.gmail.com
address : accboard@gmail.com
password : accgmail