Menghubungkan Visual COBOL ke 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.

Menginstal Driver ODBC MySQL

1. Unduh driver MySQL ODBC untuk platform Windows Anda. (Pendaftaran diperlukan.)
2. Instal dan lisensikan driver MySQL ODBC pada mesin tempat Visual COBOL diinstal.

   Untuk melakukannya, jalankan distribusi file yang Anda unduh pada langkah sebelumnya, dan ikuti petunjuk di layar.

   Program penginstalan memulai Easysoft License Manager, karena Anda tidak dapat menggunakan Driver ODBC MySQL sampai lisensi diperoleh.

   Jenis lisensi berikut tersedia:

   • Lisensi uji coba terbatas waktu gratis yang memberi Anda penggunaan produk secara gratis dan tidak terbatas untuk jangka waktu terbatas (biasanya 14 hari).
   • Lisensi penuh jika Anda telah membeli produk. Saat membeli produk, Anda diberikan kode otorisasi, yang Anda gunakan untuk mendapatkan lisensi
3. Di Easysoft License Manager, masukkan detail Anda.

   Anda HARUS memasukkan kolom Nama, Alamat E-Mail dan Perusahaan.

   Alamat E-Mail HARUS sama dengan alamat yang digunakan untuk mendaftar dan mengunduh dari situs web Easysoft atau Anda tidak akan dapat memperoleh lisensi percobaan.

4. Pilih Minta Lisensi.

   Anda dimintai jenis lisensi.

5. Lakukan salah satu dari yang berikut:
   • Untuk lisensi uji coba, klik Uji Coba Terbatas Waktu, lalu klik Berikutnya.

     Manajer Lisensi menanyakan perangkat lunak apa yang Anda lisensikan. Pilih Easysoft MySQL ODBC Driver dari daftar drop-down dan kemudian klik Next.

   • Jika Anda telah memperoleh kode otorisasi untuk lisensi yang dibeli, pilih Lisensi yang Tidak Kedaluwarsa, lalu klik Berikutnya.

     Manajer Lisensi meminta kode otorisasi Anda.

     Masukkan kode otorisasi lalu klik Berikutnya.

6. Manajer Lisensi menampilkan ringkasan informasi yang Anda masukkan dan memungkinkan Anda memilih metode pengajuan lisensi Anda.
7. Lakukan salah satu dari yang berikut:
   • Pilih Permintaan On-line jika mesin Anda terhubung ke internet dan dapat membuat koneksi keluar ke port 8884.

     Manajer Lisensi kemudian mengirimkan permintaan ke server lisensi Easysoft untuk mengaktifkan kunci lisensi Anda secara otomatis. Ini adalah metode tercepat dan mengakibatkan detail Anda segera dimasukkan ke dalam basis data dukungan kami.

   • Tiga opsi yang tersisa (Permintaan Email, Permintaan Cetak, dan Permintaan Tampilan) adalah semua cara untuk mendapatkan lisensi jika mesin Anda sedang offline (yaitu tidak memiliki koneksi ke internet).

     Masing-masing metode ini melibatkan penyediaan informasi kepada Easysoft termasuk nomor mesin Anda (nomor unik untuk mesin Anda) dan kemudian menunggu untuk menerima kunci lisensi Anda.

     Daripada mengirimkan detail Anda melalui email ke Easysoft, Anda dapat memasukkannya langsung di situs web Easysoft dan kunci lisensi Anda akan dikirimkan melalui email kepada Anda secara otomatis.

     Untuk menggunakan metode ini, klik Lihat Permintaan, lalu kunjungi:

     • Halaman lisensi percobaan
     • Halaman lisensi lengkap

     Di halaman Lisensi, masukkan nomor mesin Anda (dan kode otorisasi untuk lisensi yang dibeli), klik Kirim dan kunci lisensi Anda akan dikirimkan ke email Anda.

     Saat Anda menerima kunci lisensi, Anda dapat mengaktifkannya dengan mengklik dua kali lampiran email atau dengan mengklik Enter License pada layar utama License Manager dan menempelkan kunci lisensi ke dalam kotak dialog.

   • Pilih Selesai untuk keluar dari Manajer Lisensi.

     Instalasi selesai.

Mengonfigurasi Sumber Data ODBC

Sebelum Anda dapat menggunakan Driver ODBC MySQL untuk menghubungkan aplikasi Anda ke MySQL, Anda perlu mengonfigurasi sumber data ODBC. Sumber data ODBC menyimpan detail koneksi untuk database target (mis. MySQL) dan driver ODBC yang diperlukan untuk terhubung (mis. driver ODBC MySQL).

Anda mengkonfigurasi sumber data ODBC di ODBC Administrator, yang disertakan dengan Windows. Untuk menjalankan ODBC Administrator, di kotak dialog Windows Run, ketik:

%windir%\syswow64\odbcad32.exe

Gunakan Administrator ODBC untuk membuat sumber data Driver ODBC MySQL:

1. Pilih tab DSN Sistem, lalu pilih Tambah.
2. Dalam kotak dialog Buat Sumber Data Baru, pilih Easysoft ODBC-MySQL Driver, lalu pilih Selesai.
3. Lengkapi bidang ini Kotak dialog Easysoft ODBC-MySQL Driver DSN Setup:

   Setting	Nilai
   DSN	MySQLODBCDataSource
   Database	Karyawan Catatan Ini adalah database tempat sampel kode dirancang untuk digunakan.
   Nama Pengguna	Nama pengguna MySQL Anda.
   Kata Sandi	Kata sandi untuk pengguna MySQL Anda.
   Server	Nama host atau alamat IP dari mesin yang menjalankan server MySQL Anda.

4. Gunakan tombol Uji untuk memverifikasi bahwa Anda berhasil terhubung ke database MySQL Anda.

Menghubungkan Visual COBOL ke MySQL

Visual COBOL menggunakan pengandar ODBC untuk berinteraksi dengan sumber data eksternal. ODBC adalah teknologi akses data, implementasi Microsoft yang disertakan dengan Windows. Anda dapat menggunakan Driver ODBC MySQL untuk menghubungkan Visual COBOL ke Database MySQL, memungkinkan Anda untuk bekerja dengan data MySQL dari program COBOL.

1. Di Visual Studio, buat Templat> COBOL> Asli> Aplikasi Konsol baru.
2. Ganti kode template dengan kode yang ditampilkan di awal artikel ini.
3. Jalankan programnya.