वीबीए का उपयोग कर एक्सेस में क्वेरी परिणाम पुनर्प्राप्त करें।
Microsoft Access क्वेरी से परिणामों को पढ़ने का तरीका जानने से आपको अपने एक्सेस एप्लिकेशन को अधिक गतिशील बनाने में मदद मिल सकती है। एक्सेस माइक्रोसॉफ्ट ऑफिस सूट का हिस्सा है और इसका उपयोग रिलेशनल डेटाबेस बनाने के लिए किया जाता है। अनुप्रयोगों के लिए विजुअल बेसिक (वीबीए) का उपयोग विंडोज़ एप्लिकेशन बनाने और डेटाबेस डेटा पुनर्प्राप्त करने के लिए एक्सेस में किया जा सकता है। डेटाबेस से जानकारी का अनुरोध करने के लिए स्ट्रक्चर्ड क्वेरी लैंग्वेज (एसक्यूएल) स्टेटमेंट का उपयोग करके एक क्वेरी बनाई गई है।
चरण 1
Microsoft Office Access 2007 प्रारंभ करें और "खाली डेटाबेस" चुनें, फिर "बनाएँ" पर क्लिक करें। "डेटाबेस टूल्स" पर क्लिक करें और "विजुअल बेसिक" चुनें। "सम्मिलित करें" फ़ील्ड पर क्लिक करें और "मॉड्यूल" चुनें।
दिन का वीडियो
"निजी उप readQueryResults" टाइप करें और एक नया सबरूटीन बनाने के लिए "एंटर" दबाएं।
चरण 2
वेरिएबल घोषित करने के लिए निम्नलिखित टाइप करें जिनका उपयोग आप क्वेरी परिणामों को पढ़ने के लिए करेंगे:
डिम रिकॉर्डस्ट रिकॉर्डसेट के रूप में डिम डीबेस डेटाबेस के रूप में डिम स्ट्रिंगएसक्यूएल स्ट्रिंग डिम आरसीएनटी इंटीजर के रूप में
चरण 3
"सिटी टीबीएल" तालिका बनाने के लिए निम्नलिखित टाइप करें:
stringSQL = "टेबल सिटी टीबीएल बनाएं (सिटी टेक्स्ट (25), स्टेट टेक्स्ट (25));" डीओसीएमडी। रनएसक्यूएल (स्ट्रिंगएसक्यूएल)
चरण 4
अपनी "सिटी टीबीएल" तालिका में दो नए रिकॉर्ड जोड़ने के लिए निम्नलिखित टाइप करें:
stringSQL = "इन्सर्ट इनटू सिटी टीबीएल ([सिटी], [स्टेट])" stringSQL = stringSQL और "VALUES ('फोर्ट वर्थ', 'टेक्सास');" डीओसीएमडी। चेतावनी गलत DoCmd. रनएसक्यूएल (स्ट्रिंगएसक्यूएल)
stringSQL = "इन्सर्ट इनटू सिटी टीबीएल ([सिटी], [स्टेट])" stringSQL = stringSQL और "VALUES ('डलास', 'टेक्सास');" डीओसीएमडी। चेतावनी गलत DoCmd. रनएसक्यूएल (स्ट्रिंगएसक्यूएल)
चरण 5
अपनी क्वेरी को परिभाषित करने के लिए निम्नलिखित टाइप करें और अपना रिकॉर्डसेट खोलें:
stringSQL = "सिटी टीबीएल चुनें। * सिटी टीबीएल से;" रिकॉर्डस्ट सेट करें = dBase. ओपन रिकॉर्डसेट (स्ट्रिंगएसक्यूएल)
चरण 6
"लूप के लिए" बनाने के लिए निम्नलिखित टाइप करें और एक संदेश बॉक्स के माध्यम से अपने क्वेरी परिणाम प्रदर्शित करें:
रिकॉर्ड सेंट। मूवफर्स्ट आरसीएनटी के लिए = 0 रिकॉर्ड करने के लिए। रिकॉर्डकाउंट MsgBox (RecordSt. Fields("City").Value & "," & RecordSt. Fields("State").Value) RecordSt। आगे बढ़ें अगला आरसीएनटी
सबरूटीन निष्पादित करने के लिए "F5" दबाएं।
