สอบถามการ export โดยให้มีเครื่องหมายคั่นระหว่างข้อมูล ครับ

[taeclubz]

ผมอยากทราบวิธีการ export โดยอยากให้มีตัวลูกน้ำคั่นระหว่างข้อมูลครับ
อันนี้คือตัวอย่างข้อมูลที่จะใช้ครับ โดยอยากให้ข้อมูลที่ export ออกมาเป็นลักษณะนี้ครับ
2000319077,7011696002,7011792028,7012056145 ........ แบบนี้จนจบบรรทัดสุดท้ายของข้อมูลใน record ครับ รบกวนผู้รู้ช่วยหน่อยครับ วิธีไหนก็ได้ครับ ขอบพระคุณมากๆเลยครับ ผมมือใหม่ครับ

[สันติสุข]

ต้องใช้การเขียนโค้ดเพื่ออ่านเรคอร์ดจากคำสั่ง SQL แล้วนำค่าของฟิลด์ที่ต้องการ ไปต่อๆกันให้ครบทุกเรคอร์ด เก็บลงตัวแปร แล้วจะเอาตัวแปรไปแสดงบนหน้าฟอร์ม หรือไปเขียนลงเท็กซ์ไฟล์ก็แล้วแต่ต้องการ

ตย.โค้ด

Dim RS As DAO.Recordset ' ชุดของเรคอร์ดที่อ่านได้
Dim SQL As String
Dim S As String  ' เก็บผลลัพธ์

' สร้าง SQL
SQL = "select ชื่อฟิลด์ as F from ชื่อเทเบิลหรือคิวรี่ where เงื่อนไข order by ฟิลด์ที่ใช้เรียงลำดับข้อมูล"

' เปิดชุดเรคอร์ดที่ได้จาก SQL
Set RS = CurrentDB.OpenRecordset(SQL)

' ทำจนกว่าจะอ่านเรคอร์ดไม่ได้แล้ว
Do Until RS.EOF

     If S = "" Then
          S = RS!F
     Else
          S = S & "," & RS!F  ' ต่อเท็กซ์ในตัวแปรด้วยเครื่องหมาย "," ถ้าก่อนหน้านี้ ตัวแปรมีค่าอยู่ก่อนแล้ว
     End If

     ' อ่านเรคอร์ดต่อไป
     RS.MoveNext

' วนลูปต่อไป
Loop

' ปิดชุดเรคอร์ด
RS.Close

' ต่อจากนี้ก็เอาตัวแปร S ไปใช้ครับ

[taeclubz]

ต้องใช้การเขียนโค้ดเพื่ออ่านเรคอร์ดจากคำสั่ง SQL แล้วนำค่าของฟิลด์ที่ต้องการ ไปต่อๆกันให้ครบทุกเรคอร์ด เก็บลงตัวแปร แล้วจะเอาตัวแปรไปแสดงบนหน้าฟอร์ม หรือไปเขียนลงเท็กซ์ไฟล์ก็แล้วแต่ต้องการ

ตย.โค้ด

Dim RS As DAO.Recordset ' ชุดของเรคอร์ดที่อ่านได้
Dim SQL As String
Dim S As String  ' เก็บผลลัพธ์

' สร้าง SQL
SQL = "select ชื่อฟิลด์ as F from ชื่อเทเบิลหรือคิวรี่ where เงื่อนไข order by ฟิลด์ที่ใช้เรียงลำดับข้อมูล"

' เปิดชุดเรคอร์ดที่ได้จาก SQL
Set RS = CurrentDB.OpenRecordset(SQL)

' ทำจนกว่าจะอ่านเรคอร์ดไม่ได้แล้ว
Do Until RS.EOF

     If S = "" Then
          S = RS!F
     Else
          S = S & "," & RS!F  ' ต่อเท็กซ์ในตัวแปรด้วยเครื่องหมาย "," ถ้าก่อนหน้านี้ ตัวแปรมีค่าอยู่ก่อนแล้ว
     End If

     ' อ่านเรคอร์ดต่อไป
     RS.MoveNext

' วนลูปต่อไป
Loop

' ปิดชุดเรคอร์ด
RS.Close

' ต่อจากนี้ก็เอาตัวแปร S ไปใช้ครับ

ขอบคุณครับอาจารย์ เดี๋ยวผมลองศึกษาเรื่องโค๊ดต่อครับ