Caminho do Banco de Dados

Delphi

11/03/2010

Tenho uma aplição que se conecta ao banco através do componente BDE. A dúvida é: como faço no delphi pra pegar o caminho do banco de dados configurado no BDE Administrator ?
Aline Paliari

Aline Paliari

Curtidas 0

Respostas

Aline Paliari

Aline Paliari

11/03/2010

Pessoal to precisando muito descobrir o caminho do banco de dados que esta configurado no BDE Administrator. Por favor me ajudem.
GOSTEI 0
Frost

Frost

11/03/2010

Boa tarde
Aline

Não sei se é isso que vc quer mais vamos lá utilizado delphi (2010)

1° Coloque um componente session (BDE) , combobox e um Button no onclique do Button1 coloque sequinte

session.GetAliasnames(combobox1.items); // Captura todo os alias do BDE


depois declare o seguinte em * public { Public declarations } *
  
   WAlias : TStringList; //Capitura o Alias do Bde
   WServidor : String; //Retorna o Caminho


2° coloque mais um Button  e um label

no evento onclique do  Button2 coloque o seguinte codigo

 WAlias := TStringList.Create;
Session.GetAliasParams(ComboBox1.Text,WAlias);
 WServidor := WAlias[0];                                                // Autor: Felipe Monteiro            
 WServidor := Copy(WServidor,6,255);
 WServidor := Copy(WServidor,1,(Length(WServidor)));
 Label1.Caption := WServidor;


obs : delcare no uses  BDE, DB, DBTables;

GOSTEI 0
Frost

Frost

11/03/2010

Boa tarde
Aline

Não sei se é isso que vc quer mais vamos lá utilizado delphi (2010)

1° Coloque um componente session (BDE) , combobox e um Button no onclique do Button1 coloque sequinte

session.GetAliasnames(combobox1.items); // Captura todo os alias do BDE


depois declare o seguinte em * public { Public declarations } *
  
   WAlias : TStringList; //Capitura o Alias do Bde
   WServidor : String; //Retorna o Caminho


2° coloque mais um Button  e um label

no evento onclique do  Button2 coloque o seguinte codigo

 WAlias := TStringList.Create;
Session.GetAliasParams(ComboBox1.Text,WAlias);
 WServidor := WAlias[0];                                                // Autor: Felipe Monteiro            
 WServidor := Copy(WServidor,6,255);
 WServidor := Copy(WServidor,1,(Length(WServidor)));
 Label1.Caption := WServidor;


obs : delcare no uses  BDE, DB, DBTables;

GOSTEI 0
POSTAR