विजुअल COBOL को MySQL से कनेक्ट करना

      $SET SQL(DBMAN=ODBC)
      ****************************************************************
      * Visual COBOL -> ODBC -> MySQL example.
      *
      * Retrieves records from the MySQL Employees sample database.
      * Prerequisites: Configure an ODBC data source for the Easysoft
      * MySQL ODBC driver that connects to the MySQL Employees database
      *
      ****************************************************************
       working-storage section.

           EXEC SQL INCLUDE SQLCA END-EXEC.
           01  pempno             pic x(5).
           01  pfirstname         pic x(20).
           01  plastname          pic x(20).
           EXEC SQL BEGIN DECLARE SECTION END-EXEC.

       procedure division.
       main-para.

      *  Replace MySQLODBCDataSource with the name of an ODBC data
      *  source that connects to the MySQL Employees database. Replace
      *  mysqluser and mysqlpassword with the details for a user who has
      *  permissions to access this database.
           EXEC SQL CONNECT TO "MySQLODBCDataSource" USER mysqluser
           USING mysqlpassword
           END-EXEC.

       loop-point.
          if sqlcode not = 0
                display "Error: not connected"
                display sqlcode
                display sqlerrmc
                stop run
           end-if

            perform until exit
               display " "
               display "Enter Emp_No (Eg 10001, blank to end): "
                       with no advancing
               accept pempno
               if pempno = SPACES
                   exit perform
               end-if
               EXEC SQL
                   SELECT first_name, last_name
                   INTO :pfirstname, :plastname
                       FROM employees
                       WHERE emp_no = :pempno
               END-EXEC

               if sqlcode not = 0
                   if sqlcode = 100
                       display "No employee found"
                   else
                       display sqlcode
                       display sqlerrmc
                   end-if
               else
                   display "First name for " pempno " is " pfirstname
                   display "Last name    for " pempno " is " plastname
               end-if

           end-perform

           EXEC SQL
               DISCONNECT CURRENT
           END-EXEC

       end program Program1.

MySQL ODBC ड्राइवर स्थापित करना

1. अपने विंडोज प्लेटफॉर्म के लिए MySQL ODBC ड्राइवर डाउनलोड करें। (पंजीकरण आवश्यक।)
2. MySQL ODBC ड्राइवर को उस मशीन पर स्थापित और लाइसेंस दें जहां Visual COBOL स्थापित है।

   ऐसा करने के लिए, फ़ाइल वितरण निष्पादित करें जिसे आपने पिछले चरण में डाउनलोड किया था, और स्क्रीन पर दिए गए निर्देशों का पालन करें।

   इंस्टाल प्रोग्राम Easysoft लाइसेंस मैनेजर शुरू करता है, क्योंकि आप लाइसेंस प्राप्त होने तक MySQL ODBC ड्राइवर का उपयोग नहीं कर सकते।

   निम्न प्रकार के लाइसेंस उपलब्ध हैं:

   • निःशुल्क समय-सीमित परीक्षण लाइसेंस जो आपको सीमित अवधि (आमतौर पर 14 दिनों) के लिए उत्पाद का निःशुल्क और अप्रतिबंधित उपयोग देता है।
   • यदि आपने उत्पाद खरीदा है तो पूर्ण लाइसेंस। उत्पाद खरीदने पर आपको एक प्राधिकरण कोड दिया जाता है, जिसका उपयोग आप लाइसेंस प्राप्त करने के लिए करते हैं
3. ईज़ीसॉफ्ट लाइसेंस मैनेजर में, अपना विवरण दर्ज करें।

   आपको नाम, ई-मेल पता और कंपनी फ़ील्ड दर्ज करना होगा।

   ई-मेल पता वही होना चाहिए जो ईज़ीसॉफ्ट वेब साइट से पंजीकरण और डाउनलोड करने के लिए उपयोग किया गया पता है या आप परीक्षण लाइसेंस प्राप्त करने में असमर्थ होंगे।

4. अनुरोध लाइसेंस चुनें।

   आपसे लाइसेंस प्रकार मांगा जाता है।

5. निम्न में से कोई एक कार्य करें:
   • ट्रायल लाइसेंस के लिए टाइम लिमिटेड ट्रायल पर क्लिक करें और फिर नेक्स्ट पर क्लिक करें।

     लाइसेंस प्रबंधक पूछता है कि आप किस सॉफ़्टवेयर को लाइसेंस दे रहे हैं। ड्रॉप-डाउन सूची से Easysoft MySQL ODBC ड्राइवर का चयन करें और फिर अगला क्लिक करें।

   • यदि आपने खरीदे गए लाइसेंस के लिए एक प्राधिकरण कोड प्राप्त किया है, तो गैर-समाप्ति लाइसेंस का चयन करें और फिर अगला क्लिक करें।

     लाइसेंस प्रबंधक आपके प्राधिकरण कोड का अनुरोध करता है।

     प्राधिकरण कोड दर्ज करें और फिर अगला क्लिक करें।

