استرداد نتائج الاستعلام في Access باستخدام VBA.
يمكن أن تساعدك معرفة كيفية قراءة النتائج من استعلام Microsoft Access في جعل تطبيق Access أكثر ديناميكية. يعد Access جزءًا من مجموعة Microsoft Office ويتم استخدامه لإنشاء قواعد بيانات علائقية. يمكن استخدام Visual Basic for Applications (VBA) في Access لإنشاء تطبيقات Windows واسترداد بيانات قاعدة البيانات. يتم إنشاء الاستعلام باستخدام عبارات لغة الاستعلام الهيكلية (SQL) لطلب معلومات من قاعدة بيانات.
الخطوة 1
ابدأ تشغيل Microsoft Office Access 2007 وحدد "قاعدة بيانات فارغة" ، ثم انقر فوق "إنشاء". انقر فوق "أدوات قاعدة البيانات" وحدد "Visual Basic". انقر فوق الحقل "إدراج" وحدد "وحدة".
فيديو اليوم
اكتب "Private sub readQueryResults" واضغط على "Enter" لإنشاء روتين فرعي جديد.
الخطوة 2
اكتب ما يلي للإعلان عن المتغيرات التي ستستخدمها لقراءة نتائج الاستعلام:
سجل خافت كقاعدة بيانات خافتة لمجموعة سجلات كسلسلة خافتة لقاعدة البيانات
الخطوه 3
اكتب ما يلي لإنشاء جدول "CityTbl":
stringSQL = "CREATE TABLE CityTbl (City TEXT (25)، State TEXT (25))؛" DoCmd. RunSQL (سلسلة نصية)
الخطوة 4
اكتب ما يلي لإضافة سجلين جديدين إلى جدول "CityTbl" الخاص بك:
stringSQL = "INSERT INTO CityTbl ([City]، [State])" stringSQL = stringSQL & "VALUES ('Fort Worth'، 'Texas')؛" DoCmd. SetWarnings خطأ DoCmd. RunSQL (سلسلة نصية)
stringSQL = "INSERT INTO CityTbl ([City]، [State])" stringSQL = stringSQL & "VALUES ('Dallas'، 'Texas')؛" DoCmd. SetWarnings خطأ DoCmd. RunSQL (سلسلة نصية)
الخطوة الخامسة
اكتب ما يلي لتحديد الاستعلام الخاص بك وافتح مجموعة السجلات الخاصة بك:
stringSQL = "حدد CityTbl. * من CityTbl؛" تعيين RecordSt = dBase. OpenRecordset (سلسلة نصية)
الخطوة 6
اكتب ما يلي لإنشاء "For Loop" وعرض نتائج الاستعلام من خلال مربع رسالة:
سجل MoveFirst لـ rCnt = 0 To RecordSt. RecordCount MsgBox (حقول RecordSt. ("City"). القيمة & "،" & RecordSt. Fields ("State"). Value) RecordSt. MoveNext التالي rCnt
اضغط على "F5" لتنفيذ الروتين الفرعي.
