[Artigos]  ACESSO A BANCO DE DADOS EM ACCESS COM DELPHI Publicado por edusf : Quarta, Setembro 03, 2003 - 11:40 GMT-3 (82682 leituras)  30 Comentários    Enviar para um amigo    Versão para impressão Sou estagiário do Laboratório de Hidráulica Computacional, da UFRJ. Aqui, sempre foi usado BDE para acessar e manipular banco de dados. Porém... , atualmente, todos os sistemas que usam BDE estão sendo substituídos para ADO. Nesse artigo, serei bem específico. A pergunta a ser respondida é: como acessar um banco de dados em Access através do ADO?? Inicialmente, copie o seu banco de dados do access para a mesma pasta onde está o seu projeto do delphi. Depois, no delphi, vá até a guia ADO e insira no projeto um ADOConnection. Na propriedade ConnectionString, clique em ... Selecione Use Connection String e clique em build. Selecione então, na guia Provider, Microsoft Jet 4.0 OLE DB Provider. Clique em Next >>. Aparecerá um campo onde o delphi pede para entrar com o nome do banco de dados. Clique em ... e selecione o seu banco de dados em access. Depois clique em Test Connection. Se aparecer a mensagem Test Connection Succeeded, é porque o a conexão está funcionando. Clique em ok duas vezes (até retornar a tela com o form do delphi). Mude a propriedade login prompot para false. Agora vem a grande sacada. Na propriedade Conection String, deve estar escrito em algum lugar o endereço do banco de dados que você quer acessar. Ex: C:\[diretorio]\...\[nome_do_banco.mdb]. O que você precisa fazer é substituir esse endereco pelo seguinte: .\[nome_do_banco.mdb]. Ou seja, o seu programa irá ler o banco de dados que estiver na mesma pasta que ele. Isto é um grande facilitador. Basta colocar o banco de dados em Access Na mesma pasta do seu projeto (ou do executável, quando ele for gerado) que vai rodar. Sem o chato do alias que o BDE exige. Após fazer isto, você já tem uma conexão com o baco de dados em access. Para mostrá-la, insira um componente ADOTable, ainda na guia ADO, um DBGrid, na guia DataControls e um DataSource, na guia DataAccess. Ainda no ADOConnection, altere a propriedade Connected para true. Na ADOTable, propriedade Connection, selecione o nome da sua conexão (ADOCOnnection). Em TableName, deve aperecer uma lista com todas as tabelas que seu arquivo do access possui. Selecione uma de seu interesse. Altere a propriedade Active para True. Agora vá no DataSouce. Na propriedade DataSet, selecione o nome da tabela que você inseriu no Delphi (o padrão é ADOTable1). Agora no DBGrid altere a propriedade DataSource para o nome do dataSource que você inseriu (o padrão é DataSource1). Pronto! Se tudo ocorreu bem, agora sua tabela apareceu no DBGrid. Jogue fora seu velho DBE. Você pode aproveitar os outros componentes da guia ADO. Um muito importante é o ADOQuery. Com ele você pode fazer consultas em SQL ao seu banco de dados. A lógica é a mesma. Ligar a Query a conexão, ligar o DataSouce a query e o DBGrid no Data Source. Para a query funcionar, é preciso que na propriedade SQL você insira o código da consulta. Você deve estar se perguntando: Mas que diabos de SQL! Eu não sei isso! É, mas eu também não sei grandes coisas sobre SQL e isso não me impediu de fazer a consulta que eu quiser. Isso se você souber Access (não me decepcione agora!). Crie uma consulta pelo Access (no seu banco de dados). Clique em exibir/Modo SQL. Pronto! O código está ali prontinho para você inserir na propriedade SQL do seu ADOQuery. Apenas uma ressalva. repare no código SQL que primeiramente vem uma instrução SELECT ...FROMe depois uma WHERE. Isto significa que a consulta seleciona todos os campos que vez depois do select na tabela que vem depois do FROM, onde o valor de um determidado campo é definido. Isso vem depois do WHERE. Esse valor definido é chamado de parâmetro. O que vc precisa fazer é substituir o parâmetro por uma variável. Após o sinal de =, apague o parâmetro e escreva :[variável]. Ou seja, se eu quero que meu parâmetro seja o que estiver na variável codigo, o cógigo SQL fica WHERE [campo]=:codigo Não mecha no resto do código SQL. Ainda na Query, vá em Parameters ... a sua variável deve ter aparecido. Altere a propriedade value para um valor inicial para o seu parâmetro (pode ser aquele valor que vc apagou para substituir por :codigo). Pronto, sua consulta esta feita. Agora, para mudar o parâmetro da consulta em tempo de execução, escreva em algum evento o cógido ADOQUERY1.Parameters.ParamByName('codigo').Value := UmValor; onde UmValor é um string contendo o parâmetro da consulta. Mas isso não basta para atualizar a consulta. Crie uma EditBox e um botão. No evento onClick do botão insira o segiunte código: ADOQUERY1.Active := False; ADOQUERY1.Parameters[0].Value := edit1.Text; ADOQUERY1.Open; ADOQUERY1.Active := True; Pronto. Agora rode o programa. passe os parâmetros pela edit box e perceba que a consulta esta sendo atualizada a cada clique do botão. É interessante alterar algumas propriedades da Query os Table. Mas falar sobre elas renderiam outro artigo. Espero que gostem. Qualquer dúvida, mandem um e-mail: edusf19@ig.com.br Um abraço a todos Eduardo Ferreira.

