[firebase-br] Off - Como uso o arquivo INI para conectar nobanco

[Andrei Luís]

Tipo assim:

Utilizo IBObjects (IBO) em meus projetos. O cnSistema que passei na
msg anterior, é um TIB_Connection que faz a ligação ao banco de dados.
O método cnSistema.Disconnect desconecta do banco, enquanto o .Connect
conecta. A propriedade DatabaseName é onde informo o caminho e o banco
que será utilizado.

Olhando agora (pela primeira vez) o componente IBDatabase da paleta
Interbase, ele não tem os métodos Disconnect e Connect, logo você
usará ibDatabase1.connected := true / false, para conectar e
disconectar do banco. E propriedade DatabaseName tem a mesma
finalidade que no IBO.

Pelo que li na lista em outras ocasiões, deve-se passar também
parâmetros do tipo usuário e senha entre outros. Creio que ficaria +/-
assim:

procedure Tdm.DMCreate(Sender: TObject);
var ini : tIniFile;
begin
  arquivo :=TIniFile.Create('c:\teste.ini');
  dm.ibDatabase1.connected := false;
  dm.ibDatabase1.connected := true
  dm.ibDatabase1.DatabaseName := arquivo.ReadString('Banco', 'Caminho','');
   ibDatabase1.Params.Clear;
   ibDatabase1.Params.Add('user_name=sysdba');
   ibDatabase1.Params.Add('password=masterkey');
  try
     dm.ibDatabase1.Connected := true;
  except
     ShowMessage('Erro ao conectar-se ao banco de dados');
     Application.Terminate;
  End;
  arquivo.free;
end;


Acho que deve funcionar. Dê uma olhada na msg que o colega Paulo
Portella mandou, parece que ele sabe do que está falando, eu estou na
base da dedução!  :-)

[]
Andrei



Em 29/11/06, Cesar<cesar_newton em yahoo.com.br> escreveu:
> como assim não entendi essa parte que vc diz
> 'Os métodos Disconnect e Connect e a propriedade DatabaseName são
> pertinentes ao IBO. Adapte ao seu componente.'
> obrigado
>
> ----- Original Message -----
> From: "Andrei Luís" <compuvale.software em gmail.com>
> To: "FireBase" <lista em firebase.com.br>
> Sent: Wednesday, November 29, 2006 9:18 AM
> Subject: Re: [firebase-br] Off - Como uso o arquivo INI para conectar
> nobanco
>
>
> César,
>
> O princípio é esse que você colocou no FormShow, só que ao invés de
> você jogar o conteúdo em um edit, você vai configurar o teu componente
> de acesso, veja:
>
> Coloque a leitura do arquivo ini no onCreate do seu form principal ou
> do seu DM principal.
>
> procedure Tdm.DMCreate(Sender: TObject);
> var ini : tIniFile;
> begin
>    arquivo :=TIniFile.Create('c:\teste.ini');
>    dm.cnSistema.Disconnect;
>    dm.cnSistema.DatabaseName := arquivo.ReadString('Banco', 'Caminho','');
>    try
>       dm.cnSistema.Connect;
>    except
>       ShowMessage('Erro ao conectar-se ao banco de dados');
>       Application.Terminate;
>    End;
>    arquivo.free;
> end;
>
> Os métodos Disconnect e Connect e a propriedade DatabaseName são
> pertinentes ao IBO. Adapte ao seu componente.
>
>
> O meu arquivo ini está assim:
>
> [Banco]
> Caminho=d:\banco\banco.fdb
> CaminhoRede=192.168.1.10:d:\banco\banco.fdb
>
> Qualquer dúvida posta aí.
>
> []
> Andrei
>
>
>
> Em 29/11/06, Cesar<cesar_newton em yahoo.com.br> escreveu:
> > Off - Como uso o arquivo INI para conectar no banco
> > Eu consegui fazer um arquivo INI . esta funcionando certim
> > mais como eu faço agora para que esse arquivo acesse a minha base de
> > dados..por exemplo
> > la no meu arquivo INI esta assim 192.168 .0.1
> > como eu faço para a minha aplicação buscar esse arquivo e conectar no
> > banco?
> > eu uso Delphi 7 componente da Palheta Interbase, banco Firebird.
> > o componente que eu uso para conectar no banco é IBDataBase
> > eu fiz assim para gerar e acessar o meu arquvio INI
> > procedure TForm1.Button1Click(Sender: TObject);
> > var
> >   Arquivo: TIniFile ;
> > Begin
> > // Abre o arquivo
> > Arquivo := TIniFile.Create('c:\teste.ini');
> > // Coloca o conteudo do Edit no arquivo
> > Arquivo.WriteString('GERAL','Linha para testes',Edit1.Text);
> > // Libera o arquivo da memoria
> > Arquivo.free;
> > end;
> >
> > procedure TForm1.FormShow(Sender: TObject);
> > var
> >   Arquivo: TIniFile ;
> > Begin
> >  Arquivo := TIniFile.Create('c:\teste.ini');
> >  Edit1.Text := Arquivo.ReadString('GERAL','Linha para testes',Edit1.Text);
> > Arquivo.Free;
> > end;