PUBLICIDADE
Este artigo tem nota
8,17

Autor

cjmufa

Elias Junior

membro deste novembro de 2007

Tags

Compartilhe e guarde

  • Rec6
  • StumbleUpon
  • ueba
  • linkk
  • dihitt
  • linkloko
  • linkto
  • Technorati
  • Simpy
  • del.icio.us
  • Faves: Fave It!

PUBLICIDADE

Enquete

O mercado de publicidade na web chegou no seu limite?
quarta-feira, 30 de abril de 2008

Consulta ao MySQL utilizando o Lazarus


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.
Sim   Não   Este artigo foi útil para você?
NotaComentário
1
denunciar
deciorocha comentou em 8/4/2009

Resolvido

No meu caso, estava tentando acessar com o root. Criei outro usuário e boaaaaaaaaaaaa!!!
Abraço
8
denunciar
deciorocha comentou em 8/3/2009

connection failure

Estou tentando conectar o banco e não consigo, aparece a seguinte informação "mysql50connection : connection failure".
Outra coisa, passe uma dica de como podemos conectar o lazarus ao mysql por servidores remotos
Obrigado
Regras:
Os comentários seguem as seguintes regras:
  • Todos os comentários são enviados por membros cadastrados no site.
  • A pontuação de comentários de conteúdo do próprio membro não serão computados.
  • Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
  • Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
  • O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
  • Há um limite de 10 comentários por dia para cada membro.
  • Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

     (ainda não tem cadastro? clique aqui!)

Máximo de 30 caracteres

Máximo de 255 caracteres
 

R&W Consulting - Soluções Web Hospedagem UOL HOST PagSeguro - solução para pagamentos online
© 2006-2009 R&W Informática Ltda. - Todos os direitos reservados.