รบกวนชี้แนะโค๊ดดึงข้อมูลจาก access เข้า excel
Posted: Mon Nov 17, 2014 5:33 pm
สวัสดีครับ สมาชิกทุกท่าน
ผมมีปัญหาในการเขียนโค๊ดดึงข้อมูลจาก access ไป excel โดยมีปัญหาที่ต้องการทราบ2ข้อ
1 จากโค๊ดดังกล่าวด้านล่าง จะเป็นโค๊ดที่ใช้กับ access version 2003 ลงไป หากจะใช้กับ version 2007 ขึ้นไปจะต้องแก้อะไรครับ
2 โค๊ดตัวอย่างนี้เรียกได้เฉพาะ field แต่ข้อมูลไม่สามารถเลือกมาได้ จะต้องเพิ่มโค้ดอะไรเข้าไปถึงจะใช้ได้ครับ
ขอบคุณครับ
ผมมีปัญหาในการเขียนโค๊ดดึงข้อมูลจาก access ไป excel โดยมีปัญหาที่ต้องการทราบ2ข้อ
1 จากโค๊ดดังกล่าวด้านล่าง จะเป็นโค๊ดที่ใช้กับ access version 2003 ลงไป หากจะใช้กับ version 2007 ขึ้นไปจะต้องแก้อะไรครับ
2 โค๊ดตัวอย่างนี้เรียกได้เฉพาะ field แต่ข้อมูลไม่สามารถเลือกมาได้ จะต้องเพิ่มโค้ดอะไรเข้าไปถึงจะใช้ได้ครับ
ขอบคุณครับ
Code: Select all
Private Sub connectDB()
Dim ADOconn As New ADODB.Connection
Dim ADORecordSet As New Recordset
'constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\Northwind.mdb;"
Constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\Monthly\Cardlink\201410\cardbase201410.MDB;"
'ThisWorkbook.Path คือการเลือก path ที่ไฟด์ excel นี้อยู่
If ADOconn.State = adStateOpen Then ADOconn.Close
ADOconn.ConnectionString = Constr
ADOconn.Open
'Sql = "Select * From Products"
Sql = "Select * From QUERY2"
ADORecordSet.ActiveConnection = ADOconn
ADORecordSet.Open Sql
For i = 0 To ADORecordSet.Fields.Count - 1
Sheet1.Cells(1, i + 1) = ADORecordSet.Fields(i).Name
Next
End Sub
Connection String สำหรับ Excel 2007 ขึ้นไป ดูที่นี่ครับ