33
ห้อง MS Access / : ต้องการให้ import ไฟล์ตามหมายเลขที่กรอกลงไปในฟอร์ม
« เมื่อ: 08 พ.ย. 61 , 15:06:27 »
หมายถึง จะสร้างปุ่มขึ้นมา 1 ปุ่ม แล้วกดครั้งเดียวให้ File ทั้งหมดที่เป็น .txt Import เข้าตารางทั้งหมดใช่ไหมครับ
Private Sub Command1_Click()
Dim strPath As String
Dim strFile As String
Dim strTable As String
Dim StrFileName As string
strTable = "ชื่อตารางเป้าหมาย"
strPath = "d:\โฟลเดอร์ที่เก็บไฟล์ .txt"
strFile = Dir(strPath & "*.txt")
Do While strFile <> ""
StrFileName = strPath & strFile
DoCmd.TransferText acImportDelim, "importdata", strTable, StrFileName ,False
strFile = Dir
Loop
End Sub
ลองเทสดูก่อนนะครับ พอดีไม่ได้ทดสอบคำสั่งก่อนถ้ามีผิดพลาดบอกได้นะ
Private Sub Command1_Click()
Dim strPath As String
Dim strFile As String
Dim strTable As String
Dim StrFileName As string
strTable = "ชื่อตารางเป้าหมาย"
strPath = "d:\โฟลเดอร์ที่เก็บไฟล์ .txt"
strFile = Dir(strPath & "*.txt")
Do While strFile <> ""
StrFileName = strPath & strFile
DoCmd.TransferText acImportDelim, "importdata", strTable, StrFileName ,False
strFile = Dir
Loop
End Sub
ลองเทสดูก่อนนะครับ พอดีไม่ได้ทดสอบคำสั่งก่อนถ้ามีผิดพลาดบอกได้นะ
โพสต์นี้ได้รับคำขอบคุณจาก: aek