Consulta ao MySQL utilizando o Lazarus

quarta-feira, 30 de abril de 2008.

autor: Elias Junior

Para esse exemplo de conexão usando o Lazarus e o MySql serão necessários 2 programas:

OBS: Ambos podem ser baixados através a área de downloads do site www.codigofonte.com.br

Depois de instalados, execute o EasyPhp. Clique com o botão direito no ícone dele na área de notificação e clique em Administração.
Na janela que abrir, clique em mysql administrar.
Novamente irá surgir uma nova janela.
Agora clique em um ícone escrito SQL.
Na janela que aparecer, clique em SQL novamente.
No campo Fazer consulta SQL... copie e cole o texto abaixo:

create database exemplo;


grant all privileges on exemplo.* to 'root'@'localhost' identified by '';
grant all privileges on exemplo.* to 'root'@'%' identified by '';

use exemplo;

create table teste(
codigo int not null auto_increment,
nome varchar(20),
sobrenome varchar(20),
apelido varchar(20),
primary key(codigo));
insert into teste values('','Joao','Freitas','Jao');
insert into teste values('','Joaquim','Ferreira','Quim');
insert into teste values('','Jose','Silva','Ze');
insert into teste values('','Carlos','Souza','Carlim');
insert into teste values('','Gustavo','Lima','Gugu');
insert into teste values('','Ricardo','Souza','Ricardao');
insert into teste values('','Rafael','Silva','Fael');
insert into teste values('','Henrique','Freitas','Rico');
insert into teste values('','Miguel','Lima','Migue');
insert into teste values('','Manoel','Ferreira','Manu');

Agora clique em Executar.
Feche as janelas do EasyPhp mas não encerre o programa.

Execute o Lazarus.
Criaremos agora uma conexão com o MySql para consultar os dados da tabela "teste" do banco "exemplo".
Com o Lazarus aberto, clique na guia SQLdb.
Nessa guia iremos usar os seguintes componentes:

MySQL50Connection;
SQLTransaction;
SQLQuery.

Depois clique na guia Data Access.
Utilizaremos o componente:

Datasource.

Clique na guia Data Controls.
Utilizaremos o componente:

DBGrid.

Clique na guia Standard.
Utilizaremos o componente:

Button.

Agora que já temos os componentes, vamos ao codigo.
Faremos uma conexão em tempo de execução.
Clique em um local vazio do "Form1". Na aba ao lado, Object Inspector, clique em Events.
Dê um duplo clique no evento OnShow.
Copie e cole o código abaixo:


 MySQL50Connection1.transaction:=SQLTransaction1;
 MySQL50Connection1.databasename:='exemplo';
 MySQL50Connection1.hostname:='127.0.0.1';
 MySQL50Connection1.password:='';
 MySQL50Connection1.username:='root';
 SQLTransaction1.DataBase:=MySQL50Connection1;
 SQLQuery1.DataBase:=MySQL50Connection1;
 SQLQuery1.Transaction:=SQLTransaction1;
 Datasource1.dataset:=SQLQuery1;
 dbgrid1.datasource:=Datasource1;
 sqlquery1.SQL.clear;
 sqlquery1.sql.add('select * from teste;');
 if(MySQL50Connection1.connected=false)then
  MySQL50Connection1.connected:=true;
 if(SQLTransaction1.active=false)then
  SQLTransaction1.active:=true;
 if(SQLQuery1.active=false)then
  SQLQuery1.active:=true;
 dbgrid1.Refresh;
 dbgrid1.Height:=221;
 dbgrid1.Width:=524;
 dbgrid1.Top:=8;
 dbgrid1.Left:=8;
 dbgrid1.readonly:=true;
 form1.caption:='Exemplo de consulta';
 form1.height:=275;
 form1.width:=544;
 form1.position:=poDesktopCenter;
 button1.caption:='Terminar';

Agora dê um duplo clique no Button1.
Copie e cole o código abaixo:


 if application.messagebox('Deseja realmente sair?','Aviso',1)=1 then
 begin
  if(SQLQuery1.active=true)then
   SQLQuery1.active:=false;
  if(SQLTransaction1.active=true)then
   SQLTransaction1.active:=false;
  if(MySQL50Connection1.connected=true)then
   MySQL50Connection1.connected:=false; 
  application.terminate;
 end;

Agora salve o projeto e execute!
OBS: Se o Lazarus der erro na hora de executar porque está faltando uma dll, basta baixar o arquivo e colar na pasta system32 do Windows

By cjmufa.

Versão impressa gerada em: sábado, 7 de novembro de 2009