Banco de Dados MySQL com Delphi.

Banco de Dados MySQL com Delphi.

Para efetuar uma conexão Delphi + MySQL usando dbExpress, primeiro Certifique-se de que o banco de dados MySQL está devidamente configurado e funcionando. Vá até a aba de componentes dbExpress e arraste um componente TSQLConnection para o formulário. Este é o componente responsável pela conexão com o banco de dados. Selecione o componente no formulário de forma a acessar suas propriedades no Object Inspector.  Agora na propriedade ConnectionName selecione [MySQLConnection]. Automaticamente a propriedade Driver deve ser definida como MySQL. A propriedade LibrayName será definida como dbxmys.dll e a propriedade VendorLib é definida como libmysql.dll. Ao definirmos o valor MySQL para a propriedade [ConnectionName] faremos com que os parâmetros de conexão sejam criados com os valores padrões e guardados na propriedade Params. Em Params acione o editor [Value List Editor]. Em HostName você deverá informar o [nome ou IP] do servidor MySQL. Se estiver rodando localmente use apenas [localhost]. Em Database informe o nome da base de dados, por exemplo, [Clientes]. Em User_Name informe o usuário do banco de dados, geralmente é [root]. Em Password informe a senha do banco de dados e confirme.

Na propriedade LoginPrompt altere seu valor para False. Isso evita que a tela de login seja exibida quando tentarmos efetuar a conexão e na propriedade Connected e altere seu valor para True. Se correr tudo bem você já estará conectado ao banco de dados MySQL. Arraste um componente TSQLQuery para o formulário e defina sua propriedade SQLConnection para o componente criado anteriormente, ou seja, SQLConnection1. Coloque um botão no formulário e insira o código abaixo em seu evento [Click]:

Código:


procedure TForm1.Button1Click(Sender: TObject);
begin
  SQLQuery1.Active := False;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('SELECT * FROM clientes');
  SQLQuery1.ExecSQL;
 
  // vamos obter a quantidade de registros retornados
  ShowMessage('Quantidade de registros: ' + IntToStr(SQLQuery1.RecordCount));
end;


Aqui nós retornamos a quantidade de registros presentes na tabela clientes e o processo já está concluído, agora só configurar seu aplicativo e acessar os dados corretamente.