Conectando Visual COBOL ao 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.

Instalando o driver ODBC do MySQL

1. Faça o download do driver ODBC do MySQL para sua plataforma Windows. (Registro obrigatório.)
2. Instale e licencie o driver MySQL ODBC na máquina em que o Visual COBOL está instalado.
   Para fazer isso, execute a distribuição de arquivos que você baixou na etapa anterior e siga as instruções na tela.
   
   O programa de instalação inicia o Easysoft License Manager, porque você não pode usar o MySQL ODBC Driver até que uma licença seja obtida.
   
   Os seguintes tipos de licença estão disponíveis:
   
   • Licença de avaliação gratuita por tempo limitado que oferece uso gratuito e irrestrito do produto por um período limitado (geralmente 14 dias).
   • Licença completa se você comprou o produto. Ao comprar o produto, você recebe um código de autorização, que você usa para obter uma licença
3. No Easysoft License Manager, insira seus dados.
   Você DEVE inserir os campos Nome, Endereço de e-mail e Empresa.
   
   O endereço de e-mail DEVE ser o mesmo que o endereço usado para se registrar e fazer download do site da Easysoft ou você não poderá obter licenças de teste.
   
4. Escolha Solicitar Licença.
   Você é solicitado a fornecer um tipo de licença.
   
5. Faça um dos seguintes:
   • Para uma licença de avaliação, clique em Avaliação por tempo limitado e clique em Avançar.
     O License Manager pergunta qual software você está licenciando. Selecione Easysoft MySQL ODBC Driver na lista suspensa e clique em Avançar.
     
   • Se você obteve um código de autorização para uma licença adquirida, selecione Licença sem vencimento e clique em Avançar.
     O License Manager solicita seu código de autorização.
     
     Digite o código de autorização e clique em Avançar.
     
6. O License Manager exibe um resumo das informações inseridas e permite que você escolha o método de solicitação de sua licença.
7. Faça um dos seguintes:
   • Escolha Solicitação on-line se sua máquina estiver conectada à Internet e puder fazer conexões de saída para a porta 8884.
     O License Manager então envia uma solicitação ao servidor de licenças Easysoft para ativar sua chave de licença automaticamente. Este é o método mais rápido e faz com que seus dados sejam inseridos imediatamente em nosso banco de dados de suporte.
     
   • As três opções restantes (Solicitação de e-mail, Solicitação de impressão e Solicitação de visualização) são formas de obter uma licença se sua máquina estiver off-line (ou seja, não tiver conexão com a Internet).
     Cada um desses métodos envolve fornecer à Easysoft informações, incluindo o número de sua máquina (um número exclusivo para sua máquina) e aguardar o recebimento da chave de licença.
     
     Em vez de enviar seus dados por e-mail para a Easysoft, você pode inseri-los diretamente no site da Easysoft e sua chave de licença será enviada por e-mail automaticamente.
     
     Para usar esse método, clique em Exibir solicitação e visite:
     
     • Página de licença de avaliação
     • Página de licença completa
     
     Na página Licenciamento, insira o número da sua máquina (e o código de autorização da licença adquirida), clique em Enviar e sua chave de licença será enviada por e-mail para você.
     
     Ao receber a chave de licença, você pode ativá-la clicando duas vezes no anexo de e-mail ou clicando em Enter License na tela principal do License Manager e colando a chave de licença na caixa de diálogo.
     
   • Escolha Concluir para sair do Gerenciador de licenças.
     A instalação está completa.
     

Configurando uma fonte de dados ODBC

%windir%\syswow64\odbcad32.exe

1. Escolha a guia DSN do sistema e, em seguida, escolha Adicionar.
2. Na caixa de diálogo Criar nova fonte de dados, escolha Easysoft ODBC-MySQL Driver e, em seguida, escolha Concluir.
3. Preencha estes campos Caixa de diálogo Easysoft ODBC-MySQL Driver DSN Setup:

   Setting	Valor
   DSN	MySQLODBCDataSource
   Banco de dados	Funcionários Observação Este é o banco de dados com o qual o exemplo de código foi projetado para trabalhar.
   Nome de usuário	O nome do seu usuário MySQL.
   Senha	A senha do seu usuário MySQL.
   Servidor	O nome do host ou endereço IP da máquina na qual seu servidor MySQL está sendo executado.

4. Use o botão Testar para verificar se você pode se conectar com sucesso ao seu banco de dados MySQL.

Conectando Visual COBOL ao MySQL

1. No Visual Studio, crie um novo Modelos> COBOL> Nativo> Aplicativo de console.
2. Substitua o código do modelo pelo código mostrado no início deste artigo.
3. Execute o programa.