Visual Basic 6 – Conexão com MySQL via ODBC – Parte 02

No artigo de hoje, vou mostrar como realizar a conexão com o banco de dados MySQL usando um driver ODBC em uma aplicação Windows, usando a linguagem Visual Basic 6.

Na primeira parte do artigo definimos o banco de dados e a tabela do MySQL, instalamos o driver ODBC e criamos uma fonte de dados ODBC.

Agora já temos tudo pronto para poder acessar os dados no MySQL usando o Visual Basic 6.

Vamos, então, definir o projeto VB6 e acessar os dados em um projeto Windows Forms usando os componentes ADODC e DataGrid.

Recursos usados:

Visual Basic 6
MySQL Commumity Edition (Estou usando a versão 5.3)
MySQL WorkBench (Estou usando a versão 6.2)
Driver ODBC para o MySQL 32 bits
Ambiente – Windows 10

Criando o projeto no Visual Basic 6

Abra o Microsoft Visual Basic 6, selecione o projeto do tipo STANDARD EXE e clique no botão Abrir:

Salve o projeto como MySQL_ODBC e o formulário padrão como frmConexaoMySQL.

No menu Project, clique em Components (CTRL + T) e na janela Components, selecione o componente: Microsoft ADO Data Control 6.0 (OLEDB):

Você deverá ver na ToolBox o ícone do componente Adodc. A partir da ToolBox, inclua os seguintes controles no formulário:

3 Labels
3 TextBox – Text1, Text2 e Text3
1 Adodc – Adodc1

Defina o leiaute do formulário conforme mostra a figura abaixo:

Agora vamos configurar o componente Adodc1. Primeiro, clique com o botão direito do mouse sobre o componente e a seguir clique em ADODC Properties. Depois, marque a opção – Use ODBC Data Source Name – e selecione a nossa fonte de dados – MySQL_DNS_32; a seguir, clique no botão Aplicar e depois em OK:

A seguir selecione o controle Adodc1 e defina as seguintes propriedades a partir da janela de Propriedades do controle:

Caption = Northwind – Clientes
CommandType = 8 – adCmdUnknown
ConnectionString = DSN=MySQL_DNS_32

Ainda na janela de propriedades, clique em RecordSource e defina as propriedades Command Type e Command Text conforme mostra a figura abaixo:

Note que definimos o comando SQL – Select * from Customers – que irá acessar a tabela Customers e retornar todos os registros.

A seguir, clique em Aplicar e depois em OK.

Agora podemos selecionar a primeira caixa de texto – Text1 -, onde vamos exibir o código do projeto e pressionar F4 para exibir a janela de propriedades.

Na janela de propriedades, defina a propriedade DataSource atribuindo o controle Adodc1 e, a seguir, defina a propriedade DataField igual a CustomerID, que é o campo da tabela que vamos exibir:

Repita o procedimento acima para a segunda caixa de texto – Text2 -, definindo os valores para DataSource e DataField conforme a figura abaixo:

E para concluir, repita o procedimento acima para a terceira caixa de texto – Text3 -, definindo os valores para DataSource e DataField, conforme a figura abaixo: