Criar Banco e Tabela Sqlite3 (Lazarus)

Uma dica para quem precisa Criar um banco de dados no SGBD Sqlite3, e usa como ferramenta de desenvolvimento o Lazarus (Free Pascal “Delphi”), estou considerando que você esta desenvolvendo em Windows.
tela

  1. Crie um pasta e nessa pasta coloque o arquivo “sqlite3.dll” e “sqlite3.def” que você baixou do site do Sqlite;
  2. No Lazarus, crie um novo projeto;
  3. Na barra de ferramentas aba “SQLdb” selecione um componente “SQLite3Connection”, eu troquei o nome para cnn, isso é um gosto pessoal e opcional;
  4. Escolha também, nessa mesma aba um componente “SQLTransaction”, eu mudei o nome para tr;
  5. Agora na aba Standard escolha um “Button” e na propriedade Caption escreva “Criar Banco dados’;
  6. Agora com dois cliques no button digite o seguinte código:
    procedure TForm1.Button1Click(Sender: TObject);
    var
    banco : string;
    begin
    banco := ‘sistema.db’;

    if not FileExists(banco) then      // se não existe banco  vamos criar
    begin
    try
    cnn.DatabaseName:= banco;
    cnn.Connected:= True;                  // se banco não existir, cria.

    tr.DataBase := cnn;                   // nome banco
    tr.Active:= True;                     // Ativa conexão
    cnn.ExecuteDirect(                    // cria tabela
    ‘ CREATE TABLE usuario (  ‘+
    ‘       idusuario INTEGER PRIMARY KEY AUTOINCREMENT,’ +
    ‘       nome      VARCHAR (50),’+
    ‘       senha     VARCHAR (40),’+
    ‘       dtacesso  DATE ‘+
    ‘ ); ‘
    );
    tr.CommitRetaining;               // confirma gravando tabela nova banco
    cnn.ExecuteDirect(
    ‘ INSERT INTO usuario (nome, senha)’+
    ‘ VALUES  (“admin”,”admin”);’
    );
    tr.Commit;                        // confirma fechando transação

    ShowMessage(‘BB criado: ‘ + bancom);
    except
    ShowMessage(‘Não foi possível criar: ‘ + banco);
    end;

    end;

    end;

Observação:
Atenção o copiar código: Pois o nome da procedure e o begin / end são criados automaticamente.

Esse código serve de modelo didático e na prática um botão criar o banco de dados não deveria existir no sistema, a não ser que o mesmo fosse executado com privilégios de desenvolvedor, em um momento de implantação.

 

 

 

Sobre Carlos Susviela

Programador (Desktop / web) WebDeveloper (Sistemas e páginas internet) Técnico Informática / Criptomoedas http://www.PowerInformatica.com.br --------------------------- Torcedor: S.C. Internacional / RS / Brasil
Esse post foi publicado em Banco de Dados, Computadores e a Internet, Programação, Programação Lazarus e marcado , , , , , . Guardar link permanente.

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google

Você está comentando utilizando sua conta Google. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s