Export ข้อมูลจาก MS Access

[mtaccess]

Export ข้อมูลจาก MS Access แล้ว error ตามรูปนี้ค่ะ


โค้ดโปรแกรมตามนี้ เดิมใช้ Database MS Access ไม่ติดปัญหา พอเปลี่ยนมาเป็น Database SQL Server แล้ว ติดตรง Export ไม่ได้ค่ะ

โค๊ด: [Select]

Private Sub cmdExport_Click()
    Const qry As String = "QueryExportToSQLSERVER"
    Const myPath As String = "C:\Exportfile\Test.csv"
    DoCmd.TransferText acExportDelim, "QueryExportToSQLSERVER Export Specification", qry, myPath, True
    MsgBox "Export to C:\Test.csv successfully"
End Sub
ปล.ถ้าต้องการให้ชื่อไฟล์ออกตามฝ่ายและสาขาที่เราล็อกอินเข้าไป ต้องทำยังไงคะ เช่น txtDivision คือ MMM และ txtLocation คือ Bangkok
อยากได้ไฟล์ที่ Export ออกมาเป็นชื่อไฟล์ TestMMMBangkok.csv

รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

[สันติสุข]

- ตรวจการกำหนดประเภทข้อมูลและความยาวของฟิลด์ข้อมูลที่เราตั้งเอาไว้ใน "QueryExportToSQLSERVER Export Specification" เพราะเมื่อเปลี่ยนฐานข้อมูลจาก Access ไปเป็นตัวอื่น สิ่งต่างๆข้างต้นอาจแตกต่างไป

- เปลี่ยนจาก
Const myPath As String = "C:\Exportfile\Test.csv"
ไปเป็น
Dim myPath As String
myPath = "C:\Exportfile\Test" & txtDivision & txtLoacation & ".csv"

[mtaccess]

- ตรวจการกำหนดประเภทข้อมูลและความยาวของฟิลด์ข้อมูลที่เราตั้งเอาไว้ใน "QueryExportToSQLSERVER Export Specification" เพราะเมื่อเปลี่ยนฐานข้อมูลจาก Access ไปเป็นตัวอื่น สิ่งต่างๆข้างต้นอาจแตกต่างไป

- เปลี่ยนจาก
Const myPath As String = "C:\Exportfile\Test.csv"
ไปเป็น
Dim myPath As String
myPath = "C:\Exportfile\Test" & txtDivision & txtLoacation & ".csv"

เกี่ยวกันไหมคะว่าใน Database MS Access Data Type เป็น Short Text พอเปลี่ยนมาเป็น SQL Server Data Type เป็น nvarchar(255)
รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

[สันติสุข]

Short Text กับ nvarchar(255) ไม่น่าจะเป็นปัญหาครับ เพราะ nvarchar(255) จะเก็บตัวอักษรได้**อาจจะ**น้อยกว่า 255  แต่ให้ไปดูว่าใน Specification นั้น เอาฟิลด์นี้ออกมากี่ตัวอักษรมากกว่า

[mtaccess]

Short Text กับ nvarchar(255) ไม่น่าจะเป็นปัญหาครับ เพราะ nvarchar(255) จะเก็บตัวอักษรได้**อาจจะ**น้อยกว่า 255  แต่ให้ไปดูว่าใน Specification นั้น เอาฟิลด์นี้ออกมากี่ตัวอักษรมากกว่า

Specification ดูตรงไหนคะ ฟิลด์ตอนที่เรา Query รึเปล่าคะ

[สันติสุข]

ถามผมกลับอย่างนี้นี่ผมงงเลย ตกลงคุณไม่ได้เป็นคนสร้าง spec เองเหรอ แล้วคุณไปเอาชื่อ spec จากไหนมาใส่ในคำสั่ง DoCmd.TransferText  ?

เอาอย่างงี้ เปิดคิวรี่แล้วกดตามลำดับ 1 - 6 ที่แสดงครับ สำหรับตำแหน่งที่ 8 ถ้าเลือกเป็น Fixed Width ก่อนกดตำแหน่งที่4 หลังจากเลือก Specification แล้ว ตารางของฟิลด์ (ตำแหน่งที่ 7) จะแสดงตำแหน่งเริ่มต้นและความยาวของฟิลด์ออกมาด้วย ที่นี้ก็ขึ้นกับคุณออกแบบว่าจะให้ export เป็นแบบไหน ออกแบบแบบไหน ในคำสั่ง DoCmd.TransferText ก็ให้ใช้ตัวเลือกเพื่อ export แบบนั้นด้วยนะครับ

ตำแหน่งที่ 4 หมายถึงคลิกที่ปุ่ม Spec... นะครับ

หรือไม่ก็ ลอง export โดยไม่ใช้ spec ด้วยคำสั่ง
DoCmd.TransferText acExportDelim, , qry, myPath, True
ดูว่าได้ผลตามต้องการหรือไม่

[mtaccess]

