Fórum Caminho do Banco de Dados #27168
11/03/2010
0
Aline Paliari
Curtir tópico
+ 0Posts
11/03/2010
Aline Paliari
Gostei + 0
11/03/2010
Frost
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
11/03/2010
Frost
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
Clique aqui para fazer login e interagir na Comunidade :)