Conectar Lazarus Com Mysql

Bem vou tentar aqui explicar neste breve documento como ligarem o vosso lazarus a uma base de dados em mysql é muito simples embora possa-se passado algum tempo se tornar confuso. Vou usar como exemplo a base de dados que realizei como projecto para a disciplina de programação.

No Lazarus temos que ter em mente 3 aplicações do componente SQLDB:






- TMysql50connection: é a aplicação que se vai conectar ao hostname(ex:localhost) e onde se definem o nome da base de dados a que se pretende conectar assim como o username. o numero 50 define a vossa versão de mysql.

- TSQLQuery : é a aplicação que faz todas as consultas à base de dados, ela é muito importante para listagens, inserir registos, apagar, alterar, etc.

- TSQLTransaction: é a aplicação necessária para activar um dataset (será falado mais à frente) ela faz toda a gestão das dataset.



Após esta breve introdução aos componentes do lazarus vamos então fazer o 1º Form. (Atenção Clique nas imagens para a ver mais nitida)

Propriedades Da Aplicação MYSQLConnection:

Propriedades de SQLQuery1:

Propriedades do SQLTransaction:

Código Do Procedimento OnClick do Botão Conectar:

procedure TForm1.ligarClick(Sender: TObject);


begin
SQLQuery1.Close;
ShowString('Conectado Ao Servidor: ' + MySQLConnection1.hostname);
ShowString('A Conectar a Base de Dados: LAN ESAC09 ...');
SQLQuery1.SQL.Text := 'show databases';
SQLQuery1.ParseSQL:=false;
SQLQuery1.ReadOnly:=true;
SQLQuery1.Open;
if SQLQuery1.Active then begin
SQLQuery1.First;
ShowString('Conexão Estabelecida');
end
else
ShowString('Query NOT ACTIVE');

while not SQLQuery1.EOF do begin
SQLQuery1.Next;
end;
SQLQuery1.Close;
end;