Ansluter Visual COBOL till 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.

Installera MySQL ODBC-drivrutinen

Ladda ner MySQL ODBC-drivrutinen för din Windows-plattform. (Registrering krävs.)
Installera och licensiera MySQL ODBC-drivrutinen på maskinen där Visual COBOL är installerat.
För att göra detta, kör fildistributionen som du laddade ner i föregående steg och följ instruktionerna på skärmen.

Installationsprogrammet startar Easysoft License Manager, eftersom du inte kan använda MySQL ODBC-drivrutinen förrän en licens har erhållits.

Följande typer av licenser är tillgängliga:
- Gratis tidsbegränsad testlicens som ger dig fri och obegränsad användning av produkten under en begränsad period (vanligtvis 14 dagar).
- Fullständig licens om du har köpt produkten. När du köper produkten får du en auktoriseringskod som du använder för att få en licens
I Easysoft License Manager anger du dina uppgifter.
Du MÅSTE ange fälten Namn, E-postadress och Företag.

E-postadressen MÅSTE vara densamma som adressen som användes för att registrera och ladda ner från Easysofts webbplats, annars kommer du inte att kunna erhålla testlicenser.
Välj Begär licens.
Du ombeds ange en licenstyp.
Gör något av följande:
- För en testlicens klickar du på Tidsbegränsad provperiod och klickar sedan på Nästa.
  Licenshanteraren frågar vilken programvara du licensierar. Välj Easysoft MySQL ODBC-drivrutin från rullgardinsmenyn och klicka sedan på Nästa.
- Om du har erhållit en auktoriseringskod för en köpt licens, välj Non-expiring License och klicka sedan på Nästa.
  Licenshanteraren begär din auktoriseringskod.
  
  Ange auktoriseringskoden och klicka sedan på Nästa.
Licenshanteraren visar en sammanfattning av den information du angett och låter dig välja metod för att ansöka om din licens.
Gör något av följande:
- Välj Online-förfrågan om din maskin är ansluten till internet och kan göra utgående anslutningar till port 8884.
  Licenshanteraren skickar sedan en begäran till Easysofts licensserver för att aktivera din licensnyckel automatiskt. Detta är den snabbaste metoden och resulterar i att dina uppgifter omedelbart läggs in i vår supportdatabas.
- De återstående tre alternativen (e-postbegäran, utskriftsbegäran och Visa begäran) är alla sätt att få en licens om din maskin är offline (dvs. inte har en anslutning till internet).
  Var och en av dessa metoder innebär att Easysoft förses med information inklusive ditt maskinnummer (ett nummer som är unikt för din maskin) och sedan väntar på att få din licensnyckel.
  
  Istället för att e-posta dina uppgifter till Easysoft kan du ange dem direkt på Easysofts webbplats och din licensnyckel kommer automatiskt att skickas till dig via e-post.
  
  För att använda den här metoden, klicka på Visa begäran och besök sedan:
  - Provlicenssida
  - Fullständig licenssida
  På licenssidan anger du ditt maskinnummer (och auktoriseringskoden för köpt licens), klickar på Skicka och din licensnyckel kommer att skickas till dig via e-post.
  
  När du får licensnyckeln kan du aktivera den antingen genom att dubbelklicka på e-postbilagan eller genom att klicka på Enter License på huvudskärmen i License Manager och klistra in licensnyckeln i dialogrutan.
- Välj Slutför för att avsluta Licenshanteraren.
  Installationen är klar.

Konfigurera en ODBC-datakälla

Innan du kan använda MySQL ODBC-drivrutinen för att ansluta din applikation till MySQL måste du konfigurera en ODBC-datakälla. En ODBC-datakälla lagrar anslutningsdetaljerna för måldatabasen (t.ex. MySQL) och ODBC-drivrutinen som krävs för att ansluta till den (t.ex. MySQL ODBC-drivrutinen).

Du konfigurerar ODBC-datakällor i ODBC Administrator, som ingår i Windows. För att köra ODBC Administrator skriver du:

i dialogrutan Kör i Windows

%windir%\syswow64\odbcad32.exe

Använd ODBC Administrator för att skapa en MySQL ODBC Driver-datakälla:

Välj fliken System DSN och välj sedan Lägg till.
I dialogrutan Skapa ny datakälla väljer du Easysoft ODBC-MySQL-drivrutin och väljer sedan Slutför.

Fyll i dessa fält Easysoft ODBC-MySQL Driver DSN Setup dialogrutan:

Inställning	Värde
DSN	MySQLODBCDataSource
Databas	Anställda Obs Detta är databasen som kodexemplet är designat för att fungera med.
Användarnamn	Namnet på din MySQL-användare.
Lösenord	Lösenordet för din MySQL-användare.
Server	Värdnamnet eller IP-adressen för maskinen som din MySQL-server körs på.

Använd testknappen för att verifiera att du lyckas ansluta till din MySQL-databas.

Ansluter Visual COBOL till MySQL

Visual COBOL använder en ODBC-drivrutin för att interagera med en extern datakälla. ODBC är en dataåtkomstteknik, vars Microsoft-implementering ingår i Windows. Du kan använda MySQL ODBC-drivrutinen för att ansluta Visual COBOL till en MySQL-databas, vilket gör att du kan arbeta med MySQL-data från ett COBOL-program.

Skapa en ny Mallar> COBOL> Native> Konsolapplikation i Visual Studio.
Byt ut mallkoden mot koden som visas i början av den här artikeln.
Kör programmet.