Criação dos Métodos da Classe: CRUD Básico em VB.NET - Parte 2

Olá pessoal, continuando nosso artigo com o CRUD Básico com a linguagem VB.NET vamos criar os principais métodos em nossa classe, para que na próxima parte apenas adicionemos os detalhes finais referentes aos formulários do projeto. Acompanhem:

Comece criando o método que irá gravar o cliente na base de dados:

Public Sub GravarCliente(ByVal clientes As ClientesObj)

strInstrucao = "INSERT INTO Clientes VALUES (@Nome, @Endereco, @Cidade, @Telefone, @Email, @Ativo)"

objCommand.CommandText = strInstrucao

objCommand.Connection = objConexao

objCommand.Parameters.AddWithValue("@Nome", clientes.Nome)

objCommand.Parameters.AddWithValue("@Endereco", clientes.Endereco)

objCommand.Parameters.AddWithValue("@Cidade", clientes.Cidade)

objCommand.Parameters.AddWithValue("@Telefone", clientes.Telefone)

objCommand.Parameters.AddWithValue("@Email", clientes.Email)

objCommand.Parameters.AddWithValue("@Ativo", clientes.Ativo)

objConexao.Open()

objCommand.ExecuteNonQuery()

objConexao.Close()

End Sub

O método para atualizar o cliente será praticamente o mesmo, apenas com a adição do IdCliente, que será nosso parâmetro para o Where de nosso Update (lembrando que nunca deveremos criar um UPDATE ou DELETE sem WHERE!)

Dito isto, não irei exibir aqui o método para atualizar o cliente, já que o projeto completo será disponibilizado ao final da parte 3 do artigo.

Veja abaixo o método para excluir o cliente da base de dados:

Public Sub ExcluirCliente(ByVal IdCliente As Integer)

strInstrucao = "DELETE FROM Clientes WHERE IdCliente = @IdCliente"

objCommand.CommandText = strInstrucao

objCommand.Connection = objConexao

objCommand.Parameters.AddWithValue("@IdCliente", IdCliente)

objConexao.Open()

objCommand.ExecuteNonQuery()

objConexao.Close()

End Sub

Bem simples né? Seguindo a mesma lógica dos outros.

Finalizando, veja o método para consultar os clientes, um pouco diferentes dos outros:

Public Function ConsultarClientes() As DataTable

Dim dt As New DataTable

Dim ds As New DataSet()

strInstrucao = "SELECT IdCliente, Nome, Endereco, Telefone, Ativo FROM Clientes"

objCommand.CommandText = strInstrucao

objCommand.Connection = objConexao

objConexao.Open()

Dim da As New SqlDataAdapter(objCommand)

da.Fill(ds)

dt = ds.Tables(0)

objConexao.Close()

Return dt

End Function

Note que aqui usei DataTable, DataSet e DataAdapter, conceitos muito importantes do ADO.NET. Poderia até usar o SqlDataReader, mais para este caso específico preferi não usá-lo.

Crie um formulário e dê a ele o nome de Cadastro. Nele, adicione alguns controles para que o mesmo fique como a Figura 01 nos mostra:

Figura 01 – Formulário de Cadastro

 Bem simples. Esse botão Ver nos levará para a tela de Consulta, que criaremos logo abaixo.

Apenas altere a propriedade Modifiers dos TextBoxes e dos RadioButtons para Public. Você entenderá o porque disso na próxima parte do artigo.

No form de Consulta, adicione um ListView e três Buttons. No ListView configure as propriedades GridLines para True, FullRowSelect para True, MultiSelect para False e View para Details. Adicione também nele 5 colunas. Veja como o formulário ficará na Figura 02:

Figura 02 – Formulário de Consulta

 Finalizando, vá à página de códigos do form de Cadastro e declare uma variável global (que será “enxergada” em todo o form) do tipo Integer:

Public IdCliente As Integer = 0

Ela irá receber o Id do Cliente do form de Consulta, para assim definirmos quando for Alteração ou Gravação de dados.

Assim finalizo o artigo. Na próxima e última parte faremos a codificação nos forms criados e os testes práticos, não percam!

 Um abraço, e até o próximo artigo.

 Wellington Balbo de Camargo

wellingtonbalbo@gmail.com

About these ads