Como Fazer CRUD com MySQL em VB.net
Para fazermos CRUD em um banco de dados MySQL primeiro precisamos ter instalado o recurso connection/net para termos acesso ao Namespace no Visual Studio, para fazer a configuração veja este post.
Crie um novo projeto do tipo Window Forms App e adicione os seguintes controles:
- 3 Labels
- 3 TextBoxes
- 5 Buttons
- 1 DataGridView
Configure as Labels conforme a imagem acima, os outros controles da seguinte forma:
- TextBox1 – Name: txtID
- TextBox2 – Name: txtNome
- TextBox3 – Name: txtNumero
- Button1 – Name: btnNovo, Text: Incluir
- Button2 – Name: btnAlterar, Text: Alterar
- Button3 – Name: btnConsultar, Text: Consultar
- Button4 – Name: btnExcuir, Text: Excluir
- Button5 – Name: btnExibir, Text: Exibir
- DataGridView1 – Name: dgvDados
Agora que definimos as configurações dos controles precisamos adicionar a referência do MySQL no nosso projeto.
Para isso no Solution Explorer clique com o botão direito sobre o nome do projeto e selecione Add/Reference.
Na janela que se abre selecione a guia Assemblies e no campo de pesquisa digite MySQL. Na lista que aparecer selecione a opção MySql.Data.
Agora precisamos importar o Namespace no nosso projeto para podermos utilizar.
Imports MySql.Data.MySqlClientFeito isso já podemos para para o código do primeiro botão que é o de inclusão.
Neste exemplo estou utilizando o banco de dados na minha máquina local, sendo assim na string de conexão o servidor vai estar configurado como localhost.
Agora vamos definir as variáveis de acesso, elas foram declaradas no início da classe para poderem ser acessadas em qualquer parte da classe Form1:
Private conexao As MySqlConnection Private comando As MySqlCommand Private da As MySqlDataAdapter Private dr As MySqlDataReader Private strSQL As StringDeclaradas as variáveis agora vamos para o código do botão novo que será utilizado para inserir um novo registro na tabela CAD_CLIENTE.
Private Sub BtnIncluir_Click(sender As Object, e As EventArgs) Handles btnIncluir.Click Try conexao = New MySqlConnection("Server=localhost;Database=cliente;Uid=root;Pwd=@mar147;") strSQL = "INSERT INTO CAD_CLIENTE (NOME, NUMERO) VALUES (@NOME, @NUMERO)" comando = New MySqlCommand(strSQL, conexao) comando.Parameters.AddWithValue("@NOME", txtNome.Text) comando.Parameters.AddWithValue("@NUMERO", txtNumero.Text) conexao.Open() comando.ExecuteNonQuery() Catch ex As Exception MessageBox.Show(ex.Message) Finally conexao.Close() conexao = Nothing comando = Nothing End Try End SubCódigo do botão alterar:
Private Sub BtnAlterar_Click(sender As Object, e As EventArgs) Handles btnAlterar.Click Try conexao = New MySqlConnection("Server=localhost;Database=cliente;Uid=root;Pwd=@mar147;") strSQL = "UPDATE CAD_CLIENTE SET NOME = @NOME, NUMERO = @NUMERO WHERE ID = @ID" comando = New MySqlCommand(strSQL, conexao) comando.Parameters.AddWithValue("@ID", txtID.Text) comando.Parameters.AddWithValue("@NOME", txtNome.Text) comando.Parameters.AddWithValue("@NUMERO", txtNumero.Text) conexao.Open() comando.ExecuteNonQuery() Catch ex As Exception MessageBox.Show(ex.Message) Finally conexao.Close() conexao = Nothing comando = Nothing End Try End SubCódigo do botão excluir:
Private Sub BtnExcluir_Click(sender As Object, e As EventArgs) Handles btnExcluir.Click Try conexao = New MySqlConnection("Server=localhost;Database=cliente;Uid=root;Pwd=@mar147;") strSQL = "DELETE FROM CAD_CLIENTE WHERE ID = @ID" comando = New MySqlCommand(strSQL, conexao) comando.Parameters.AddWithValue("@ID", txtID.Text) conexao.Open() comando.ExecuteNonQuery() Catch ex As Exception MessageBox.Show(ex.Message) Finally conexao.Close() conexao = Nothing comando = Nothing End Try End SubCódigo do botão exibir:
Private Sub BtnExibir_Click(sender As Object, e As EventArgs) Handles btnExibir.Click Try conexao = New MySqlConnection("Server=localhost;Database=cliente;Uid=root;Pwd=@mar147;") strSQL = "SELECT * FROM CAD_CLIENTE" da = New MySqlDataAdapter(strSQL, conexao) Dim dt As New DataTable da.Fill(dt) dgvDados.DataSource = dt Catch ex As Exception MessageBox.Show(ex.Message) Finally conexao.Close() conexao = Nothing comando = Nothing End Try End SubCódigo do botão consultar:
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click Try conexao = New MySqlConnection("Server=localhost;Database=cliente;Uid=root;Pwd=@mar147;") strSQL = "SELECT * FROM CAD_CLIENTE WHERE ID = @ID" comando = New MySqlCommand(strSQL, conexao) comando.Parameters.AddWithValue("@ID", txtID.Text) conexao.Open() dr = comando.ExecuteReader() Do While dr.Read txtNome.Text = dr("nome") txtNumero.Text = dr("numero") Loop Catch ex As Exception MessageBox.Show(ex.Message) Finally conexao.Close() conexao = Nothing comando = Nothing End Try End SubVeja aqui o vídeo passo a passo:
Artigos relacionados:
