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:
Clique na guia
Data Controls.
Utilizaremos o componente:
Clique na guia
Standard.
Utilizaremos o componente:
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.
Este artigo foi útil para você?
Versão para Impressão
Enviar por E-mail
Adicionar em Favoritos
Conheça o Autor
Palavras-Chave
