ดึงผลลัพธ์ของคิวรีใน Access โดยใช้ VBA
การรู้วิธีอ่านผลลัพธ์จากคิวรี Microsoft Access สามารถช่วยให้คุณทำให้แอปพลิเคชัน Access ของคุณมีไดนามิกมากขึ้น Access เป็นส่วนหนึ่งของชุดโปรแกรม Microsoft Office และใช้สำหรับสร้างฐานข้อมูลเชิงสัมพันธ์ สามารถใช้ Visual Basic for Applications (VBA) ใน Access เพื่อสร้างแอปพลิเคชัน Windows และดึงข้อมูลฐานข้อมูลได้ แบบสอบถามถูกสร้างขึ้นโดยใช้คำสั่ง Structured Query Language (SQL) เพื่อขอข้อมูลจากฐานข้อมูล
ขั้นตอนที่ 1
เริ่ม Microsoft Office Access 2007 และเลือก "ฐานข้อมูลเปล่า" จากนั้นคลิก "สร้าง" คลิก "เครื่องมือฐานข้อมูล" และเลือก "Visual Basic" คลิกช่อง "แทรก" และเลือก "โมดูล"
วีดีโอประจำวันนี้
พิมพ์ "Private sub readQueryResults" แล้วกด "Enter" เพื่อสร้างรูทีนย่อยใหม่
ขั้นตอนที่ 2
พิมพ์ต่อไปนี้เพื่อประกาศตัวแปรที่คุณจะใช้ในการอ่านผลลัพธ์ของแบบสอบถาม:
Dim RecordSt เป็นชุดระเบียน Dim dBase เป็นฐานข้อมูล Dim stringSQL As String Dim rCnt เป็นจำนวนเต็ม
ขั้นตอนที่ 3
พิมพ์ต่อไปนี้เพื่อสร้างตาราง "CityTbl":
stringSQL = "สร้างตาราง CityTbl (City TEXT (25), State TEXT (25));" ด.ช. RunSQL (สตริงSQL)
ขั้นตอนที่ 4
พิมพ์ข้อมูลต่อไปนี้เพื่อเพิ่มระเบียนใหม่สองรายการในตาราง "CityTbl" ของคุณ:
stringSQL = "INSERT INTO CityTbl ([City], [State] ) " stringSQL = stringSQL & "VALUES ('Fort Worth', 'Texas');" ด.ช. SetWarnings เท็จ DoCmd. RunSQL (สตริงSQL)
stringSQL = "INSERT INTO CityTbl ([City], [State] ) " stringSQL = stringSQL & "VALUES ('Dallas', 'Texas');" ด.ช. SetWarnings เท็จ DoCmd. RunSQL (สตริงSQL)
ขั้นตอนที่ 5
พิมพ์ข้อมูลต่อไปนี้เพื่อกำหนดแบบสอบถามของคุณและเปิดชุดระเบียนของคุณ:
stringSQL = "เลือก CityTbl.* จาก CityTbl;" ตั้งค่า RecordSt = dBase OpenRecordset (stringSQL)
ขั้นตอนที่ 6
พิมพ์ข้อความต่อไปนี้เพื่อสร้าง "For Loop" และแสดงผลการสืบค้นของคุณผ่านกล่องข้อความ:
บันทึกSt. MoveFirst สำหรับ rCnt = 0 ไปยัง RecordSt RecordCount MsgBox (RecordSt. Fields("City")).Value & ", " & RecordSt. Fields("State")).Value) บันทึกSt. MoveNext ถัดไป rCnt
กด "F5" เพื่อรันรูทีนย่อย
