CRUD com Firebird

Como Fazer CRUD com Firebird em VB.net

O Firebird é um banco de dados totalmente gratuito que pode ser utilizado tanto localmente ou como cliente / servidor.

O banco de dados Firebird pode ser utilizado para criar sistema de pequeno e médio porte.

Você pode acompanhar o passo a passo no vídeo abaixo:

Agora antes de fazermos as manipulações básicas do banco de dados vamos configurar ele em nosso ambiente de desenvolvimento.

Para isso acesse o site http://firebirdsql.org/

E clique na aba download.

Será exibido as opções de download do banco de dados, que no momento que estou escrevendo este artigo está na versão 3.0.

Clique na opção selecionada em vermelho para selecionarmos o tipos de sistema operacional que vamos instalar o banco de dados.

Aqui no meu caso estou selecionando a versão para Windows 64btis, selecione a opção pertinente ao seu sistema operacional.

Após concluir o download execute o arquivo que será exibida a seguinte tela:

Clique no botão OK para seguir para a próxima etapa da instalação.

Aceite o contrato de licença e clique no botão Next.

A próxima etapa é uma tela de informação apenas clique no botão Next para continuar.

A próxima etapa é para definir o local onde será instalado, selecione um novo caminho ou deixe o sugerido e clique no botão Next.

A próxima etapa é para selecionar os componentes que serão instalados, deixe conforme foi sugerido com todas as opções marcadas.

A próxima etapa é para informar o caminho do menu de inicialização, deixe marcado como sugerido.

A próxima etapa é para selecionar tarefas adicionais, como estou instalando a versão 64bits do banco de dados Firebird 3.0 é necessário adicionarmos a opção “Generate client library as GDS32.DLL for legacy InterBase support”.

Está opção é importante porque vamos utilizar um gestor de banco de dados que é 32bits que utilizará o GDS32.DLL para trabalhar corretamente.

Após selecionar a opção clique no botão Next.

A próxima etapa é para definirmos a senha do usuário administrador SYSDBA do banco de dado, defina uma senha, pois vamos utilizá-la para criarmos o banco de dados.

A próxima etapa é para darmos início na instalação do banco de dados Firebird 3.0, clique no botão Install.

A próxima etapa será exibida a tela de informação, clique no botão Next.

A próxima etapa é para concluirmos a instalação, desmarque a opção “After Installation – What Next?” e clique no botão Finish para iniciar o serviço de banco de dados, com isso concluímos a instalação do banco de dados Firebird 3.0.

Agora que a instalação do banco de dados foi concluída, precisamos instalar o gerenciador para podermos dar manutenção e criar banco de dados.

O gerenciador que vamos utilizar é o IBExpert Personal Edition acesse a página clicando aqui.

Clique em IBExpert downlodcenter na parte superior direita do site.

Para efetuarmos o download precisamos criar uma conta, para isso clique em Register na parte superior do site.

Preencha os campos e-mail, nome e país e clique no botão Register.

Você receberá um e-mail com a senha para acessar a central de downloads e baixar o IBExpert Personal Edition.

Verifique o e-mail em sua caixa de Spams, caso demore muito tempo acesse a sessão de login no site clique em esqueceu a senha e informe o seu e-mail de registro.

Após fazer login marque a opção para aceitar o termo e clique no botão DOWNLOAD PERSONAL.

Inicie a instalação e aceite o termo de licença e clique no botão Next.

A próxima etapa é para definirmos em qual pasta será instalados os arquivos, selecione se desejar e clique no botão Next.

A próxima etapa é para selecionarmos os componentes que serão instalados, mantenha a opção Full Install e clique em Next.

A próxima etapa é para confirmarmos as configurações selecionadas, estando tudo OK clique no botão Install.

Será iniciado a instalação do IBExpert Personal Edition.

Na última etapa desmarque a opção Lauch IBExpert Watchdog Setup e clique no botão Finish.

Após a instalação será exibida a tela de configuração do IBExpert Personal Edition.

No campo Username informe o seu e-mail de registro feito site e senha, depois clique no botão Get Code.

Será enviado um novo e-mail com o código de ativação da licença, cole no campo Unlockcode e clique no botão OK.

Pronto feio isso o sistema está configurado e será exibida a janela principal do IBExpert Personal Edition,

Agora vamos criar o banco de dados que faremos o CRUD em VB.net, para isso clique no botão Create Database.

No campo “Server / Protocol” selecione a opção “local, default”.

No campo “Database” selecione o caminho e o nome que deseja informar do banco de dados, no caso aqui foi informado o nome “novo.fdb”.

No campo “Username” informe o nome do usuário administrador do banco.

No campo “Password” informe a senha do usuário administrador do banco e clique no botão OK.

Será exibida a tela para registrarmos o banco de dados, nesta tela selecione a versão do Firebird que configuramos em nossa máquina que foi a 3.0 e clique no botão Register.

