View
215
Download
0
Category
Preview:
Citation preview
Ligando o MySQL no Delphi | www.francosampaio.com
Página 1
Clique na Aba ADO e insira o componente AdoConnection em um DataModule
Na propriedade ConnectionString (...) do componente AdoConnection clique no botão com três pontos.
Na janela que abrir clique no botão Build...
Ligando o MySQL no Delphi | www.francosampaio.com
Página 2
Clique na aba Conexão
Selecione o nome da fonte de dados, conforme mostra a figura abaixo. Ex.: bd_teste
Ligando o MySQL no Delphi | www.francosampaio.com
Página 3
Em insira o catálogo inicial a ser usado selecione o seu catálogo. Ex.: base_teste
Clique no botão Testar conexão
Ligando o MySQL no Delphi | www.francosampaio.com
Página 4
Se tudo estiver configurado corretamente aparecerá uma janela dizendo “Teste de Conexão concluído com
êxito”, Clique no botão OK para confirmar.
Clique no botão OK da janela Propriedades de associação de dados.
Ligando o MySQL no Delphi | www.francosampaio.com
Página 5
Clique no botão OK da janela DataModule2.ADOConnection1 ConnectionString
Na propriedade LoginPrompt do AdoConnection altere para False
Ligando o MySQL no Delphi | www.francosampaio.com
Página 6
Altere o nome do AdoConnection na propriedade Name para conexao
Insira o componente AdoDataSet da aba ADO no DataModule ele terá a “mesma função” do componente Table
da aba BDE.
Ligando o MySQL no Delphi | www.francosampaio.com
Página 7
Na propriedade Connection do AdoDataSet selecione o AdoConnection correspondente, no exemplo: conexao
Na propriedade CommandText do componente AdoDataSet clique no botão (...)
Ligando o MySQL no Delphi | www.francosampaio.com
Página 8
Na janela que abrir selecione a tabela que deseja em Tables, no exemplo: tb_cliente
Em Fields selecione os campos que deseja apresentar nesta tabela, se optar por mostrar todos clique em (*)
Ligando o MySQL no Delphi | www.francosampaio.com
Página 9
Verifique em SQL, deve mostrar um comando por exemplo: select * from tb_cliente clique no botão OK para
confirmar
Altere a propriedade Name para tb_cliente
Ligando o MySQL no Delphi | www.francosampaio.com
Página 10
Altere a propriedade Active do componente tb_cliente (AdoDataSet) para True e dê duplo clique no componente
tb_cliente
Ligando o MySQL no Delphi | www.francosampaio.com
Página 11
Clique com o botão auxiliar do mouse sobre o espaço em branco da janela que apareceu e depois clique em Add
all fields
Devem aparecer todos os campos selecionados no CommandText
Clique na aba Data Access
Ligando o MySQL no Delphi | www.francosampaio.com
Página 12
Insira o componente DataSource no DataModule
Altere a propriedade Name para ds_cliente
Ligando o MySQL no Delphi | www.francosampaio.com
Página 13
Em DataSet selecione tb_cliente (AdoDataSet)
“Você quer vender água com açúcar para o resto de sua vida,
ou quer mudar o mundo?” Essa foi a pergunta que Steve Jobs fez a John Sculley, então presidente da Pepsi,
durante sua entrevista de emprego para a vaga de CEO da Apple.
Recommended