6. लाइसेंस प्रबंधक आपके द्वारा दर्ज की गई जानकारी का सारांश प्रदर्शित करता है और आपको अपने लाइसेंस के लिए आवेदन करने की विधि चुनने की अनुमति देता है।
7. निम्न में से कोई एक कार्य करें:
   • ऑन-लाइन अनुरोध चुनें यदि आपकी मशीन इंटरनेट से कनेक्टेड है और पोर्ट 8884 से आउटगोइंग कनेक्शन बना सकती है।

     लाइसेंस प्रबंधक तब Easysoft लाइसेंस सर्वर को आपकी लाइसेंस कुंजी को स्वचालित रूप से सक्रिय करने के लिए एक अनुरोध भेजता है। यह सबसे तेज़ तरीका है और आपके विवरण हमारे समर्थन डेटाबेस में तुरंत दर्ज किए जाते हैं।

   • शेष तीन विकल्प (ईमेल अनुरोध, प्रिंट अनुरोध और अनुरोध देखें) लाइसेंस प्राप्त करने के सभी तरीके हैं यदि आपकी मशीन ऑफ़लाइन है (यानी इंटरनेट से कनेक्शन नहीं है)।

     इन तरीकों में से प्रत्येक में आपके मशीन नंबर (आपकी मशीन के लिए अद्वितीय संख्या) सहित जानकारी के साथ Easysoft प्रदान करना और फिर आपकी लाइसेंस कुंजी प्राप्त करने की प्रतीक्षा करना शामिल है।

     Easysoft को अपने विवरण ईमेल करने के बजाय, आप उन्हें सीधे Easysoft वेब साइट पर दर्ज कर सकते हैं और आपकी लाइसेंस कुंजी आपको स्वचालित रूप से ईमेल कर दी जाएगी।

     इस पद्धति का उपयोग करने के लिए, अनुरोध देखें क्लिक करें, और फिर यहां जाएं:

     • परीक्षण लाइसेंस पृष्ठ
     • पूर्ण लाइसेंस पृष्ठ

     लाइसेंसिंग पृष्ठ में, अपना मशीन नंबर (और खरीदे गए लाइसेंस के लिए प्राधिकरण कोड) दर्ज करें, सबमिट पर क्लिक करें और आपकी लाइसेंस कुंजी आपको ईमेल कर दी जाएगी।

     जब आप लाइसेंस कुंजी प्राप्त करते हैं, तो आप इसे या तो ईमेल अनुलग्नक पर डबल-क्लिक करके या लाइसेंस प्रबंधक मुख्य स्क्रीन पर लाइसेंस दर्ज करें पर क्लिक करके और लाइसेंस कुंजी को संवाद बॉक्स में चिपकाकर सक्रिय कर सकते हैं।

   • लाइसेंस प्रबंधक से बाहर निकलने के लिए समाप्त चुनें।

     स्थापना पूर्ण हो गई है।

ODBC डेटा स्रोत को कॉन्फ़िगर करना

इससे पहले कि आप अपने एप्लिकेशन को MySQL से कनेक्ट करने के लिए MySQL ODBC ड्राइवर का उपयोग कर सकें, आपको ODBC डेटा स्रोत को कॉन्फ़िगर करने की आवश्यकता है। एक ODBC डेटा स्रोत लक्ष्य डेटाबेस (जैसे MySQL) और उससे कनेक्ट होने के लिए आवश्यक ODBC ड्राइवर (जैसे MySQL ODBC ड्राइवर) के लिए कनेक्शन विवरण संग्रहीत करता है।

आप ODBC डेटा स्रोतों को ODBC व्यवस्थापक में कॉन्फ़िगर करते हैं, जो कि Windows के साथ शामिल है। ODBC एडमिनिस्ट्रेटर को चलाने के लिए, विंडोज रन डायलॉग बॉक्स में टाइप करें:

%windir%\syswow64\odbcad32.exe

MySQL ODBC ड्राइवर डेटा स्रोत बनाने के लिए ODBC व्यवस्थापक का उपयोग करें:

1. सिस्टम डीएसएन टैब चुनें, और फिर जोड़ें चुनें।
2. नया डेटा स्रोत बनाएं संवाद बॉक्स में, Easysoft ODBC-MySQL ड्राइवर चुनें, और फिर समाप्त करें चुनें।
3. इन क्षेत्रों को पूरा करें Easysoft ODBC-MySQL ड्राइवर DSN सेटअप डायलॉग बॉक्स: <थ>मान

   सेटिंग
   DSN	MySQLODBCDataSource
   डेटाबेस	कर्मचारी नोट यह वह डेटाबेस है जिसके साथ कोड नमूना काम करने के लिए डिज़ाइन किया गया है।
   उपयोगकर्ता नाम	आपके MySQL उपयोगकर्ता का नाम।
   पासवर्ड	आपके MySQL उपयोगकर्ता के लिए पासवर्ड।
   सर्वर	मशीन का होस्ट नाम या IP पता जिस पर आपका MySQL सर्वर चल रहा है।

4. यह सत्यापित करने के लिए परीक्षण बटन का उपयोग करें कि आप अपने MySQL डेटाबेस से सफलतापूर्वक जुड़ सकते हैं।

विजुअल COBOL को MySQL से कनेक्ट करना

विजुअल COBOL बाहरी डेटा स्रोत के साथ इंटरैक्ट करने के लिए ODBC ड्राइवर का उपयोग करता है। ODBC एक डेटा एक्सेस तकनीक है, जिसका Microsoft कार्यान्वयन विंडोज के साथ शामिल है। आप विजुअल COBOL को MySQL डेटाबेस से कनेक्ट करने के लिए MySQL ODBC ड्राइवर का उपयोग कर सकते हैं, जिससे आप COBOL प्रोग्राम से MySQL डेटा के साथ काम कर सकते हैं।

1. विजुअल स्टूडियो में, एक नया टेम्पलेट्स> COBOL> नेटिव> कंसोल एप्लिकेशन बनाएं।
2. टेम्पलेट कोड को इस लेख की शुरुआत में दिखाए गए कोड से बदलें।
3. कार्यक्रम चलाएँ।