ส่งออกข้อมูลจากตาราง
กระทู้เก่าบอร์ด อ.Yeadram

 1,541   6
URL.หัวข้อ / URL
ส่งออกข้อมูลจากตาราง

รบกวนขอตัวอย่างการส่งออกข้อมูลจากตาราง ในรูปแบบ text file ดังนี้ ครับ
ตารางชื่อ TblDateID ซึ่งมีข้อมูล
ID_DATE
1256
785
471
50
888
โดยจำนวน record ในแต่ละวันไม่เท่ากัน
ความต้องการคือ ให้ส่งออกข้อมูลจากตารางให้เป็นดังนี้
(1256,785,471,50,888)
รบกวนอาจารย์แนะนำหรือยกตัวอย่างด้วยครับ
ขอบคุณมากครับ


6 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R11528
dim rs as dao.recordset
dim textout
dim NotpadDoc
dim Myfso As New FileSystemObject

set rs =currentdb.openrecordset("TblDateID ")
do until rs.eof
textout=textout & "," & rs("id_date")
rs.movenext
loop


Set NotpadDoc = Myfso.CreateTextFile("C:" & "\FileOut.txt", True)
NotpadDoc.Write textout
NotpadDoc.Close
Set Myfso = Nothing


rs.close
set rs=nothing

ไม่รูถูกไหม ผมก็พวกลอกเขามาเขียนเหมือนกัน ลองปรับเอานะครับ
2 @R11529
ขอบคุณมากครับอาจารย์ ผมลองทำดูแล้ว
โดยสร้าง form ขึ้นมาแล้ววางปุ่ม command จากนั้น copy คำสั่งที่อาจารย์ให้
เมื่อ click เกิดปัญหาดังนี้ครับ


ผมใช้ accesss2003
ต้องทำยังไงต่อครับ รบกวนอาจารย์ด้วยนะครับ
3 @R11530
ยังไม่ได้ติด Microsoft Script Runtime เป็น Reference ครับ
4 @R11531
รบกวนอาจารย์อีกรอบ ครับ
การติดตั้ง Microsoft Script Runtime เป็น Reference ทำอย่างไรครับ
และถ้าอาจารย์มีเวลารบกวนขอความรู้ด้วยครับ
เจ้า Microsoft Script Runtime คืออะไรครับ
ขอขอบพระคุณอาจารย์ มากๆครับ ที่กรุณา
5 @R11533
ไปที่หน้าต่างของการเขียน Code
Tools>>Reference>>มองหา Microsoft Script Runtime
ติดตั้งเลยครับ ไม่ได้ยุ่งยากอะไร เหตุที่มันทำงานไม่ได้ เพราะบางส่วนของ Code มันเป็น Script ก็เลยต้องติดตั้งให้ มันรูจักครับ
ส่วนมันคืออะไร ผมก็ไม่รู้แจ้ง ผมใช้เป็นอย่างเดียว ให้คนที่รู้กระจ่างมาตอบดีกว่า

6 @R11534
ใช้ได้แล้วครับ
ขอบคุณมากเลยที่กรุณา ครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3525s