एसक्यूएल वीबीए ट्यूटोरियल

स्ट्रक्चर्ड क्वेरी लैंग्वेज (एसक्यूएल) कंप्यूटर भाषा है जिसका उपयोग रिलेशनल डेटाबेस के प्रबंधन के लिए किया जाता है। अनुप्रयोगों के लिए विजुअल बेसिक (VBA) Microsoft द्वारा विकसित की गई प्रोग्रामिंग भाषा है जिसका उपयोग Microsoft Office अनुप्रयोगों के साथ गतिशील सामग्री बनाने के लिए किया जाता है। माइक्रोसॉफ्ट एक्सेस माइक्रोसॉफ्ट ऑफिस सूट के अंदर डेटाबेस प्रोग्राम है जो डेटा को प्रबंधित करने और व्यवस्थित डेटाबेस कार्यों को स्वचालन प्रदान करने के लिए एसक्यूएल और वीबीए दोनों का उपयोग करता है। Microsoft Access के पीछे प्रोग्रामिंग शेल का उपयोग करके, आप मुख्य डेटाबेस से जुड़ सकते हैं, डेटा खोज सकते हैं, नया डेटा जोड़ सकते हैं और SQL और VBA प्रोग्रामिंग कोड को मिलाकर डेटा हटा सकते हैं।

चरण 1

वह डेटाबेस खोलें जिसके साथ आप Microsoft Access में काम करना चाहते हैं। "डेटाबेस टूल्स" टैब और फिर "विजुअल बेसिक" पर क्लिक करके विजुअल बेसिक एडिटर खोलें।

चरण दो

विजुअल बेसिक एडिटर में "इन्सर्ट" और फिर "मॉड्यूल" पर क्लिक करें।

चरण 3

डेटाबेस से कनेक्ट करने के लिए कोड टाइप करें। डेटाबेस में SQL कथनों का उपयोग करने के लिए आपको एक कनेक्शन स्थापित करना होगा।

उप SQLट्यूटोरियल ()

 'डिम कॉन को ADODB के रूप में रखने के लिए अपने चर सेट करें। कनेक्शन' यह वास्तविक कनेक्शन है Dim rs ADODB के रूप में चुनें। ADODB के रूप में। 'डेटाबेस से कनेक्ट करने के लिए विवरण में टाइप करें जो आप चाहते हैं सेट कॉन = नया एडीओडीबी। कॉन के साथ कनेक्शन। कनेक्शनस्ट्रिंग = "प्रदाता = माइक्रोसॉफ्ट। जेट। ओएलईडीबी। 4.0;" &_ "डेटा स्रोत = C:\Documents\SampleDatabase.mdb"। ओपन एंड विथ 

अब आपका डेटाबेस से कनेक्शन हो गया है। इसके बाद, आप उन चरों को SQL स्टेटमेंट असाइन करेंगे जिन्हें आपने पहले ही ऊपर घोषित कर दिया है।

चरण 4

डेटाबेस से डेटा का चयन करने के लिए "SELECT" SQL स्टेटमेंट टाइप करें। एक चयन क्वेरी आमतौर पर इस तरह बनाई जाती है: "तालिका से कॉलम चुनें"। आप "WHERE" क्लॉज में जोड़कर SELECT स्टेटमेंट में मानदंड जोड़ सकते हैं। उदाहरण के लिए, आपके पास "ग्राहक" नामक एक तालिका है जिसे आप "स्मिथ" के अंतिम नाम वाले सभी ग्राहकों के लिए खोजना चाहते हैं। वीबीए और एसक्यूएल कोड इस तरह दिखेगा:

strSelectQuery = "चयन करें * tbl ग्राहकों से जहां अंतिम नाम = 'स्मिथ'

तारांकन (*) एक वाइल्डकार्ड है, जिसका अर्थ है कि आप "स्मिथ" के अंतिम नाम वाले किसी भी व्यक्ति पर सभी जानकारी, या कॉलम खींचना चाहते हैं। कुछ स्तंभों का चयन करने के लिए, आप उपयोग करेंगे:

