กระทู้เก่าบอร์ด อ.Yeadram
1,541 6
URL.หัวข้อ /
URL
ส่งออกข้อมูลจากตาราง
รบกวนขอตัวอย่างการส่งออกข้อมูลจากตาราง ในรูปแบบ text file ดังนี้ ครับ
ตารางชื่อ TblDateID ซึ่งมีข้อมูล
ID_DATE
1256
785
471
50
888
โดยจำนวน record ในแต่ละวันไม่เท่ากัน
ความต้องการคือ ให้ส่งออกข้อมูลจากตารางให้เป็นดังนี้
(1256,785,471,50,888)
รบกวนอาจารย์แนะนำหรือยกตัวอย่างด้วยครับ
ขอบคุณมากครับ
ตารางชื่อ 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
2 @R11529
ขอบคุณมากครับอาจารย์ ผมลองทำดูแล้ว
โดยสร้าง form ขึ้นมาแล้ววางปุ่ม command จากนั้น copy คำสั่งที่อาจารย์ให้
เมื่อ click เกิดปัญหาดังนี้ครับ
ผมใช้ accesss2003
ต้องทำยังไงต่อครับ รบกวนอาจารย์ด้วยนะครับ
โดยสร้าง form ขึ้นมาแล้ววางปุ่ม command จากนั้น copy คำสั่งที่อาจารย์ให้
เมื่อ click เกิดปัญหาดังนี้ครับ
ผมใช้ accesss2003
ต้องทำยังไงต่อครับ รบกวนอาจารย์ด้วยนะครับ
3 @R11530
ยังไม่ได้ติด Microsoft Script Runtime เป็น Reference ครับ
4 @R11531
รบกวนอาจารย์อีกรอบ ครับ
การติดตั้ง Microsoft Script Runtime เป็น Reference ทำอย่างไรครับ
และถ้าอาจารย์มีเวลารบกวนขอความรู้ด้วยครับ
เจ้า Microsoft Script Runtime คืออะไรครับ
ขอขอบพระคุณอาจารย์ มากๆครับ ที่กรุณา
การติดตั้ง Microsoft Script Runtime เป็น Reference ทำอย่างไรครับ
และถ้าอาจารย์มีเวลารบกวนขอความรู้ด้วยครับ
เจ้า Microsoft Script Runtime คืออะไรครับ
ขอขอบพระคุณอาจารย์ มากๆครับ ที่กรุณา
5 @R11533
ไปที่หน้าต่างของการเขียน Code
Tools>>Reference>>มองหา Microsoft Script Runtime
ติดตั้งเลยครับ ไม่ได้ยุ่งยากอะไร เหตุที่มันทำงานไม่ได้ เพราะบางส่วนของ Code มันเป็น Script ก็เลยต้องติดตั้งให้ มันรูจักครับ
ส่วนมันคืออะไร ผมก็ไม่รู้แจ้ง ผมใช้เป็นอย่างเดียว ให้คนที่รู้กระจ่างมาตอบดีกว่า
Tools>>Reference>>มองหา Microsoft Script Runtime
ติดตั้งเลยครับ ไม่ได้ยุ่งยากอะไร เหตุที่มันทำงานไม่ได้ เพราะบางส่วนของ Code มันเป็น Script ก็เลยต้องติดตั้งให้ มันรูจักครับ
ส่วนมันคืออะไร ผมก็ไม่รู้แจ้ง ผมใช้เป็นอย่างเดียว ให้คนที่รู้กระจ่างมาตอบดีกว่า
6 @R11534
ใช้ได้แล้วครับ
ขอบคุณมากเลยที่กรุณา ครับ
ขอบคุณมากเลยที่กรุณา ครับ
Time: 0.3525s
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
ไม่รูถูกไหม ผมก็พวกลอกเขามาเขียนเหมือนกัน ลองปรับเอานะครับ