אחזר תוצאות שאילתות ב-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 As Recordset Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer
שלב 3
הקלד את הדברים הבאים כדי ליצור את הטבלה "CityTbl":
stringSQL = "CREATE TABLE CityTbl (City TEXT(25), State TEXT(25));" DoCmd. RunSQL (stringSQL)
שלב 4
הקלד את הדברים הבאים כדי להוסיף שתי רשומות חדשות לטבלת "CityTbl" שלך:
stringSQL = "הכנס לתוך CityTbl ([עיר], [מדינה] ) " stringSQL = stringSQL & "VALUES ('פורט וורת', 'טקסס');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
stringSQL = "הכנס לתוך CityTbl ([עיר], [מדינה] ) " stringSQL = stringSQL & "VALUES ('דאלאס', 'טקסס');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
שלב 5
הקלד את הדברים הבאים כדי להגדיר את השאילתה שלך ולפתוח את ערכת השיאים שלך:
stringSQL = "SELECT CityTbl.* FROM CityTbl;" הגדר את RecordSt = dBase. OpenRecordset (stringSQL)
שלב 6
הקלד את הדברים הבאים כדי ליצור "ללולאה" ולהציג את תוצאות השאילתה שלך דרך תיבת הודעה:
RecordSt. MoveFirst עבור rCnt = 0 To RecordSt. RecordCount MsgBox (RecordSt. Fields("City").Value & ", " & RecordSt. Fields("State").Value) RecordSt. MoveNext הבא rCnt
הקש "F5" כדי לבצע את תת-השגרה.