Utilizar POO(Programa Orientado a Objetos) Fazendo um Select no MySql - VB.NET

Neste artigo vou mostrar o jeito certo de se fazer um select e trabalhar com dados, usando MySql.

Primeiro vamos criar nossa Classe do tipo Cliente onde terá propriedades do tipo Id e Nome;

1:  Public Class Cliente  
2:     Public Id As Integer  
3:     Public Property Nome As String  
4:     Public Sub New(_Id As Integer, _Nome As String)  
5:       Me.Id = _Id  
6:       Me.Nome = _Nome  
7:     End Sub  
8:  End Class  

Pronto temos nossa classe Cliente onde tem as propriedades Id e Nome(Você pode adicionar quantas propriedades quiser de acordo com seu banco de dados, seguindo o modelo acima).

Agora vamos fazer o Select.

Crie uma função do tipo List (Of) que recebe Clientes como saida, ex;

1:  Public Shared Function BuscarCliente(Valor As String) As List(Of Cliente)  
2:  End Function  

Essa função é do tipo List(Of) onde vai gerar uma lista de dados, como um DataGridView.

Com o código de Select, fica assim;

1:  Public Shared Function BuscarCliente(Valor As String) As List(Of Cliente)  
2:        Dim Sql As String = "SELECT * FROM tabela WHERE Nome='" & Valor & "';"  
3:        Dim Resultado As New List(Of Cliente)  
4:        Try  
5:          Using conex As New MySqlConnection("SERVIDOR")  
6:              Using comando As New MySqlCommand(Sql, conex)  
7:                  Try  
8:                      conex.Open()                       
9:                  Catch Ex As Exception  
10:                      MsgBox("Erro!")  
11:                  End Try  
12:                  Try  
13:                      Using Ler As MySqlDataReader = comando.ExecuteReader()  
14:                            While Ler.Read()  
15:                                  Resultado.Add(New Cliente(Ler.Item("Id"), Ler.Item("Nome")))  
16:                            End While  
17:                  Catch Ex As Exception  
18:                       MsgBox("Erro!")  
19:                  End Try  
20:        Catch Ex As Exception  
21:           MsgBox("Erro!")  
22:        End Try  
23:     End Function  

Então essa é nossa função para dar select e retornar o valor no tipo tabela de Clientes

Resultado.Add(New Cliente(Ler.Item("Id"), Ler.Item("Nome"))) 

Id e Nome seria as colunas que contem no banco de dados

Então nossa Classe Clientes ficará assim;

1:  Public Class Cliente  
2:     Public Id As Integer  
3:     Public Property Nome As String  
4:     Public Sub New(_Id As Integer, _Nome As String)  
5:       Me.Id = _Id  
6:       Me.Nome = _Nome  
7:     End Sub  
8:     'Função de pesquisa  
9:     Public Shared Function BuscarCliente(Valor As String) As List(Of Cliente)  
10:        Dim Sql As String = "SELECT * FROM DBA WHERE Nome='" & Valor & "';"  
11:        Dim Resultado As New List(Of Cliente)  
12:        Try  
13:          Using conex As New MySqlConnection("SERVIDOR")  
14:              Using comando As New MySqlCommand(Sql, conex)  
15:                  Try  
16:                      conex.Open()                       
17:                  Catch Ex As Exception  
18:                      MsgBox("Erro!")  
19:                  End Try  
20:                  Try  
21:                      Using Ler As MySqlDataReader = comando.ExecuteReader()  
22:                            While Ler.Read()  
23:                                  Resultado.Add(New Cliente(Ler.Item("Id"), Ler.Item("Nome")))  
24:                            End While  
25:                  Catch Ex As Exception  
26:                       MsgBox("Erro!")  
27:                  End Try  
28:        Catch Ex As Exception  
29:           MsgBox("Erro!")  
30:        End Try  
31:     End Function  
32:  End Class  

Então já temos nossa Classe Clientes com as propriedades setadas e nossa função de SELECT que busca os dados em um banco de dados MySql de acordo com o parâmetro de pesquisa Valor As String, agora precisamos usar esta classe para trabalhar com os dados, então vamos jogar esses dados em uma DataGridView.

  No Form1 em um Button1, onde é para fazer nossa seleção de acordo um TextBox1 e jogar os dados na DataGridView, ex;

1:  Dim ClassConex As Cliente ' Aqui Instanciamos nossa Classe  
2:   Dim List = ClassConex.BuscarCliente(TextBox1.Text) ' Aqui chamamos a função de busca de acordo com o que o usuário digitou na textbox1  
3:   ' Aqui rodamos o List(Of Clientes) e jogamos os dados na DataGridView adicionando linhas  
4:   For Each i As Cliente In List  
5:      DataGridView1.Rows.Add(i.Id, i.Nome)  
6:   End For  

E pronto, criamos nossa classe cliente, instanciamos ela e estamos trabalhando com seus dados está é uma boa pratica.

Duvida? Comente abaixo!

COMENTE

& Compartilhe

Tweet