strSelectQuery = "पहले नाम का चयन करें, tbl ग्राहकों से अंतिम नाम जहां अंतिम नाम = 'स्मिथ'"

चरण 5

यदि आप किसी तालिका से डेटा की पंक्तियों को हटाना चाहते हैं तो "DELETE" कथन टाइप करें। उसके लिए कोड है:

strDeleteQuery = "टीबीएल ग्राहकों से हटाएं जहां अंतिम नाम = 'स्मिथ'"

यह कथन उन सभी पंक्तियों को हटा देगा जहां ग्राहक का "ग्राहक" तालिका से "स्मिथ" का अंतिम नाम है। DELETE स्टेटमेंट के लिए मूल सिंटैक्स "तालिका से हटाएं जहां कॉलम = 'मान' है।"

चरण 6

तालिका में एक नई पंक्ति सम्मिलित करने के लिए सिंटैक्स में टाइप करें। "INSERT" कथन का प्रयोग करें।

strInsertQuery = "tblCustomers Values ​​में INSERT करें (जॉन, स्मिथ, 123 मेन स्ट्रीट, क्लीवलैंड, ओहियो)"

यदि आपके पास ग्राहक तालिका है जिसमें प्रथम नाम, अंतिम नाम, पता, शहर और राज्य कॉलम हैं, तो यह कथन डेटा में दाएं कॉलम में सम्मिलित होगा। अल्पविराम कोड को मूल्यों में प्रवेश करने से पहले अगले कॉलम पर जाने के लिए कहता है। सुनिश्चित करें कि आप तालिका में कॉलम के सही क्रम में मान टाइप कर रहे हैं ताकि आपका डेटा सुसंगत रहे।

चरण 7

डेटा की एक पंक्ति को बदलने के लिए SQL कथन में टाइप करें। यह "अद्यतन" कथन है।

strUpdateQuery = "अद्यतन tbl Customers SET LastName='Jones', First WHERE LastName='Smith'"

यह कथन उन सभी को बदल देता है जिनके पास "स्मिथ" का अंतिम नाम "जोन्स" और उनका पहला नाम "जिम" है। आप कॉलम को कॉमा से अलग करके एक UPDATE स्टेटमेंट में एक साथ डेटा के कई कॉलम बदल सकते हैं। एक अद्यतन के लिए मूल वाक्य रचना "अद्यतन तालिका SET column1=value1, column2=value2, column3=value3,... WHERE column = value" है।

VBA कोड टाइप करें जो क्वेरी चलाएगा और परिणामों को रिकॉर्डसेट में सहेजेगा। वीबीए कोड बंद करें।

rsSelect सेट करें = नया ADODB.Recordset

आरएस चयन के साथ

       सेट करें .ActiveConnection = Conn .CursorType = adOpenStatic .Source = strSelectQuery .Open 

के साथ समाप्त करना

सेट rsDelete = नया ADODB.Recordset

rsDelete के साथ

       सेट करें .ActiveConnection = Conn .CursorType = adOpenStatic .Source = strDeleteQuery .Open 

के साथ समाप्त करना

सेट rsInsert = नया ADODB.Recordset

rsInsert . के साथ

       सेट करें .ActiveConnection = Conn .CursorType = adOpenStatic .Source = strInsertQuery .Open 

के साथ समाप्त करना

rsUpdate सेट करें = नया ADODB.Recordset

rsDelect . के साथ

       सेट करें .ActiveConnection = Conn .CursorType = adOpenStatic .Source = strUpdateQuery .Open 

के साथ समाप्त करना

'एसक्यूएल स्टेटमेंट्स के माध्यम से आपके द्वारा एकत्र किए गए डेटा के साथ काम करने के लिए वीबीए कोड टाइप करें।

'आप प्रपत्रों में, अन्य तालिकाओं में या रिपोर्ट में पोस्ट करने के लिए डेटा का उपयोग कर सकते हैं।

'रिकॉर्डसेट बंद करें और आपके साथ कनेक्शन पूरा हो गया है'

rs चयन करें। बंद करें

rsDelete.बंद करें

आरएससम्मिलित करें।बंद करें

rsUpdate.बंद करें

अंत उप