1
ห้อง MS Access / : ต้องการเปลี่ยนนามสกุลไฟล์หลังจากimport
« เมื่อ: 09 มี.ค. 64 , 20:35:55 »
ขอบคุณครับผม 
แสดงกระทู้
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
หน้า: [1]
3
ห้อง MS Access / : import ข้อมูลแล้วให้กรอกข้อมูลลง textbox
« เมื่อ: 02 ต.ค. 61 , 15:29:37 »เวลาเรา import เราไม่ได้ import เข้ามาในฟอร์มนะครับ
เรา import เข้ามาในตารางที่เราสร้างไว้ ส่วนฟอร์ม ทำหน้าที่
ให้เราบันทึก จัดการตาราง ในแบบที่เราต้องการ
เมื่อเรา import เข้ามาในตารางแล้ว เราก็เขียน Query ให้
รูปแบบมันตรงกับที่เราต้องการ แล้ว Append ไปในตารางี่เราต้องการ
แล้วค่อยเปิดฟอร์มที่เรากำหนดอีกที
อันนี้เป็นขั้นตอน ส่วนวิธี แต่ละขั้นตอน ต้องถามเป็นขั้นตอน จะคุยกันได้ง่ายกว่า
คือเป็นแบบนี้ครับ ผมได้ไฟล์มาเป็นแบบ text จากอีกโปรแกรม แล้วผม import มาใส่ตารางสำรองไว้โดยเลือกเอาเฉพาะฟิล์ลที่ต้องการ จากนั้นต้องการจะนำข้อมูลมากรอกลงฟอร์มหลัก คล้ายๆเรา กรอกข้อมูลลงไป เพื่อจะได้ รัน หมายเลขอัตโนมัติ อะไรประมาณนี้ครับ ผมอาจจะอธิบาย งง งง ในรูปเป็นคนละฟอร์มครับ
4
ห้อง MS Access / import ข้อมูลแล้วให้กรอกข้อมูลลง textbox
« เมื่อ: 01 ต.ค. 61 , 23:36:05 »
ผมมือใหม่พึ่งหัดทำโปรแกรมจาก access ขอสอบถามครับ
6
ห้อง MS Access / การ Export
« เมื่อ: 23 ก.ย. 61 , 14:30:06 »
ถ้าต้องการ Export ออกมาให้เป็บแบบฟอร์มนี้ A,,,,,,,,,,,
L,,,,P จาก query 16 field (คือเอาแต่ field ที่ 1 ที่ 12 ที่ 16 สมมุติข้อมูลเรียงจาก AถีงP) ต้องกำหนดอย่างไรบ้างครับ
คือตอนนี้ EXport ออกมา ข้อมูลออกมาทั้งหมด 16 field
L,,,,P จาก query 16 field (คือเอาแต่ field ที่ 1 ที่ 12 ที่ 16 สมมุติข้อมูลเรียงจาก AถีงP) ต้องกำหนดอย่างไรบ้างครับ
คือตอนนี้ EXport ออกมา ข้อมูลออกมาทั้งหมด 16 field
7
ห้อง MS Access / : การ export to text
« เมื่อ: 20 ก.ย. 61 , 11:17:44 »ไม่เอาหัวฟิลมาด้วย เอา -1 ข้างหลังออกครับ
ส่วนข้อมูลสุดท้าย ก็ทำคิวรีให้ออก ข้อมูลสุดท้ายงัยครับ
ได้ตามที่ต้องการเลย ขอบคุณมากครับ
8
ห้อง MS Access / : การ export to text
« เมื่อ: 20 ก.ย. 61 , 10:48:34 »วิธีการของ อ.Yeadram ผมก็ไม่เข้าใจนะ
ลองวิธีง่ายๆ แบบผมดู
1.ให้คลิกขวาเลือกส่งออกเป็น TextFile จะขึ้นตามรูป
2.เลือก Advace ตรงกล่องที่ 2 เราอยากให้เป็น คอมม่า ก็เลือกคอมม่า
3.ลองส่งออกมาดูว่าใช่แบบที่ต้องการรึป่าว ถ้าใช่
4.ก็ SAVE รูปแบบไว้ แล้วนำชื่อที่ SAVE ไว้ มาใส่ในโคต
Ex
DoCmd.TransferText acExportDelim, "ชื่อโคตที่SAVE", ชื่อQuery, "C:\" & "ชื่อไฟล์.txt", -1
ผมขอถามเพิ่มนะครับ ถ้าผมจะไม่ให้เอาหัว field มาด้วย และเอาเฉพาะข้อมูลสุดท้าย ผมต้องเพิ่ม Code อย่างไรครับ
9
ห้อง MS Access / : การ export to text
« เมื่อ: 20 ก.ย. 61 , 00:46:50 »
จากกระทู้นี้ https://www.thai-access.com/yeadram_view.php?topic_id=2878
ที่ อ.Yeadram ตอบ ถ้าผมต้องการให้คง comma ไว้ผมต้องแก้ไขส่วนไหนครับ
ตัวอย่าง ก่อนใส่ code นี้ Export ได้ "A",1234,"B" หลังใส่ Code นี้ได้ A1234B ที่ต้องการคือ A,1234,B พอจะเห็นภาพไหมครับ
Sub Txxxxxx()
dim conn as new adodb.connection
dim rs as new adodb.recordset
dim sq as string
dim i, j as integer
set conn = currentproject.connecion
rs.open "qryReportTextfile", conn, 1
if not rs.eof then
rs.movelast
rs.movefirst
j = rs.fields.count-1
open "C:\sbank.txt" for output as #1
do while not rs.eof
sq = ""
for i = 0 to j
sq= sq & rs(i)
next
Print #1, sq
rs.movenext
loop
close #1
end if
rs.close
set rs= nothing
set conn = nothing
end sub
ที่ อ.Yeadram ตอบ ถ้าผมต้องการให้คง comma ไว้ผมต้องแก้ไขส่วนไหนครับ
ตัวอย่าง ก่อนใส่ code นี้ Export ได้ "A",1234,"B" หลังใส่ Code นี้ได้ A1234B ที่ต้องการคือ A,1234,B พอจะเห็นภาพไหมครับ
Sub Txxxxxx()
dim conn as new adodb.connection
dim rs as new adodb.recordset
dim sq as string
dim i, j as integer
set conn = currentproject.connecion
rs.open "qryReportTextfile", conn, 1
if not rs.eof then
rs.movelast
rs.movefirst
j = rs.fields.count-1
open "C:\sbank.txt" for output as #1
do while not rs.eof
sq = ""
for i = 0 to j
sq= sq & rs(i)
next
Print #1, sq
rs.movenext
loop
close #1
end if
rs.close
set rs= nothing
set conn = nothing
end sub
หน้า: [1]
