VisualCOBOLを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.

MySQLODBCドライバーのインストール

Windowsプラットフォーム用のMySQLODBCドライバーをダウンロードします。（登録が必要です。）
VisualCOBOLがインストールされているマシンにMySQLODBCドライバーをインストールしてライセンスを取得します。
これを行うには、前の手順でダウンロードしたファイル配布を実行し、画面の指示に従います。

ライセンスを取得するまでMySQLODBCドライバーを使用できないため、インストールプログラムはEasysoftLicenseManagerを起動します。

次の種類のライセンスを利用できます。
- 期間限定の無料試用ライセンス。期間限定（通常は14日間）で製品を無料で無制限に使用できます。
- 製品を購入した場合はフルライセンス。製品を購入すると、ライセンスを取得するために使用する認証コードが与えられます
Easysoft License Managerで、詳細を入力します。
[名前]、[電子メールアドレス]、および[会社]フィールドに入力する必要があります。

電子メールアドレスは、Easysoft Webサイトからの登録およびダウンロードに使用されるアドレスと同じである必要があります。同じでない場合、試用ライセンスを取得できません。
リクエストライセンスを選択します。
ライセンスの種類を尋ねられます。
次のいずれかを実行します：
- 試用ライセンスの場合は、[期間限定試用]をクリックしてから、[次へ]をクリックします。
  License Managerは、ライセンスを取得しているソフトウェアを尋ねます。ドロップダウンリストからEasysoftMySQLODBC Driverを選択し、[次へ]をクリックします。
- 購入したライセンスの認証コードを取得した場合は、[有効期限が切れていないライセンス]を選択し、[次へ]をクリックします。
  LicenseManagerが認証コードを要求します。
  
  承認コードを入力し、[次へ]をクリックします。
License Managerは、入力した情報の概要を表示し、ライセンスの申請方法を選択できるようにします。
次のいずれかを実行します：
- マシンがインターネットに接続されていて、ポート8884に発信接続できる場合は、[オンラインリクエスト]を選択します。
  次に、ライセンスマネージャはEasysoftライセンスサーバーにリクエストを送信して、ライセンスキーを自動的にアクティブ化します。これが最も迅速な方法であり、詳細がサポートデータベースにすぐに入力されます。
- 残りの3つのオプション（電子メール要求、印刷要求、表示要求）はすべて、マシンがオフラインの場合（つまり、インターネットに接続していない場合）にライセンスを取得する方法です。
  これらの各方法では、Easysoftにマシン番号（マシンに固有の番号）などの情報を提供し、ライセンスキーの受信を待機します。
  
  Easysoftに詳細を電子メールで送信する代わりに、Easysoft Webサイトで直接入力すると、ライセンスキーが自動的に電子メールで送信されます。
  
  この方法を使用するには、[リクエストの表示]をクリックして、次のURLにアクセスします。
  - 試用ライセンスページ
  - フルライセンスページ
  [ライセンス]ページで、マシン番号（および購入したライセンスの認証コード）を入力し、[送信]をクリックすると、ライセンスキーが電子メールで送信されます。
  
  ライセンスキーを受け取ったら、電子メールの添付ファイルをダブルクリックするか、ライセンスマネージャーのメイン画面で[ライセンスの入力]をクリックして、ダイアログボックスにライセンスキーを貼り付けることで、ライセンスキーをアクティブ化できます。
- [完了]を選択してライセンスマネージャーを終了します。
  インストールが完了しました。

ODBCデータソースの構成

MySQL ODBCドライバーを使用してアプリケーションをMySQLに接続する前に、ODBCデータソースを構成する必要があります。 ODBCデータソースには、ターゲットデータベース（MySQLなど）とそれに接続するために必要なODBCドライバー（MySQL ODBCドライバーなど）の接続の詳細が格納されます。

ODBCデータソースは、Windowsに含まれているODBCAdministratorで構成します。 ODBC Administratorを実行するには、[Windowsの実行]ダイアログボックスで次のように入力します。

%windir%\syswow64\odbcad32.exe

ODBCAdministratorを使用してMySQLODBCドライバーデータソースを作成します：

[システムDSN]タブを選択し、[追加]を選択します。
[新しいデータソースの作成]ダイアログボックスで、[Easysoft ODBC-MySQL Driver]を選択し、[Finish]を選択します。

次のフィールドに入力しますEasysoftODBC-MySQLDriver DSN Setupダイアログボックス：

設定	値
DSN	MySQLODBCDataSource
データベース	従業員注これは、コードサンプルが機能するように設計されているデータベースです。
ユーザー名	MySQLユーザーの名前。
パスワード	MySQLユーザーのパスワード。
サーバー	MySQLサーバーが実行されているマシンのホスト名またはIPアドレス。

[テスト]ボタンを使用して、MySQLデータベースに正常に接続できることを確認します。

VisualCOBOLをMySQLに接続する

Visual COBOLは、ODBCドライバーを使用して外部データソースと対話します。 ODBCはデータアクセステクノロジであり、そのMicrosoft実装はWindowsに含まれています。 MySQL ODBCドライバーを使用してVisualCOBOLをMySQLデータベースに接続し、COBOLプログラムからのMySQLデータを操作できるようにすることができます。

Visual Studioで、新しいテンプレート>COBOL>ネイティブ>コンソールアプリケーションを作成します。
テンプレートコードを、この記事の冒頭に示したコードに置き換えます。
プログラムを実行します。