กระทู้เก่าบอร์ด อ.Yeadram
1,071 2
URL.หัวข้อ /
URL
ช่วยตอบหน่อยคะ
หลังจากที่เราทำการ เลือกไฟล์ที่ต้องการมาแล้ว เมื่อเรากดปุ่มตกลง แล้วให้ทำการประมวลผลไฟล์นั้นเลย โดยนำไฟล์ที่ทำการ browse เข้ามา นำมาเข้าสูตร เพื่อคำนวณออกมาเป็นตัวเลข แล้วนำตัวเลขนั้นมาสร้างกราฟ แต่ตอนนี้มีแต่ตัวฟอร์มสำหรับ browse นะคะ และก็ฟอร์มตารางที่เตรียมรับข้อมูล ดึงมาแล้วเขียนโค้ดยังไง ให้ข้อมูลเข้ามาในโครงสร้างตารางที่เตรียมไว้นะคะ โดยทำการนำข้อมุลมาเก็บใน access ชั่วคราว เพื่อเขียนคำสั่งให้ประมวลผลอีกครั้งนึง จะต้องเขียนโค้ดยังไงต่อคะ
ข้อมูลที่นำมาเก็บใน access นั้นเป็นข้อมูลที่เก็บชั่วคราวคะ เพราะข้อมุลเปลี่ยนทุกสัปดาห์ ต้องไป browse ไฟล์มาทุกวันพุธคะ แล้วนำมาออกรายงาน
ข้อมูลที่นำมาเก็บใน access นั้นเป็นข้อมูลที่เก็บชั่วคราวคะ เพราะข้อมุลเปลี่ยนทุกสัปดาห์ ต้องไป browse ไฟล์มาทุกวันพุธคะ แล้วนำมาออกรายงาน
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R03572
Private Sub cmdGetdata_Click() ' ปุ่มประมวลผล
Dim A_ACCTNO, A_ACCNAME, A_Type As Variant
Dim Db As Database
Dim Rs As DAO.Recordset
Dim FLine As Integer
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset("tbl_WorkTime")
FLine = 0
Open txtPath For Input As #1
Do While Not EOF(1)
Line Input #1, Y ' Y ค่าจาก txt แต่ละแถว
Rs.AddNew
A_ACCTNO = Mid(Y, 1, 5)
A_ACCNAME = Mid(Y, 6, 8)
A_Type = Mid(Y, 16, 5)
Rs.Update
End If
Loop
Close #1
End Sub
** txtPath = "C:\xxxxxx.txt"
Dim A_ACCTNO, A_ACCNAME, A_Type As Variant
Dim Db As Database
Dim Rs As DAO.Recordset
Dim FLine As Integer
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset("tbl_WorkTime")
FLine = 0
Open txtPath For Input As #1
Do While Not EOF(1)
Line Input #1, Y ' Y ค่าจาก txt แต่ละแถว
Rs.AddNew
A_ACCTNO = Mid(Y, 1, 5)
A_ACCNAME = Mid(Y, 6, 8)
A_Type = Mid(Y, 16, 5)
Rs.Update
End If
Loop
Close #1
End Sub
** txtPath = "C:\xxxxxx.txt"
Time: 0.3617s
http://www.thai-access.com/yeadram_view.php?topic_id=524
ต้อง มี Table รองรับ
ก่อน Import มาให้ลบ ข้อมูลเก่าออกให้หมด
**ไม่รู้ว่าตรงกับที่ต้องการมั๊ย