Visual COBOL verbinden met 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.

Het MySQL ODBC-stuurprogramma installeren

1. Download het MySQL ODBC-stuurprogramma voor uw Windows-platform. (Registratie vereist.)
2. Installeer en licentieer het MySQL ODBC-stuurprogramma op de computer waarop Visual COBOL is geïnstalleerd.

   Om dit te doen, voert u de bestandsdistributie uit die u in de vorige stap heeft gedownload en volgt u de instructies op het scherm.

   Het installatieprogramma start de Easysoft License Manager, omdat u de MySQL ODBC Driver niet kunt gebruiken totdat een licentie is verkregen.

   De volgende soorten licenties zijn beschikbaar:

   • Gratis proeflicentie met beperkte tijd die u gratis en onbeperkt gebruik van het product geeft voor een beperkte periode (meestal 14 dagen).
   • Volledige licentie als je het product hebt gekocht. Bij aankoop van het product krijgt u een autorisatiecode die u gebruikt om een ​​licentie te verkrijgen
3. Voer in Easysoft License Manager uw gegevens in.

   U MOET de velden Naam, E-mailadres en Bedrijf invoeren.

   Het e-mailadres MOET hetzelfde zijn als het adres dat is gebruikt om u te registreren en te downloaden van de Easysoft-website, anders kunt u geen proeflicenties verkrijgen.

4. Kies Licentie aanvragen.

   U wordt gevraagd om een ​​licentietype.

5. Voer een van de volgende handelingen uit:
   • Klik voor een proeflicentie op Time Limited Trial en klik vervolgens op Volgende.

     De licentiebeheerder vraagt ​​welke software u in licentie geeft. Selecteer Easysoft MySQL ODBC-stuurprogramma in de vervolgkeuzelijst en klik vervolgens op Volgende.

   • Als u een autorisatiecode voor een gekochte licentie hebt verkregen, selecteert u Licentie niet-verlopen en klikt u op Volgende.

     De licentiebeheerder vraagt ​​om uw autorisatiecode.

     Voer de autorisatiecode in en klik vervolgens op Volgende.

6. De Licentiemanager geeft een samenvatting weer van de informatie die u hebt ingevoerd en stelt u in staat de methode te kiezen om uw licentie aan te vragen.
7. Voer een van de volgende handelingen uit:
   • Kies Online Verzoek als uw machine is verbonden met internet en uitgaande verbindingen kan maken met poort 8884.

     De License Manager stuurt vervolgens een verzoek naar de Easysoft-licentieserver om uw licentiesleutel automatisch te activeren. Dit is de snelste methode en zorgt ervoor dat uw gegevens onmiddellijk worden ingevoerd in onze ondersteuningsdatabase.

   • De overige drie opties (e-mailverzoek, afdrukverzoek en weergaveverzoek) zijn allemaal manieren om een ​​licentie te verkrijgen als uw machine offline is (d.w.z. geen verbinding met internet heeft).

     Elk van deze methoden houdt in dat u Easysoft informatie verstrekt, waaronder uw machinenummer (een nummer dat uniek is voor uw machine) en vervolgens wacht op het ontvangen van uw licentiesleutel.

     In plaats van uw gegevens naar Easysoft te e-mailen, kunt u ze rechtstreeks op de Easysoft-website invoeren en wordt uw licentiesleutel automatisch naar u gemaild.

     Om deze methode te gebruiken, klikt u op Verzoek bekijken en gaat u naar:

     • Pagina proeflicentie
     • Volledige licentiepagina

     Voer op de pagina Licentieverlening uw machinenummer (en autorisatiecode voor gekochte licentie) in, klik op Verzenden en uw licentiesleutel wordt naar u gemaild.

     Wanneer u de licentiesleutel ontvangt, kunt u deze activeren door te dubbelklikken op de e-mailbijlage of door te klikken op Licentie invoeren in het hoofdscherm van Licentiebeheer en de licentiesleutel in het dialoogvenster te plakken.

   • Kies Voltooien om Licentiebeheer af te sluiten.

     De installatie is voltooid.

Een ODBC-gegevensbron configureren

Voordat u het MySQL ODBC-stuurprogramma kunt gebruiken om uw toepassing met MySQL te verbinden, moet u een ODBC-gegevensbron configureren. Een ODBC-gegevensbron slaat de verbindingsdetails op voor de doeldatabase (bijv. MySQL) en het ODBC-stuurprogramma dat nodig is om er verbinding mee te maken (bijv. het MySQL ODBC-stuurprogramma).

U configureert ODBC-gegevensbronnen in ODBC Administrator, dat bij Windows wordt geleverd. Om ODBC Administrator uit te voeren, typt u in het dialoogvenster Uitvoeren van Windows:

%windir%\syswow64\odbcad32.exe

Gebruik ODBC Administrator om een ​​MySQL ODBC Driver-gegevensbron te maken:

1. Kies het tabblad Systeem-DSN en kies vervolgens Toevoegen.
2. Kies in het dialoogvenster Nieuwe gegevensbron maken de optie Easysoft ODBC-MySQL-stuurprogramma en kies vervolgens Voltooien.
3. Vul deze velden in Dialoogvenster Easysoft ODBC-MySQL Driver DSN Setup:

   Instelling	Waarde
   DSN	MySQLODBCDataSource
   Database	Medewerkers Opmerking Dit is de database waarvoor het codevoorbeeld is ontworpen om mee te werken.
   Gebruikersnaam	De naam van uw MySQL-gebruiker.
   Wachtwoord	Het wachtwoord voor uw MySQL-gebruiker.
   Server	De hostnaam of het IP-adres van de machine waarop uw MySQL-server draait.

4. Gebruik de knop Test om te controleren of u met succes verbinding kunt maken met uw MySQL-database.

Visual COBOL verbinden met MySQL

Visual COBOL gebruikt een ODBC-stuurprogramma om te communiceren met een externe gegevensbron. ODBC is een technologie voor gegevenstoegang, waarvan de Microsoft-implementatie bij Windows wordt geleverd. U kunt het MySQL ODBC-stuurprogramma gebruiken om Visual COBOL te verbinden met een MySQL-database, zodat u kunt werken met MySQL-gegevens vanuit een COBOL-programma.

1. Maak in Visual Studio een nieuwe Templates> COBOL> Native> Console Application.
2. Vervang de sjablooncode door de code aan het begin van dit artikel.
3. Voer het programma uit.