CRUD Com SQL Server

1 comentário

Como Fazer CRUD Com SQL Server 2016 Express em VB.net

Para fazermos as execuções básicas que são inserir, alterar, consultar e excluir primeiro precisamos ter uma instância do SQL Server instalada em nossa máquina, em um servidor na nuvem ou local.

Para instalar uma instância do SQL Server 2016 Express veja o passo a passo no vídeo abaixo:

Download do Instalador

Após a instalação da instância do SQL Server precisamos instalar o SQL Server Management Studio.

Veja o passo a passo da instalação no vídeo abaixo:

Download do Instalador

Agora que temos uma instância do SQL Server configurada em nossa máquina o próximo passo é criarmos um banco de dados, então abra o Management Studio conforme foi mostrado no vídeo.

Selecione no Object Explorer a pasta Databases, clique com o botão direito e selecione New Database…

Adicionando novo banco de dados.

Será aberta uma nova janela onde definimos o nome do banco de dados e caminho onde será criado, neste exemplo deixei o endereço padrão da instalação da instância do SQL Server.

Definindo nome e caminho do banco de dados.

Com o banco de dados criado agora precisamos criar uma tabela onde vamos fazer as movimentações do banco.

Neste exemplo vamos criar apenas três campos para ficar mais fácil o entendimento.

Para criar uma tabela no banco de dados que acabamos de adicionar, abra a pasta DataBases, depois expanda o seu banco clicando no + do lado esquerdo e selecione a pasta Tables.

Clique com o botão direito e selecione Table…

Adicionando nova tabela no banco de dados Cliente.

Vamos definir os seguinte campos:

ColunaTipo
idint
nomevarchar(50)
numeroint

Defina o campo id como chave primária e auto incremento.

Salve a tabela com o nome de CAD_CLIENTE.

Tabela CAD_CLIENE

No vídeo abaixo você pode ver o passo a passo de como fazer CRUD no SQL Server 2016 Express utilizando ADO.net:

Como fazer CRUD no SQL Server 2016 Express.

Agora caso você prefira segue o passo em texto.

Na tela de abertura do Visual Studio 2019 Community clique no botão New Project.

Tela inicial Visual Studio 2019 Community.

Na próxima tela que será exibida vamos selecionar o tipo de projeto Windows Forms App.

Selecionando o template Windows Forms App.

Clique em Next, na próxima tela vamos definir o nome do projeto como Cadastro.

Definindo o nome do projeto como Cadastro

Clique em Create para criar o projeto.

No formulário vamos colocar os seguintes controles:

  • 3 Label
  • 3 Textbox
  • 5 Button
  • 1 DataGridView
Formulário cliente com todos os controles adicionados.

Configurando as propriedades dos controles:

Labels – Alterar a propriedade Text conforme a imagem acima.

Números na imagen:

  • 1 – Name: txtID
  • 2 – Name: txtNome
  • 3 – Name: txtNumero
  • 4 – Name: btnNovo, Text: Novo
  • 5 – Name: btnEditar, Text: Editar
  • 6 – Name: btnExcluir, Text: Excluir
  • 7 – Name: btnExibir, Text: Exibir
  • 8 – Name: btnConsultar, Text: Consultar
  • 9 – Name: dgvDados

Com todos os controles já definidos vamos para a parte da codificação, para isso pressione F7 para acessar o código fonte do formulário.

Para trabalharmos com banco de dados é necessário utilizarmos o Namespace de acesso a dados.

Na parte superior da janela de código vamos fazer a importação do Namespace:

Imports System.Data.SqlClient

Dentro da classe do formulário vamos criar as variáveis que darão acesso ao banco de dados:

Private conexao As SqlConnection
Private comando As SqlCommand
Private da As SqlDataAdapter
Private dr As SqlDataReader

Agora vamos inserir o seguinte código dentro do botão novo:

    Private Sub BtnNovo_Click(sender As Object, e As EventArgs) Handles btnNovo.Click

        Try
            conexao = New SqlConnection("Server=CODE-DESENV\SQLEXPRESS; Database=cliente;User Id=sa; Password=@mar147;")

            'Comando para inserir novo registro
            strSQL = "INSERT INTO CAD_CLIENTE (NOME, NUMERO) VALUES (@NOME, @NUMERO)"

            comando = New SqlCommand(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()
            comando.Clone()
            comando = Nothing
            conexao = Nothing
        End Try

    End Sub

Código do botão exibir:

    Private Sub BtnExibir_Click(sender As Object, e As EventArgs) Handles btnExibir.Click
        Try
            conexao = New SqlConnection("Server=CODE-DESENV\SQLEXPRESS; Database=cliente;User Id=sa; Password=@mar147;")

            'Comando para inserir novo registro
            strSQL = "SELECT * FROM CAD_CLIENTE"

            comando = New SqlCommand(strSQL, conexao)
            da = New SqlDataAdapter(strSQL, conexao)
            conexao.Open()
            Dim ds As New DataSet
            da.Fill(ds)

            dgvDados.DataSource = ds.Tables(0)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            conexao.Close()
            comando.Clone()
            comando = Nothing
            conexao = Nothing
        End Try
    End Sub

Código do botão consultar:

    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click
        Try
            conexao = New SqlConnection("Server=CODE-DESENV\SQLEXPRESS; Database=cliente;User Id=sa; Password=@mar147;")

            'Comando para inserir novo registro
            strSQL = "SELECT * FROM CAD_CLIENTE WHERE ID = @ID"

            comando = New SqlCommand(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()
            comando.Clone()
            comando = Nothing
            conexao = Nothing
            dr = Nothing
        End Try
    End Sub

Código do botão editar:

   Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles btnEditar.Click
        Try
            conexao = New SqlConnection("Server=CODE-DESENV\SQLEXPRESS; Database=cliente;User Id=sa; Password=@mar147;")

            'Comando para inserir novo registro
            strSQL = "UPDATE CAD_CLIENTE SET NOME = @NOME, NUMERO = @NUMERO WHERE ID = @ID"

            comando = New SqlCommand(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()
            comando.Clone()
            comando = Nothing
            conexao = Nothing
        End Try
    End Sub

Código do botão excluir:

    Private Sub BtnExcluir_Click(sender As Object, e As EventArgs) Handles btnExcluir.Click
        Try
            conexao = New SqlConnection("Server=CODE-DESENV\SQLEXPRESS; Database=cliente;User Id=sa; Password=@mar147;")

            'Comando para inserir novo registro
            strSQL = "DELETE CAD_CLIENTE WHERE ID = @ID"

            comando = New SqlCommand(strSQL, conexao)
            comando.Parameters.AddWithValue("@ID", txtID.Text)

            conexao.Open()
            comando.ExecuteNonQuery()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            conexao.Close()
            comando.Clone()
            comando = Nothing
            conexao = Nothing
        End Try
    End Sub

Artigos relacionados:

Série Cadastro – Episódio #01 Como Instalar o MySQL CRUD com MySQL

Artigos relacionados

1 comentário

  1. Adriano Moreira

    Simplesmete Perfeito!!
    Principalmente a opção da pessoa assistir ou acompanhar por imagens. Sei que da trabalho fazer o vídeo, mas as vezes a pessoa já tem um certo conhecimento e ela ta na dúvida entre um parametro ou outro e visualizando direto já ajuda bastante…

    Parabéns!!!

    Responder

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *