Kết nối Visual COBOL với 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.

Cài đặt Trình điều khiển ODBC MySQL

Tải xuống trình điều khiển MySQL ODBC cho nền tảng Windows của bạn. (Cần đăng ký.)
Cài đặt và cấp phép trình điều khiển MySQL ODBC trên máy có cài đặt Visual COBOL.
Để thực hiện việc này, hãy thực hiện phân phối tệp mà bạn đã tải xuống ở bước trước và làm theo hướng dẫn trên màn hình.

Chương trình cài đặt khởi động Trình quản lý Giấy phép Easysoft, vì bạn không thể sử dụng Trình điều khiển ODBC MySQL cho đến khi có giấy phép.

Có các loại giấy phép sau:
- Giấy phép dùng thử miễn phí có giới hạn thời gian cho phép bạn sử dụng sản phẩm miễn phí và không hạn chế trong một thời gian giới hạn (thường là 14 ngày).
- Giấy phép đầy đủ nếu bạn đã mua sản phẩm. Khi mua sản phẩm, bạn được cấp mã ủy quyền, mã này bạn sử dụng để xin giấy phép
Trong Trình quản lý Giấy phép Easysoft, hãy nhập thông tin chi tiết của bạn.
Bạn PHẢI nhập các trường Tên, Địa chỉ Email và Công ty.

Địa chỉ E-Mail PHẢI giống với địa chỉ được sử dụng để đăng ký và tải xuống từ trang web Easysoft, nếu không bạn sẽ không thể nhận được giấy phép dùng thử.
Chọn Yêu cầu Giấy phép.
Bạn được yêu cầu cung cấp loại giấy phép.
Thực hiện một trong các thao tác sau:
- Để có giấy phép dùng thử, hãy nhấp vào Bản dùng thử có giới hạn thời gian và sau đó nhấp vào Tiếp theo.
  Người quản lý Giấy phép hỏi bạn đang cấp phép phần mềm nào. Chọn Easysoft MySQL ODBC Driver từ danh sách thả xuống, sau đó nhấp vào Tiếp theo.
- Nếu bạn đã nhận được mã ủy quyền cho giấy phép đã mua, hãy chọn Giấy phép không hết hạn và sau đó nhấp vào Tiếp theo.
  Trình quản lý Giấy phép yêu cầu mã ủy quyền của bạn.
  
  Nhập mã ủy quyền và sau đó nhấp vào Tiếp theo.
Trình quản lý Giấy phép hiển thị bản tóm tắt thông tin bạn đã nhập và cho phép bạn chọn phương pháp đăng ký giấy phép của mình.
Thực hiện một trong các thao tác sau:
- Chọn Yêu cầu trực tuyến nếu máy của bạn được kết nối với internet và có thể thực hiện các kết nối đi tới cổng 8884.
  Sau đó, Trình quản lý Giấy phép sẽ gửi yêu cầu đến máy chủ cấp phép Easysoft để kích hoạt khóa cấp phép của bạn một cách tự động. Đây là phương pháp nhanh nhất và kết quả là thông tin chi tiết của bạn sẽ được nhập ngay lập tức vào cơ sở dữ liệu hỗ trợ của chúng tôi.
- Ba tùy chọn còn lại (Yêu cầu Email, Yêu cầu In và Yêu cầu Xem) là tất cả các cách để có được giấy phép nếu máy của bạn không kết nối mạng (tức là không có kết nối với internet).
  Mỗi phương pháp này liên quan đến việc cung cấp cho Easysoft thông tin bao gồm số máy của bạn (một số duy nhất cho máy của bạn) và sau đó chờ nhận khóa cấp phép của bạn.
  
  Thay vì gửi email thông tin chi tiết của bạn đến Easysoft, bạn có thể nhập chúng trực tiếp tại trang web Easysoft và khóa cấp phép của bạn sẽ được gửi tự động qua email cho bạn.
  
  Để sử dụng phương pháp này, hãy bấm Xem Yêu cầu, sau đó truy cập:
  - Trang giấy phép dùng thử
  - Trang giấy phép đầy đủ
  Trong trang Cấp phép, nhập số máy của bạn (và mã ủy quyền cho giấy phép đã mua), nhấp vào Gửi và khóa cấp phép của bạn sẽ được gửi qua email cho bạn.
  
  Khi bạn nhận được khóa cấp phép, bạn có thể kích hoạt nó bằng cách nhấp đúp vào tệp đính kèm email hoặc bằng cách nhấp vào Nhập Giấy phép trên màn hình chính của Trình quản lý Giấy phép và dán khóa cấp phép vào hộp thoại.
- Chọn Hoàn tất để thoát khỏi Trình quản lý Giấy phép.
  Quá trình cài đặt hoàn tất.

Định cấu hình Nguồn dữ liệu ODBC

Trước khi bạn có thể sử dụng MySQL ODBC Driver để kết nối ứng dụng của bạn với MySQL, bạn cần định cấu hình nguồn dữ liệu ODBC. Nguồn dữ liệu ODBC lưu trữ chi tiết kết nối cho cơ sở dữ liệu đích (ví dụ:MySQL) và trình điều khiển ODBC được yêu cầu để kết nối với nó (ví dụ:trình điều khiển ODBC MySQL).

Bạn định cấu hình nguồn dữ liệu ODBC trong Quản trị viên ODBC, được bao gồm trong Windows. Để chạy Quản trị viên ODBC, trong hộp thoại Chạy Windows, nhập:

%windir%\syswow64\odbcad32.exe

Sử dụng Quản trị viên ODBC để tạo nguồn dữ liệu Trình điều khiển ODBC MySQL:

Chọn tab Hệ thống DSN, sau đó chọn Thêm.
Trong hộp thoại Tạo Nguồn Dữ liệu Mới, chọn Trình điều khiển Easysoft ODBC-MySQL, rồi chọn Kết thúc.

Hoàn thành các trường này Hộp thoại Thiết lập Trình điều khiển DSN Easysoft ODBC-MySQL:

Setting	Giá trị
DSN	MySQLODBCDataSource
Cơ sở dữ liệu	Nhân viên Lưu ý Đây là cơ sở dữ liệu mà mẫu mã được thiết kế để hoạt động.
Tên người dùng	Tên của người dùng MySQL của bạn.
Mật khẩu	Mật khẩu cho người dùng MySQL của bạn.
Máy chủ	Tên máy chủ hoặc địa chỉ IP của máy mà máy chủ MySQL của bạn đang chạy.

Sử dụng nút Kiểm tra để xác minh rằng bạn có thể kết nối thành công với cơ sở dữ liệu MySQL của mình.

Kết nối Visual COBOL với MySQL

Visual COBOL sử dụng trình điều khiển ODBC để tương tác với nguồn dữ liệu bên ngoài. ODBC là một công nghệ truy cập dữ liệu, được Microsoft triển khai trong đó có trong Windows. Bạn có thể sử dụng Trình điều khiển ODBC của MySQL để kết nối Visual COBOL với Cơ sở dữ liệu MySQL, cho phép bạn làm việc với dữ liệu MySQL từ chương trình COBOL.

Trong Visual Studio, tạo Mẫu> COBOL> Gốc> Ứng dụng bảng điều khiển mới.
Thay thế mã mẫu bằng mã hiển thị ở đầu bài viết này.
Chạy chương trình.