alias quot;Urgentequot; ! ! !
06/03/2003
0
Prezados Colegas de clube,
A dúvida que tenho, é como aparecer uma tela com um directorylistbox para achar a pasta onde as tabelas estão e daí criar no BDE o alias correspondente a minha escolha.
Muito Obrigado,
Wiltefran silva
A dúvida que tenho, é como aparecer uma tela com um directorylistbox para achar a pasta onde as tabelas estão e daí criar no BDE o alias correspondente a minha escolha.
Muito Obrigado,
Wiltefran silva
Maranhao
Curtir tópico
+ 0
Responder
Posts
06/03/2003
Marcelo Saviski
[color=darkred:4588f98ee2][b:4588f98ee2]peguei isto em um site, ele cria e remove alias[/b:4588f98ee2][/color:4588f98ee2]
:arrow: :D[img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_biggrin.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_smile.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_eek.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cool.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_lol.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_razz.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_redface.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_rolleyes.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_wink.gif[/img:4588f98ee2]
procedure SetAliasPath(Const sAlias, sPath : String); var oAliasParam : TStringList; sPathAtual : String; begin //Inicializar o Bde; dbiInit(nil); //se alias nao existe, entao iremos criar if not Session.IsAlias(sAlias) then begin Session.AddStandardAlias( sAlias, sPath, ´Paradox´ ); Session.SaveConfigFile; end //se existe o alias, entao vamos alterar o path do Alias else begin with Session do begin oAliasParam := TStringList.Create; //Obter Parâmetros do Alias GetAliasParams( sAlias, oAliasParam ); //pega o path antigo sPathAtual := oAliasParam[0]; //coloca o novo path oAliasParam[0] := ´PATH=´+sPath; //fazer a alteraçao Session.ModifyAlias( sAlias, oAliasParam ); //gravar as alteraçoes Session.SaveConfigFile; { disconnect TSession to refresh changes } Session.DropConnections; end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin //Parâmetro: Alias, Diretório do Banco de dados SetAliasPath(´Lixo´,´c:\lixo2´); //Pronto Sr. Valdinei, está aqui o que lhe prometi, fiz isto em 40min. //nao precisei utilizar chamadas direta ao BDE, apenas usei o Session. end;
:arrow: :D[img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_biggrin.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_smile.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_eek.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cool.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_lol.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_razz.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_redface.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_rolleyes.gif[/img:4588f98ee2][img:4588f98ee2]http://www.apriori.com.br/cgi/forum/images/smiles/icon_wink.gif[/img:4588f98ee2]
Responder
Clique aqui para fazer login e interagir na Comunidade :)