Připojení Visual COBOL k 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.

Instalace ovladače ODBC MySQL

Stáhněte si ovladač MySQL ODBC pro vaši platformu Windows. (Je nutná registrace.)
Nainstalujte a licencujte ovladač MySQL ODBC na počítači, kde je nainstalován Visual COBOL.
Chcete-li to provést, spusťte distribuci souborů, kterou jste stáhli v předchozím kroku, a postupujte podle pokynů na obrazovce.

Instalační program spustí Easysoft License Manager, protože nemůžete používat MySQL ODBC Driver, dokud nezískáte licenci.

K dispozici jsou následující typy licencí:
- Bezplatná časově omezená zkušební licence, která vám poskytuje bezplatné a neomezené používání produktu po omezenou dobu (obvykle 14 dní).
- Plná licence, pokud jste produkt zakoupili. Při zakoupení produktu obdržíte autorizační kód, který použijete k získání licence
V aplikaci Easysoft License Manager zadejte své údaje.
MUSÍTE zadat pole Jméno, E-mailová adresa a Společnost.

E-mailová adresa MUSÍ být stejná jako adresa použitá pro registraci a stahování z webové stránky Easysoft, jinak nebudete moci získat zkušební licence.
Vyberte možnost Vyžádat licenci.
Budete požádáni o typ licence.
Proveďte jeden z následujících kroků:
- Pro zkušební licenci klikněte na Časově omezená zkušební verze a poté klikněte na Další.
  Správce licencí se vás zeptá, jaký software licencujete. Z rozevíracího seznamu vyberte ovladač Easysoft MySQL ODBC Driver a klepněte na tlačítko Další.
- Pokud jste získali autorizační kód pro zakoupenou licenci, vyberte Licence bez vypršení platnosti a poté klikněte na Další.
  Správce licencí požaduje váš autorizační kód.
  
  Zadejte autorizační kód a klikněte na Další.
Správce licencí zobrazí souhrn informací, které jste zadali, a umožní vám vybrat si způsob podání žádosti o licenci.
Proveďte jeden z následujících kroků:
- Pokud je váš počítač připojen k internetu a může vytvářet odchozí připojení k portu 8884, vyberte možnost On-line požadavek.
  Správce licencí poté odešle licenčnímu serveru Easysoft požadavek na automatickou aktivaci vašeho licenčního klíče. Toto je nejrychlejší metoda a výsledkem je okamžité zadání vašich údajů do naší databáze podpory.
- Zbývající tři možnosti (e-mailová žádost, tisková žádost a žádost o zobrazení) představují všechny způsoby, jak získat licenci, pokud je váš počítač offline (tj. nemá připojení k internetu).
  Každá z těchto metod zahrnuje poskytnutí informací společnosti Easysoft včetně čísla vašeho počítače (číslo jedinečného pro váš počítač) a poté čekání na obdržení vašeho licenčního klíče.
  
  Místo toho, abyste své údaje posílali e-mailem společnosti Easysoft, můžete je zadat přímo na webové stránce společnosti Easysoft a váš licenční klíč vám bude automaticky zaslán e-mailem.
  
  Chcete-li použít tuto metodu, klikněte na Zobrazit požadavek a poté navštivte:
  - Stránka zkušební licence
  - Stránka s plnou licencí
  Na stránce Licencování zadejte číslo svého počítače (a autorizační kód pro zakoupenou licenci), klikněte na Odeslat a váš licenční klíč vám bude zaslán e-mailem.
  
  Když obdržíte licenční klíč, můžete jej aktivovat buď dvojitým kliknutím na přílohu e-mailu, nebo kliknutím na tlačítko Zadat licenci na hlavní obrazovce Správce licencí a vložením licenčního klíče do dialogového okna.
- Výběrem možnosti Dokončit ukončíte Správce licencí.
  Instalace je dokončena.

Konfigurace zdroje dat ODBC

Než budete moci použít ovladač ODBC MySQL k připojení aplikace k MySQL, musíte nakonfigurovat zdroj dat ODBC. Zdroj dat ODBC ukládá podrobnosti o připojení pro cílovou databázi (např. MySQL) a ovladač ODBC, který je vyžadován pro připojení k ní (např. ovladač ODBC MySQL).

Zdroje dat ODBC konfigurujete ve správci ODBC, který je součástí systému Windows. Chcete-li spustit Správce ODBC, v dialogovém okně Spustit ve Windows zadejte:

%windir%\syswow64\odbcad32.exe

Použijte správce ODBC k vytvoření zdroje dat ovladače ODBC MySQL:

Vyberte kartu Systémové DSN a poté zvolte Přidat.
V dialogovém okně Vytvořit nový zdroj dat zvolte Easysoft ODBC-MySQL Driver a poté zvolte Dokončit.

Vyplňte tato pole Dialogové okno Nastavení DSN ovladače Easysoft ODBC-MySQL:

Nastavení	Hodnota
DSN	MySQLODBCDataSource
Databáze	Zaměstnanci Poznámka Toto je databáze, se kterou je ukázka kódu navržena.
Uživatelské jméno	Jméno vašeho uživatele MySQL.
Heslo	Heslo vašeho uživatele MySQL.
Server	Název hostitele nebo IP adresa počítače, na kterém běží váš server MySQL.

Pomocí tlačítka Test ověřte, že se můžete úspěšně připojit ke své databázi MySQL.

Připojení Visual COBOL k MySQL

Visual COBOL používá ovladač ODBC k interakci s externím zdrojem dat. ODBC je technologie pro přístup k datům, jejíž implementace společnosti Microsoft je součástí systému Windows. Ovladač MySQL ODBC Driver můžete použít k připojení Visual COBOL k databázi MySQL, což vám umožní pracovat s daty MySQL z programu COBOL.

Ve Visual Studiu vytvořte nové Šablony> COBOL> Nativní> Konzolová aplikace.
Nahraďte kód šablony kódem uvedeným na začátku tohoto článku.
Spusťte program.