หากต้องเชื่อมฐานข้อมูลจาก SQL Server โดยตัว Front End เป็น MS-Access
หลักการมีดังนี้ครับ
- ขั้นตอนที่ 1 สร้าง ODBC เพื่อ Connect ไปยัง MySQL Server
- ขั้นตอนที่ 2 ทำการ Link Table เข้ามาในไฟล์ Front End ที่กำลังใช้งานอยู่
- ขั้นตอนที่ 3 ในหน้าเขียนโค๊ด VBA ให้ติ๊กเลือก Tools --> Reference --> Microsoft DAO 3.6 Object libray
เมื่อต้องการจะจัดการกับข้อมูลใน Table สามารถใช้รูปแบบดังนี้
Dim rst1, rst2, rst3, rst4, rst5, rst6, rst7, rst8 As DAO.Recordset
Dim dbs As Database
Set dbs = CurrentDb()
Set rst1 = dbs.OpenRecordset("SELECT * from Table1", dbOpenDynaset, dbSeeChanges)
'Add
rst1.addnew
rst1!Filed1 = "Test"
rst1.update
'Edit
rst1.edit
rst1!Filed1 = "Test"
rst1.update
'Del
rst1.Delete
rst1.close
Set rst1 = nothing
จะเห็นว่า มีรูปแบบคำสั่ง ", dbOpenDynaset, dbSeeChanges) ต่อท้ายเพิ่มขึ้นมานิดหน่อย
ขอขอบคุณความรู้เกี่ยวกับ MS-Access จาก อ. สุภาพ ไชยา
ก็ฝากไว้เผื่อจะสามารถช่วยให้มิตรรักแฟนเพลงท่านหนึ่งท่านใด ก้าวพ้นปัญหาที่กำลังแก้อยู่ได้เร็วขึ้น
