RES: [firebase-br] Alias e BDE

[Camoloze]

Olá Fabio

Se entendi direito, veja o código abaixo que inclui no arquivo de projeto
.dpr ( suponho que esteja usando Delphi ).

Inclua as units SysUtils e dbTables

{$R *.RES}

Var
   cPath : String;
   Tamanho : Integer;
begin
   if not Session.IsAlias( 'SeuAlias' ) then
   begin
      Tamanho := Length( ExtractFilePath( Application.ExeName ) );
      cPath   := ExtractFilePath( Application.ExeName );

      Session.AddStandardAlias( 'SeuAlias',
         Copy( cPath, 1, Tamanho -1 ), 'MSACCESS' );

      Session.SaveConfigFile;
   end;

  Criação de seus forms.......
  formSplash := TFormSplash.Create( Application );
  formSplash.Show;
  formSplash.Update;
  Application.CreateForm(TDados, Dados);
  .....
  .....
End;

PS.: Uso essa rotina com Paradox ainda não testei com Access!
Meu código fica assim :
      Session.AddStandardAlias( 'SeuAlias',
         Copy( cPath, 1, Tamanho -1 ), 'PARADOX' );

[]´s Camoloze

-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
nome de Fabio" Paiva
Enviada em: sexta-feira, 25 de fevereiro de 2005 09:59
Para: Lista FDB
Assunto: [firebase-br] Alias e BDE



Oi, gente. 

Eu sei que a lista de discussão é Firebird. Mas, se alguém puder me ajudar
ficaria agradecido...

Seguinte, tenho uma aplicação que ainda trabalha com Access utilizando o
BDE. Gostaria de uma aplicativo que configurasse um alias, seja
automaticamente ou o usuário informando como parâmetro o caminho da Base de
Dados (isso seria o de menos). O que preciso evitar é que o usuário vá ao
Painel de Controle e crie uma fonte de dados.

Alguém tem alguma aplicação neste estilo?

Desde já, agradeço.




"A maioria dos produtos de hardware vem com uma garantia; a maioria dos
produtos de software vem com uma negação de garantia." James Martin
 
Fábio Paiva
Horizonte Gestão Empresarial
8802-3687 e 4006-4026/4039/4081

















		
---------------------------------
Do you Yahoo!?
 Yahoo! Sports -  Sign up for Fantasy Baseball.