Data

11 jul, 2016

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

Publicidade

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:

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:

vb6_prj1

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):

vb6_pgsql18

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:

vb6_mysql14

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:

vb6_mysql15

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

vb6_mysql16

  • 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:

vb6_mysql17

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:

vb6_mysql18

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

vb6_mysql19

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:

vb6_mysql1a

Pronto! Agora é só alegria…

Executando o projeto, iremos obter o seguinte resultado:

vb6_mysql1b

Podemos também exibir todos os registros da tabela usando o componente DataGrid. Para isso, vamos incluir o componente em nosso projeto.

No menu Project, clique em Components (CTRL + T); na janela Components, selecione o componente: Microsoft DataGrid Control 6.0 (OLEDB).

vb6_pgsql1h

A seguir, inclua o componente a partir da ToolBox e no formulário do projeto:

vb6_mysql1c

Selecione o componente DataGrid1 no formulário e pressione F4.

Na janela de propriedades, defina a propriedade DataSource do controle DataGrid1 para Adodc1:

vb6_mysql1d

Agora execute o projeto novamente e você deverá obter o seguinte resultado:

vb6_mysql1e

E assim acabamos de concluir o acesso ao banco de dados MySQL usando um driver ODBC no Visual Basic 6.

Pegue o projeto completo aqui: Projeto_VB6-conexao_MySQL.zip