คลิ๊กปุ่มแล้วไปเลือกไฟล์ เมื่อเลือกแล้ว ให้นำเข้าข้อมูลเข้ามา

[Un]

อยากได้ตัวอย่าง
คลิกปุ่มแล้วเปิดหน้าต่างเลือกไฟล์(Textfile)
เมื่อเลือกแล้ว มีปุ่มกดเพื่อนนำเข้าไฟล์นั้นมาในฐานข้อมูล
ขอบคุณครับ

[PNR]

อยากได้ตัวอย่าง
คลิกปุ่มแล้วเปิดหน้าต่างเลือกไฟล์(Textfile)
เมื่อเลือกแล้ว มีปุ่มกดเพื่อนนำเข้าไฟล์นั้นมาในฐานข้อมูล
ขอบคุณครับ

สมมุติ ตารางที่จะนำเข้าจากไฟล์ CSV ชื่อ table1 นะครับ

โค๊ด: [Select]

Private Sub Command0_Click()
Dim File As FileDialog
Dim getfile As String
Set File = Application.FileDialog(msoFileDialogFilePicker)
With File
.Title = "เลือก ไฟล์ที่จะนำเข้า"
        .Filters.Clear
        .Filters.Add "Text Files", "*.csv"
.AllowMultiSelect = False
End With
If File.Show Then
getfile = File.SelectedItems.Item(1)

DoCmd.TransferText TransferType:=acImportDelim, TableName:="table1", FileName:=getfile, HasFieldNames:=True
MsgBox "นำ้้เข้าเรียบร้อยแล้ว"

End If
End Sub



[Un]

แก้ยังงัยครับอาจารย์

[PNR]

ตั้งค่า Reference ครับ


ต้องมี Microsoft Office xx Object Library ด้วยครับ

[Un]

เหมือนของผมก็มีแล้วครับอาจารย์

[PNR]

ของคุณไม่มีคับ มีแต่ access ของ Office ไม่มี สังเกตุดีๆ ของคุณ 4 ของผม 6
ต้องเพิ่ม Microsoft Office 16 Object Library เข้ามาด้วย
แล้วก็ตัว Runtime

[Un]

ได้แล้วครับ ขอบพระคุณมากครับอาจารย์