Online Reference

Home

CodeDb Function

ใช้ใน code module เพื่อหาชื่อของอ๊อบเจคฐานข้อมูล ที่คำสั่งกำลังใช้งานอยู่ ฟังก์ชัน CodeDb ใช้เข้าถึง Data Access Object (DAO) ซึ่งเป็นส่วนหนึ่งของ library database

เช่น การใช้ฟังก์ชัน CodeDb ในโมดูลใน library database เพื่อสร้างอ๊อบเจคฐานข้อมูลที่อ้างถึง library database จะสามารถเปิด recordset ของ Table ใน library database

ไวยากรณ์

Set database = CodeDb

อากิวเมนต์ database เป็นตัวแปรของอ๊อบเจคฐานข้อมูล

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

ฟังก์ชัน CodeDb ส่งออกค่าอ๊อบเจคฐานข้อมูลสำหรับคุณสมบัติ Name ด้วยพาร์ทและชื่อของฐานข้อมูลที่ได้รับการเรียก ฟังก์ชันนี้สามารถใช้ประโยชน์ในการควบคุม Data Access Object ใน library database

เมื่อมีการเรียกฟังก์ชันใน Library database ฐานข้อมูลที่มีการเรียกฟังก์ชันนั้นจะเป็นฐานข้อมูลปัจจุบัน ถึงแม้ว่าชุดคำสั่งจำทำงานใน code module ใน library database ในการอ้างถึง Data Access Object ใน library database จะต้องทราบชื่อของอ๊อบเจคฐานข้อมูลที่แสดง library database

เช่น สมมติว่ามี Table ใน library database ซึ่งมีรายการข่าวสารความผิดพลาด ซึ่งการควบคุมข้อมูลใน Table จากคำสั่งสามารถใช้ฟังก์ชัน CodeDb ในการหาชื่ออ๊อบเจคฐานข้อมูลเพื่ออ้างถึง library database ที่เก็บ Table

ถ้าฟังก์ชัน CodeDb ได้รับการเรียกโดยฐานข้อมูลปัจจุบัน จะส่งออกชื่อของฐานข้อมูลปัจจุบัน ซึ่งมีค่าเดียวกับฟังก์ชัน CurrentDb

ดูเพิ่มเติม

ฟังก์ชัน CurrentDb

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน CodeDb เพื่อส่งค่าอ๊อบเจคฐานข้อมูลที่อ้างถึง library database โดย library database เก็บค่าทั้งชื่อความผิดพลาด และคำสั่งที่กำลังเรียกใช้ หลังจากที่ฟังก์ชัน CodeDb หาสารสนเทศนี้ โดยฟังก์ชัน GetErrorString เปิด Recordset ประเภท Table-type ตามชนิด Table ของความผิดพลาด จากนั้นจะทำการดึงข่าวสารจากฟิลด์ชื่อ ErrorData ตามค่าตัวเลขที่ส่งผ่านโดยฟังก์ชัน

Function GetErrorString(Byval intError As Integer) As String

  Dim dbs As Database, rst As Recordset

  ' ตัวแปรอ้างถึงฐานข้อมูลที่คำสั่งกำลังทำงาน
  Set dbs = CodeDb

  ' สร้าง อ๊อบเจค Recordset ประเภท Table-type
  Set rst = dbs.OpenRecordSet("Errors", dbOpenTable)

  ' กำหนดดัชนีเป็น Primary key (ฟิลด์ ErrorID)
  rst.Index = "PrimaryKey"

  ' หาหมายเลขความผิดพลาดที่ส่งให้ ฟังก์ชัน GetErrorString
  rst.Seek "=", IntError

  ' ส่งออกข่าวสารความผิดพลาดที่ตรงกับค่าของ GetErrorString
  GetErrorString = rst.Field!ErrorData.Value

  Rst.Close

End Function