यह ट्यूटोरियल प्रदर्शित करेगा कि एक्सेस डेटाबेस खोलने के लिए वीबीए का उपयोग कैसे करें। यह यह भी प्रदर्शित करेगा कि डेटाबेस तक पहुँचने के लिए लॉगिन कैसे बनाया जाए - यह जाँचना कि क्या उपयोगकर्ता नाम और पासवर्ड डेटाबेस के tblUsers टेबल पर मौजूद है।
ओपन एक्सेस डेटाबेस
यह VBA फ़ंक्शन एक एक्सेस डेटाबेस खोलेगा:
सार्वजनिक समारोह OpenAccessDatabase (स्ट्रिंग के रूप में strDBPath) यदि नहीं है तो (strDBPath) तो शेल "MSACCESS.EXE" "" और strDBPath और """, vbNormalFocus अंत समारोह
आप इस तरह के फ़ंक्शन को कॉल कर सकते हैं:
निजी उप OpenAccessDatabase_Example () OpenAccessDatabase ("C:\temp\Database1.accdb") एंड सब पर कॉल करें
एक्सेस डेटाबेस से कनेक्ट करें
वैकल्पिक रूप से, आप इस कोड का उपयोग कर सकते हैं जो एक्सेस का एक नया उदाहरण बनाएगा, एक डेटाबेस खोलेगा, और डेटाबेस को एक चर के लिए असाइन करेगा डाटाबेस:
एक्सेस के रूप में मंद objAccess। एप्लिकेशन डीएओ के रूप में मंद डीबी। डेटाबेस सेट objAccess = नया एक्सेस। एप्लिकेशन सेट डीबी = objAccess.DBEngine.OpenDatabase (strDBPath, गलत, गलत)
या एक चर के लिए डेटाबेस खोलने के लिए उपरोक्त कोड वाले इस फ़ंक्शन का उपयोग करें:
सार्वजनिक फ़ंक्शन Connect_To_AccessDB (स्ट्रिंग के रूप में strDBPath) DAO के रूप में। डेटाबेस मंद objAccess एक्सेस के रूप में। एप्लिकेशन मंद डीबी DAO के रूप में। डेटाबेस सेट objAccess = नया एक्सेस। एप्लिकेशन सेट db = objAccess.DBEngine.OpenDatabase (strDBPath, False, False) सेट Connect_To_Access अंत समारोह
आप इस तरह की प्रक्रिया का उपयोग करके फ़ंक्शन को कॉल कर सकते हैं और डेटाबेस से बातचीत कर सकते हैं:
निजी उप Connect_To_AccessDB_Example () DAO.Database के रूप में मंद AccessDB 'एक चर के लिए एक डेटाबेस असाइन करने के लिए उदाहरण AccessDB = Connect_To_AccessDB("c:\temp\TestDB.accdb") AccessDB.Execute ("तालिका बनाएं tbl_test3 (संख्या संख्या, प्रथम नाम चार) , अंतिम नाम चार)") 'एक बाहरी डेटाबेस को बंद करने के लिए उदाहरण AccessDB। बंद करें AccessDB = कुछ भी नहीं 'उदाहरण एक बाहरी डेटाबेस फ़ाइल को हटाने के लिए (.accdb) 'मार ("c:\temp\TestDB.accdb") 'उदाहरण एक्सेस बंद करने के लिए 'DoCmd.Quit End Sub
एक्सेस डेटाबेस लॉगिन
यह वीबीए फ़ंक्शन तालिका tblUsers के विरुद्ध दर्ज किए गए उपयोगकर्ता नाम और पासवर्ड की जांच करके लॉगिन का उपयोग करता है। इस फ़ंक्शन के काम करने के लिए, आपको पासवर्ड और उपयोगकर्ता नाम फ़ील्ड के साथ tblUsers तालिका बनाने की आवश्यकता होगी।
सार्वजनिक समारोह UserLogin (स्ट्रिंग के रूप में उपयोगकर्ता नाम, स्ट्रिंग के रूप में पासवर्ड) 'जांचें कि क्या उपयोगकर्ता वर्तमान डेटाबेस की tblUsers तालिका में मौजूद है। बूलियन CheckInCurrentDatabase के रूप में Dim CheckInCurrentDatabase = True यदि Nz (उपयोगकर्ता नाम, "") = "" तो MsgBox "आपको उपयोगकर्ता नाम दर्ज करना होगा।", vbInformation Exit Function ElseIf Nz (पासवर्ड, "") = "" फिर MsgBox "आपको दर्ज करना होगा पासवर्ड।", vbInformation एग्जिट फंक्शन एंड अगर CheckInCurrentDatabase = True है तो 'यूजर क्रेडेंशियल वेरिफाई करें अगर Nz(DCount("UserName", "tblUsers", "[UserName] = '" & Nz(UserName, "") &"'" ), 0) = 0 फिर MsgBox "अमान्य उपयोगकर्ता नाम!", vbExclaration Exit Function ElseIf Nz(Password, "") Nz(DLookup("Password", "tblUsers", "[UserName] = '" & Nz(UserName, " ") और "'"), "") फिर MsgBox "अमान्य पासवर्ड!", vbExclaration Exit Function ElseIf DCount("UserName", "tblUsers", "[UserName] = '" & Nz(UserName, "") & " '")> 0 फिर स्ट्रिंग strPW = Nz (DLookup ("पासवर्ड", "tblUsers", "[उपयोगकर्ता नाम] = '" और Nz (उपयोगकर्ता नाम, "") और "'"), "") के रूप में मंद strPW यदि Nz (पासवर्ड, "") = strPW फिर 'यूजरनेम और पासवर्ड को ग्लोबल वेरिएबल्स TempVars के रूप में सेट करें। "CurrentUserName", Nz (UserName, "") TempVars जोड़ें। "Cur" जोड़ें RentUserPassword", Nz (पासवर्ड, "") MsgBox "सफलतापूर्वक लॉग इन किया", vb विस्मयादिबोधक अंत यदि समाप्त हो तो 'उपयोगकर्ता नाम और पासवर्ड को ग्लोबल वेरिएबल्स TempVars के रूप में सेट करें। "CurrentUserName", Nz (उपयोगकर्ता नाम, "") TempVars जोड़ें। "CurrentUserPassword जोड़ें ", Nz (पासवर्ड, "") MsgBox "सफलतापूर्वक लॉग इन किया", vbExक्लेमेशन एंड इफ एंड फंक्शन
आप इस तरह के फ़ंक्शन को कॉल कर सकते हैं:
निजी उप UserLogin_Example () VBA_Access_General.UserLogin ("उपयोगकर्ता नाम", "पासवर्ड") अंत उप पर कॉल करें
