Forbinder Visual COBOL til 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.

Installation af MySQL ODBC-driveren

1. Download MySQL ODBC-driveren til din Windows-platform. (Registrering påkrævet.)
2. Installer og licenser MySQL ODBC-driveren på den maskine, hvor Visual COBOL er installeret.

   For at gøre dette skal du udføre fildistributionen, som du downloadede i det forrige trin, og følge instruktionerne på skærmen.

   Installationsprogrammet starter Easysoft License Manager, fordi du ikke kan bruge MySQL ODBC-driveren, før en licens er opnået.

   Følgende licenstyper er tilgængelige:

   • Gratis tidsbegrænset prøvelicens, som giver dig gratis og ubegrænset brug af produktet i en begrænset periode (normalt 14 dage).
   • Fuld licens, hvis du har købt produktet. Ved køb af produktet får du en autorisationskode, som du bruger til at opnå en licens
3. Indtast dine oplysninger i Easysoft License Manager.

   Du SKAL indtaste felterne Navn, E-mailadresse og Firma.

   E-mail-adressen SKAL være den samme som den adresse, der blev brugt til at registrere og downloade fra Easysoft-webstedet, ellers vil du ikke være i stand til at få prøvelicenser.

4. Vælg Anmod om licens.

   Du bliver bedt om en licenstype.

5. Gør et af følgende:
   • For en prøvelicens skal du klikke på Tidsbegrænset prøveversion og derefter klikke på Næste.

     Licensadministratoren spørger, hvilken software du licenserer. Vælg Easysoft MySQL ODBC Driver fra rullelisten, og klik derefter på Næste.

   • Hvis du har fået en godkendelseskode til en købt licens, skal du vælge Ikke-udløbende licens og derefter klikke på Næste.

     Licensadministratoren anmoder om din autorisationskode.

     Indtast godkendelseskoden, og klik derefter på Næste.

6. Licensadministratoren viser en oversigt over de oplysninger, du har indtastet, og giver dig mulighed for at vælge metoden til at ansøge om din licens.
7. Gør et af følgende:
   • Vælg onlineanmodning, hvis din maskine er forbundet til internettet og kan oprette udgående forbindelser til port 8884.

     Licensadministratoren sender derefter en anmodning til Easysoft-licensserveren om at aktivere din licensnøgle automatisk. Dette er den hurtigste metode og resulterer i, at dine oplysninger straks indtastes i vores supportdatabase.

   • De resterende tre muligheder (e-mail-anmodning, udskriftsanmodning og se anmodning) er alle måder at få en licens på, hvis din maskine er offline (dvs. ikke har forbindelse til internettet).

     Hver af disse metoder involverer at give Easysoft oplysninger, herunder dit maskinnummer (et nummer, der er unikt for din maskine) og derefter vente på at modtage din licensnøgle.

     I stedet for at sende dine oplysninger til Easysoft via e-mail, kan du indtaste dem direkte på Easysofts websted, og din licensnøgle vil automatisk blive sendt til dig via e-mail.

     For at bruge denne metode skal du klikke på Vis anmodning og derefter gå til:

     • Prøvlicensside
     • Fuld licensside

     På siden Licens skal du indtaste dit maskinnummer (og autorisationskode for købt licens), klikke på Send, og din licensnøgle vil blive sendt til dig via e-mail.

     Når du modtager licensnøglen, kan du aktivere den enten ved at dobbeltklikke på den vedhæftede e-mail eller ved at klikke på Enter License på hovedskærmen i License Manager og indsætte licensnøglen i dialogboksen.

   • Vælg Udfør for at afslutte License Manager.

     Installationen er fuldført.

Konfiguration af en ODBC-datakilde

Før du kan bruge MySQL ODBC-driveren til at forbinde din applikation til MySQL, skal du konfigurere en ODBC-datakilde. En ODBC-datakilde gemmer forbindelsesdetaljerne for måldatabasen (f.eks. MySQL) og den ODBC-driver, der kræves for at oprette forbindelse til den (f.eks. MySQL ODBC-driveren).

Du konfigurerer ODBC-datakilder i ODBC Administrator, som er inkluderet i Windows. For at køre ODBC Administrator skal du i Windows Kør-dialogboksen skrive:

%windir%\syswow64\odbcad32.exe

Brug ODBC Administrator til at oprette en MySQL ODBC Driver datakilde:

1. Vælg fanen System DSN, og vælg derefter Tilføj.
2. Vælg Easysoft ODBC-MySQL-driver i dialogboksen Opret ny datakilde, og vælg derefter Udfør.
3. Udfyld disse felter Easysoft ODBC-MySQL Driver DSN Setup dialogboks:

   Indstilling	Værdi
   DSN	MySQLODBCDataSource
   Database	Medarbejdere Bemærk Dette er den database, som kodeeksemplet er designet til at arbejde med.
   Brugernavn	Navnet på din MySQL-bruger.
   Adgangskode	Adgangskoden til din MySQL-bruger.
   Server	Værtsnavnet eller IP-adressen på den maskine, som din MySQL-server kører på.

4. Brug knappen Test til at bekræfte, at du kan oprette forbindelse til din MySQL-database.

Forbinder Visual COBOL til MySQL

Visual COBOL bruger en ODBC-driver til at interagere med en ekstern datakilde. ODBC er en dataadgangsteknologi, hvis Microsoft-implementering er inkluderet i Windows. Du kan bruge MySQL ODBC-driveren til at forbinde Visual COBOL til en MySQL-database, så du kan arbejde med MySQL-data fra et COBOL-program.

1. Opret en ny Skabeloner> COBOL> Native> Konsolapplikation i Visual Studio.
2. Erstat skabelonkoden med koden vist i starten af ​​denne artikel.
3. Kør programmet.