Apesar da segurança do Java, além de outros aspectos, ainda há empresas que desenvolvem com Delphi e eu acho que sempre haverá, pelo menos enquanto a linguagem existir. Eu por exemplo, agora estou trabalhando em um empresa que desenvolve em Delphi, e por isso estou aprendendo e relembrando algumas coisas, das quais irei partilhar com vocês leitores do Clube dos Geeks e interessados no assunto, principalmente para aqueles que estão começando no ramo. Vamos usar o Delphi 2007, mas darei um boa dica para quem usa a versão 7, que tem dificuldade em conectar a bancos MySQL com versão acima da 5.0.
Configurando para conectar MySQL no Delphi 7
Sugiro que você que uso Delphi 7 instale a versão 5 do MySQL, mas se quiser pode instalar uma versão mais recente, só não posso garantir que vai funcionar. Baixe o MySQL aqui, no site oficial. Depois disso execute a instalação e vamos lá.
1 – Após a instalação do MySQL ter sido completada faça o download deste drive AQUI, e descompacte o arquivodbxopenmysql50.dll, enviando-o para a pasta “C:\Arquivos de programas\Borland\Delphi7\Bin\”;
2 – Abra o arquivo dbxdrivers.ini localizado na pasta “C:\Arquivos de programas\Arquivos comuns\Borland Shared\DBExpress” com o Bloco de Notas ou outro editor de texto e altere as seguinte linhas:
* Na seção [Installed Drivers] adicione a seguinte linha:
MySQL50=1
* E abaixo da seção adicione o seguinte código:
[MySQL50]
GetDriverFunc=getSQLDriverMYSQL50
LibraryName=dbxopenmysql50.dll
VendorLib=libmysql.dll
HostName=ServerName
Database=DBNAME
User_Name=user
Password=password
BlobSize=-1
ErrorResourceFile=
LocaleCode=0000
GetDriverFunc=getSQLDriverMYSQL50
LibraryName=dbxopenmysql50.dll
VendorLib=libmysql.dll
HostName=ServerName
Database=DBNAME
User_Name=user
Password=password
BlobSize=-1
ErrorResourceFile=
LocaleCode=0000
O arquivo ficará assim:
Agora salve e feche o arquivo.
Curta:
3 – Vá na pasta “C:\Arquivos de programas\MySQL\MySQL Server 5.0\bin”, e localize o arquivo libmySQL.dll,copie ele para a pasta “C;\Windows”;
Fazendo a conexão com o Banco de Dados, Delphi 7 e 2007
A partir daqui será feita a conexão com o Banco de Dados, os passos a seguir servem tanto para a versão 7 do Delphi, quanto para a 2007 e outras versões.
4 – Pronto, agora abra o Delphi 7 e adicione os seguintes componentes: SQLConection, SQLQuery, DataSetProvider, ClienteDataSet e DataSource;
5 – Dê um duplo-clique no SQLConnection, clique em Add, selecione MySQL50 e dê um nome a sua conexão;
6 – Agora preencha os campos da conexão:HostName = localhost (se acaso for uma conexão remota coloque o endereço IP o nome da máquina que será acessada),DataBase = O nome do Banco de Dados que você vai acessar (veiculos é apenas um exemplo), User_Name =Normalmente é “root”, mas acaso você tenha cadastrado outro na instalação do MySQl, use ele, e Password = que por padrão é em branco, mas que pode ser alterado na instalação do MySQL. Os campos não citados não nos são importantes.
7 – Agora no botão circulado de vermelho e depois no circulado de verde para testar a conexão. Para evitar que seja solicitado login todas as vezes que for conectar, saia desta tela, selecione o elemento SQLConnection, altere a propriedade LoginPrompt para false.
8 – Agora selecione o elementoSQLDataSet, procure pela propriedade SQLConnection, e selecione o elemento de mesmo nome. Na propriedade CommandText selecione uma tabela do banco de dados e os campos dela, de preferência * que são todos. Depois mude a propriedade Active para true;
9 – Depois, com o elemento DataSetProvider selecionado, vá a propriedade DataSet e selecione o SQLDataSet1;
10 – Ligue o ClientDataSet1 ao DataSetProvider1 pela propriedade ProviderName do ClientDataSet. Depois ligue o DataSource1 ao ClientDataSet1 e o SQLQuery1 ao DataSource1;
11 – Não esqueça de dar um duplo-clique no ClientDataSet1, clicar com o botão direito do mause>>Add Files, selecione as colunas desejadas e pronto.
0 comentários: