VB .NET - Lendo registros de vários banco de dados e exibindo em um Form - III  
 Neste artigo eu mostrar como ler os registros de uma tabela de um banco de dados e exibir o resultado em um Formulário Windows Forms usando o VB .NET.

Na segunda parte deste artigo criamos a camada de acesso a dados(DAL) e agora vamos mostrar como acessar os dados usando a camada DAL.

Recursos usados:

Nota: Baixe e use a versão Community 2015 do VS ela é grátis e é equivalente a versão Professional.

Acessando dados via Camada DAL

Abra o projeto WF_AcessoGenerico criado na segunda parte do artigo usando o o VS Community 2015;

No evento Click do botão de comando Localizar inclua o código abaixo:

 Private Sub btnLocalizar_Click(sender As Object, e As EventArgs) Handles btnLocalizar.Click

        Dim sql = "SELECT * FROM Produtos WHERE (Codigo = " & Convert.ToInt32(txtCodigo.Text) & ")"
        Dim dt As DataTable = DAL.AcessoBD.ExecutarComando(sql, CommandType.Text, Nothing, DAL.AcessoBD.TipoDeComando.ExecuteDataTable)
        txtDescricao.Text = dt.Rows(0).Item("Descricao").ToString()
        txtCusto.Text = dt.Rows(0).Item("Custo").ToString()
        txtVenda.Text = dt.Rows(0).Item("Preco").ToString()

End Sub

Agora para poder acessar o banco de dados desejado basta abrir o arquivo App.Config e alterar o nome dado à conexão para ConexaoBD.

Assim, para acessar o MySql altere o nome de MySQLConnectionString para ConexaoBD conforme mostrado abaixo:

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
    </startup>
  <connectionStrings>

    <add name="MSAccessConnectionString" connectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source =c:\dados\Vendas.accdb" providerName="System.Data.Oledb"/>   

    <add name="SQLServerConnectionString" connectionString="Data Source=.\sqlexpress;Initial Catalog=Vendas;Integrated Security=True" providerName="System.Data.SqlClient"/>

    <add name="ConexaoBD" connectionString="Server=localhost;Database=Cadastro;Uid=root;Pwd=******;Connect Timeout=30;" providerName="MySql.Data.MySqlClient" />

      </connectionStrings>
</configuration>

Agora é só alegria...

Executando o projeto iremos obter o resultado abaixo:
The Series is the title of data that we are displaying. In this tutorial we will display sales and expenses data from a database. Therefore our series collection will be Sales, Expenses.

We will delete Series1 becuase we will replace it with Expenses and Sales.

Right click the chart and click on properties. In the properties window, scroll down to Series and click on the small button next to Collection:

- See more at: http://www.visual-basic-tutorials.com/display-data-as-charts-and-graph-in-visual-basic.html#sthash.lBTOTLaR.dpuf
The Series is the title of data that we are displaying. In this tutorial we will display sales and expenses data from a database. Therefore our series collection will be Sales, Expenses.

We will delete Series1 becuase we will replace it with Expenses and Sales.

Right click the chart and click on properties. In the properties window, scroll down to Series and click on the small button next to Collection:

- See more at: http://www.visual-basic-tutorials.com/display-data-as-charts-and-graph-in-visual-basic.html#sthash.lBTOTLaR.dpuf

Para testar os demais bancos altere o nome da string de conexão do respectivo banco para ConexaoBD e pronto.

Assim, melhoramos muito o nosso código, pois precisamos agora de apenas um formulário, e, de alterar apenas o arquivo de configuração da aplicação, mas podemos melhorar mais o nosso código criando uma camada de negócios (BLL) na aplicação.

Deixo essa tarefa para você se exercitar, OK ?

Pegue o projeto completo aqui : ADONET_AcessoDados2.zip

Segui a paz com todos, e a santificação, sem a qual ninguém verá o Senhor;
Hebreus 12:14

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

Quer aprender a criar aplicações Web Dinâmicas usando a ASP .NET MVC 5 ?


Referências:

José Carlos Macoratti