Comentários

Ordem:  Os mais antigos primeiro Os mais recentes primeiro Melhores primeiro

Comentários pertencem aos seus respectivos autores. Não somos responsáveis pelo seus conteúdos.

por: marceloeli : Jan 26, 2004 - 04:01 (Informações sobre o membro | Enviar uma mensagem)

Legal mesmo...Explica melhor d q certos Livros

[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema



por: Azevedo (suporte.azevedo@gmail.com) : Mar 23, 2010 - 08:00 (Informações sobre o membro | Enviar uma mensagem) http://www.surbim.acharei.com.br

Amigos, deixei de usar DBE há mais de 5 anos. Uso apenas MDB com conecção ADO no Dilphi, conforme o Texto Didaticamente e Dividamente Explicado acina, e nunca me decepcionei. Recomedo a todos.

[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema

por: edusf : Set 16, 2003 - 04:38 (Informações sobre o membro | Enviar uma mensagem)

Achei o ADO melhor. Quais seriam as diferenças quanto ao acesso em rede?

[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema



por: Raiduster : Abr 15, 2005 - 12:58 (Informações sobre o membro | Enviar uma mensagem)

vc teria que escrever o caminho inteiro do servidor, nos cliente! Tipo \\nomedoservidor\pastadoarquivo

[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema

por: btgoreau (btgoreau@uol.com.br) : Mai 30, 2004 - 10:37 (Informações sobre o membro | Enviar uma mensagem) http://

se seguir a orientaçào de alterar a propriedade Login Prompt para false nao deverá aparecer mais.

[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema



por: dominguesmg : Jun 04, 2004 - 09:56 (Informações sobre o membro | Enviar uma mensagem)

Existe uma propriedade logimprompt que tem que setar false

[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema



por: Jocelio : Jun 24, 2004 - 11:34 (Informações sobre o membro | Enviar uma mensagem) http://http://

Mude a propriedade login prompot para false

[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema

por: Kolzx : Nov 26, 2004 - 09:09 (Informações sobre o membro | Enviar uma mensagem)

foi um meio drastico o que eu encontrei, mas resolveu, o arquivo fica travado, como se estivesse se reorganizando, faça uma copia do banco e delete a original depois volte-a para o mesmo lugar, da certo.....

[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema

por: Cachoeira : Nov 12, 2004 - 04:44 (Informações sobre o membro | Enviar uma mensagem) http://

Não tenho o delphi instalado na maquina que eu estou agora ... Mas se eu não me engano você precisa setar a propriedade LoginPrompt = false

[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema



por: Kolzx : Nov 26, 2004 - 09:08 (Informações sobre o membro | Enviar uma mensagem)

no ADOConection existe um campo Login Promt, é so seta-lo para false que estara resolvido o problema do login

[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema



por: haddad : Abr 24, 2005 - 10:33 (Informações sobre o membro | Enviar uma mensagem)

SELECIONE A PROPRIEDADE (LOGIN PROMPT) PARA FALSE.

[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema

Copyright© 2001-2016 – Active Delphi – Todos os direitos reservados