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

[Fernando Reis Guimarães]

MELHOR SOLUÇÃO: Use o TPersistencie do JEDI

2006/11/29, Andrei Luís <compuvale.software em gmail.com>:
>
> 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;
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>



-- 
Atenciosamente,
Fernando Reis Guimarães.

Contatos
fernando em fernandobhz.com
http://www.fernandobhz.com
Celular 9213-3727.