Olá galera, nesta Quick Tips, irei mostrar como podemos conectar um arquivo DBF com Delphi utilizando os componentes “descontinuados” da palheta BDE.

            Como sabemos em Delphi os componentes criados em versões anteriores, mesmo que não tiveram continuação/evolução são mantidos na ferramenta, para termos compatibilidade na hora de migrarmos a verão do Delphi, facilitando os clientes Embarcadero para não ter que mudar seus componentes, ao adquirir uma nova versão do Delphi :

 

Primeiramente deveremos criar um Alias, e configurarmos o mesmo através do BDE Administrator, localizado no Painel de Controles.

 

Mas o que é o BDE Administrator ?

 

            Esta poderosa ferramenta possibilita a conexão com bancos de dados e é instalado geralmente com o Delphi, justamente para utilizarmos a palheta BDE, e seus componentes. Podemos nela configurar usuários e senhas, nome de servidor de banco de dados, testarmos conexões entre as estações de clientes e o servidor. Ele por sua vez ao ser utilizado em rede deve ser instalado em todas as estações clientes que forem utilizar o acesso a dados, de forma prática e simples é mole configurar, porém temos que para toda nova máquina configurar o BDE, alguns bancos de dados mais novos como MySQL, não temos que instalar o Cliente na maquina cliente basta utilizarmos a DLL do mesmo, sendo bem mais prático do que o BDE Administrator.

 

            Ao abrir a janela do BDE Administrator, vamos ao menu Object / New, selecione Standard, vamos agora configurar o mesmo :

 

  • Altere seu nome para DEVMEDIA,
  • Altere a propriedade PATH para o caminho onde encontrasse o seu arquivo DBF físico.
  • Default Driver = PARADOX
  • Type = STANDARD

 

 

Vamos a construção do Exemplo, adicione em uma nova aplicação VCL Forms Application – Delphi :

 

TTable (BDE)

            Name = TblCliente

            DataBaseName = DEVMEDIA

            TableName = clientes.dbf

 

DataSetProvider(Data Access)

            Name = DSPCliente

            DataSet = TblCliente

 

ClientDataSet(Data Access)

            Name = CDSCliente

            DataSetProvider = DSPCliente

 

Data Source(Data Access)

            Name = DSCliente

            DataSet = CDSCliente

 

DBGrid(Data Controls )

            Name=DBGrdCliente

            DataSource = DSCliente

           

Após configurarmos as propriedades dos componentes, TblCliente, DSPCliente, CDSCliente, DSCliente, DBGRDCliente, podemos agora ativar o CDSCliente, e se todas as configurações foram feitas de acordo com a explicação acima, deverá ser exibido os dados e colunas da sua desejada tabela.

 

Assim obtemos comunicação com os arquivos DBF, você pode utilizar também o Driver ODBC, para tal feito e utilizar assim componentes da palheta ADO(Microsoft)

 

Fico por aqui ate à próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br