Aplicativos com base de dados em rede
Eneias Carvalho
Colunista ainda sem descrição. Caro colunista, por favor envie-nos sua descrição.
E ai galera, esse é meu primeiro artigo no site, já fui muito beneficiado por este site e resolvi colaborar com o pouco que sei, espero que possa ajudar.
Para começar resolvi escolher um assunto que vejo em fóruns, sites, comunidades, etc, que os desenvolvedores novos e até mesmo mais experientes, têm muitas duvidas, o assunto é sistemas de banco de dados em rede, esse é um assunto muito abrangente, tenho amigos que dizem que chega-se até cada pessoa ter sua própria receita de bolo, venho tratar desse assunto por meio de arquivos “.ini”, esse artigo trata de conexão com banco Access, mais é aplicável a outros bancos, como interbase/firebird, mysql, etc.
Chega de enrrolação vamos ao artigo:
Primeiramente inclua as seguintes units: ExtCtrls, StdCtrls ,IniFiles, Windows, Controls, Forms, as units DB, ADODB, são colocadas automaticamento pelo Delphi, logo após incluir as units, crie duas variáveis globais como o exemplo abaixo: var BancoDeDados : String; ArquivoINI : TIniFile; Onde, a variável BancoDeDados, será onde guardaremos o caminho do banco de dados, e a variável ArquivoINI, será o arquivo q será criado para o aplicativo lê o caminho do banco de dados. Depois de incluída as units e criadas as variáveis vamos relizar a conexão, partindo do ponto q você saiba criar uma conexão com banco de dados Access através do ado, vamos começar, primeiramente, após criado sua aplicação apague a propriedade ConnectionString do seu ADOConnection, e no evento onCreate do datamodule digite o seguinte: procedure TDM.DataModuleCreate(Sender: TObject); var i : Integer;//variavel para contagem de tabelas, para ativar todas begin //a proxima linha o sistema verifica se o arquivo não existe no diretório da aplicação
//caso o arquivo não exista ele o cria if not