ถามผมกลับอย่างนี้นี่ผมงงเลย ตกลงคุณไม่ได้เป็นคนสร้าง spec เองเหรอ แล้วคุณไปเอาชื่อ spec จากไหนมาใส่ในคำสั่ง DoCmd.TransferText  ?

เอาอย่างงี้ เปิดคิวรี่แล้วกดตามลำดับ 1 - 6 ที่แสดงครับ สำหรับตำแหน่งที่ 8 ถ้าเลือกเป็น Fixed Width ก่อนกดตำแหน่งที่4 หลังจากเลือก Specification แล้ว ตารางของฟิลด์ (ตำแหน่งที่ 7) จะแสดงตำแหน่งเริ่มต้นและความยาวของฟิลด์ออกมาด้วย ที่นี้ก็ขึ้นกับคุณออกแบบว่าจะให้ export เป็นแบบไหน ออกแบบแบบไหน ในคำสั่ง DoCmd.TransferText ก็ให้ใช้ตัวเลือกเพื่อ export แบบนั้นด้วยนะครับ

ตำแหน่งที่ 4 หมายถึงคลิกที่ปุ่ม Spec... นะครับ

หรือไม่ก็ ลอง export โดยไม่ใช้ spec ด้วยคำสั่ง
DoCmd.TransferText acExportDelim, , qry, myPath, True
ดูว่าได้ผลตามต้องการหรือไม่

พอดีทำไว้นานจนลืมนะคะ ว่าทำอะไรไปบ้าง อิอิ
เราสามารถเข้าไปดูที่ Spec ตัวเก่าที่เราเคยทำ ตรงไหนคะ พอดีลองทำตามแล้ว ไม่เข้าไปหน้า Export Text wizard รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

[Un]

คลิกขวาที่ตารางหรือ Query นั้น แล้วเลือกส่งออกเป็น Text ครับ

[mtaccess]

ลองเข้าไปดูใน Specification error ตามนี้ค่ะ

[mtaccess]

ถามผมกลับอย่างนี้นี่ผมงงเลย ตกลงคุณไม่ได้เป็นคนสร้าง spec เองเหรอ แล้วคุณไปเอาชื่อ spec จากไหนมาใส่ในคำสั่ง DoCmd.TransferText  ?

เอาอย่างงี้ เปิดคิวรี่แล้วกดตามลำดับ 1 - 6 ที่แสดงครับ สำหรับตำแหน่งที่ 8 ถ้าเลือกเป็น Fixed Width ก่อนกดตำแหน่งที่4 หลังจากเลือก Specification แล้ว ตารางของฟิลด์ (ตำแหน่งที่ 7) จะแสดงตำแหน่งเริ่มต้นและความยาวของฟิลด์ออกมาด้วย ที่นี้ก็ขึ้นกับคุณออกแบบว่าจะให้ export เป็นแบบไหน ออกแบบแบบไหน ในคำสั่ง DoCmd.TransferText ก็ให้ใช้ตัวเลือกเพื่อ export แบบนั้นด้วยนะครับ

ตำแหน่งที่ 4 หมายถึงคลิกที่ปุ่ม Spec... นะครับ

หรือไม่ก็ ลอง export โดยไม่ใช้ spec ด้วยคำสั่ง
DoCmd.TransferText acExportDelim, , qry, myPath, True
ดูว่าได้ผลตามต้องการหรือไม่

ลอง export โดยไม่ใช้ spec ด้วยคำสั่ง
DoCmd.TransferText acExportDelim, , qry, myPath, True

Export ได้ค่ะ แต่ข้อมูล Format ไม่ตรงตามที่ต้องการ ข้อมูลมี "" มาด้วยนะคะ เช่น "010000","มานี","มานะ" พอจะมีวิธีตัด "" ออกไหมคะ แนะนำด้วยค่ะ ขอบคุณค่ะ

[สันติสุข]

หลังตำแหน่ง 8  ในช่อง Text Qualifier ให้เลือกเป็น {none}   เสร็จแล้วบันทึกเป็น Specification ตัวใหม่  พอเวลาจะ export  ก็ให้อ้าง Specification ตัวใหม่นี้ครับ

[mtaccess]

หลังตำแหน่ง 8  ในช่อง Text Qualifier ให้เลือกเป็น {none}   เสร็จแล้วบันทึกเป็น Specification ตัวใหม่  พอเวลาจะ export  ก็ให้อ้าง Specification ตัวใหม่นี้ครับ

คลิกขวาที่ Query แล้วเลือก Export text file แล้วแสดง error นี้ค่ะ ไม่สามารถเข้าหน้าไป set specification ได้เลยค่ะ

[mtaccess]

ทำได้แล้วค่ะ เกิดจากคำสั่ง Query ที่มีการ select ฟิลด์ แล้วดันตั้งชื่อ as Expt ชื่อเลยไม่ตรงกัน พอดีย้ายจาก database access ไปเป็น SQL แล้วไปแก้ไขคำสั่ง

ขอบคุณมากๆนะคะ สำหรับทุกๆคำแนะนำ