Clique sobre o banco de dados e após clique no botão “Connect to Database”.

Feito isso estamos conectado no banco de dados de nome “novo”.

Agora precisamos criar a nossa tabela, para isso clique com o botão sobre “Tables” e selecione a opção “New Table…”.

Vamos definir o nome da tabela como CAD_CLIENTE, criar o primeiro campo como chave primária para isso clique duas vezes abaixo de PK, o nome do campo como ID e Field Type como INTEGER e vamos definir também o Auto incremento clicando duas vezes abaixo de AI.

Na janela de Autoincrement Field, marque a opção “Create Generator”, depois clique na aba “Trigger” e marque a opção “Create Trigger” e clique em OK.

Agora vamos adicionar os restantes dos campos, para isso clique no botão “Add field”.

Configure os campos conforme mostrado na figura abaixo:

Para salvar as alterações clique no botão “Compile” na parte superior da tela.

Clique no botão “Commit” para concluir o salvamento, com isso a tabela foi criada com sucesso.

Agora o próximo passo é criar um novo projeto no Visual Studio 2019 Comunnity do tipo Windows Forms App (.NET Framework) de nome “CRUDFireBird”.

Configure o formulário da seguinte forma:

• 3 TextBoxes
• 3 Labels
• 5 Buttons
• 1 DataGridView

Defina as propriedades name da seguinte forma:

As caixas de texto:

• txtID
• txtNome
• txtEndereco

O DataGridView

• dgvDados

Agora para podermos acessar o banco de dados Firebird precisamos adicionar uma referência ao provedor de dados que será instalado via NuGet conforme mostrado no site.

No Visual Studio clique no menu Tools / NuGet Package Manager / Package Maneger Console.

Copie e cole o comando do site no console e pressione Enter para fazer a instalação do provedor de dados.

Pronto, com isso temos tudo configurado para iniciar a programação.

Primeiro vamos importar a referência.

Imports FirebirdSql.Data.FirebirdClient

O próximo passo é definirmos os objetos de acesso a dados.

Imports FirebirdSql.Data.FirebirdClient
Public Class Form1
    Private conexao As New FbConnection("User=SYSDBA;Password=@mar147;Database=d:\\banco de dados\\novo.fdb;DataSource=localhost;Port=3050;Dialect=3;Charset=NONE;Role=;Connection lifetime=15;Pooling=true;MinPoolSize=0;MaxPoolSize=50;Packet Size=8192;
ServerType=0;")
    Private comando As FbCommand
    Private da As FbDataAdapter
    Private dr As FbDataReader   
End Class

Agora vamos programar o botão para adicionar um novo registro no banco de dados.

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        comando = New FbCommand("INSERT INTO CAD_CLIENTE (NOME, ENDERECO) VALUES (@NOME, @ENDERECO)", conexao)
        comando.Parameters.AddWithValue("@NOME", txtNome.Text)
        comando.Parameters.AddWithValue("@ENDERECO", txtEndereco.Text)
        conexao.Open()
        comando.ExecuteNonQuery()
        conexao.Close()

    End Sub

Agora vamos programar o botão para editar um registro no banco de dados.

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        comando = New FbCommand("UPDATE CAD_CLIENTE SET NOME = @NOME, ENDERECO = @ENDERECO WHERE ID = @ID", conexao)
        comando.Parameters.AddWithValue("@ID", txtID.Text)
        comando.Parameters.AddWithValue("@NOME", txtNome.Text)
        comando.Parameters.AddWithValue("@ENDERECO", txtEndereco.Text)
        conexao.Open()
        comando.ExecuteNonQuery()
        conexao.Close()
    End Sub

Agora vamos programar o botão para consultar um registro no banco de dados.

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        comando = New FbCommand("SELECT * FROM CAD_CLIENTE WHERE ID = @ID", conexao)
        comando.Parameters.AddWithValue("@ID", txtID.Text)

        conexao.Open()
        dr = comando.ExecuteReader

        While dr.Read
            txtNome.Text = dr("NOME")
            txtEndereco.Text = dr("ENDERECO")
        End While


        conexao.Close()
    End Sub

Agora vamos programar o botão para deletar um registro no banco de dados.

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        comando = New FbCommand("DELETE FROM CAD_CLIENTE WHERE ID = @ID", conexao)
        comando.Parameters.AddWithValue("@ID", txtID.Text)
        conexao.Open()
        comando.ExecuteNonQuery()
        conexao.Close()
    End Sub

Agora por fim vamos programar o botão para listar todos os registrados cadastrados no banco de dados.

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim ds As New DataSet

        da = New FbDataAdapter("SELECT * FROM CAD_CLIENTE", conexao)
        da.Fill(ds)

        dgvDados.DataSource = ds.Tables(0)
    End Sub

Com isso concluímos o CRUD no banco de dados Firebird 3.0.