Online Reference

Home

CurrentDb Function

ไวยากรณ์

CurrentDb

ลักษณะการประยุกต์

ในการควบคุมโครงสร้างของฐานข้อมูลและข้อมูลจาก Visual Basic ต้องใช้ Data Access Object (DAO) ฟังก์ชัน CurrentDb ให้ทางเพื่อเข้าถึงฐานข้อมูลปัจจุบันจากคำสั่งของ Visual Basic โดยไม่ต้องทราบชื่อของฐานข้อมูล เมื่อมีตัวแปรที่ชี้ไปยังฐานข้อมูลปัจจุบัน จะทำให้สามารถเข้าถึงและควบคุมอ๊อบเจคและ collection ในลำดับชั้นของ DAO

ฟังก์ชัน CurrentDb สามารถใช้สร้างตัวแปรอ๊อบเจคแบบ multiple ได้ที่อ้างถึงฐานข้อมูลปัจจุบัน ในตัวอย่างต่อไป ตัวแปร dbsA และ dbsB อ้างถึงฐานข้อมูลปัจจุบัน

Dim dbsA As Database, dbsB As Database
Set dbsA = CurrentDb
Set dbsB = CurrentDb

ถ้าต้องการทำงานกับฐานข้อมูลอื่นในเวลาเดียวกันซึ่งฐานข้อมูลปัจจุบันไดรับการเปิดใน Window ของ Microsoft Access ใช้เมธอด OpenDatabase ของอ๊อบเจค Workspace แต่เมธอด OpenDatabase ไม่จำเป็นต้องปิดฐานข้อมูลที่ 2 ในฐานข้อมูล แต่เป็นการส่งออกค่าตัวแปร Database ในฐานข้อมูลที่ 2 ตัวอย่างต่อไปส่งออกค่า pointer ของฐานข้อมูลปัจจุบัน และฐานข้อมูลชื่อ Contact.mdb

ดูเพิ่มเติม

อ๊อบเจค Database (“DAO Language Reference”), Database collection (“DAO Language Reference”)

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน CurrentDb ในการส่งออกค่าตัวแปรอ๊อบเจค Database ที่ชี้ไปยังฐานข้อมูลปัจจุบัน และระบุถึงฟิลด์ทั้งหมดใน Table ชื่อ Employees ในฐานข้อมูลปัจจุบัน

Sub ListFields()

Dim dbs As Database, tdf As TableDef, fld As Field

' ส่งออกตัวแปรอ๊อบเจคฐานข้อมูลที่ชี้ไปยังฐานข้อมูลปัจจุบัน
Set dbs = CurrentDb

' ส่งออกตัวแปรอ๊อบเจค TableDef ที่ชี้ไปยัง Table ชื่อ Employees
For Each fld In tdf.Fields
  Debug.Print fld.Name
Next fld

End Sub