mudar o path do alias pelo programa
06/12/2005
0
Ola Pessoal, possuo um aplicativo com um alias internamente e necessito que quando o usuario selecionar o alias da filial ele possa trocar automaticamente o caminho das tabelas sem ter que ficar entrando no bde para tal troca. Tenho criado dentro da tabela de empresas o path direcionamento pois nao sei como fazer com que o usuario apos selecionar a filial possa estar criando o novo caminho para ter acesso. No aguardo por alguem que saiba como executar tal comando, obrg a todos.
Amarildo
Curtir tópico
+ 0
Responder
Posts
07/12/2005
Cavalcanti.fabio
Olá,
Faço desta forma em meu sistema...utilizo paradox...
onde a variavel diretoriogeral é :
diretoriogeral:= ´O:\Sistema\Folha´;
Dbcodigoemp:= ´001´ ou ´002´ depende do codigo do cliente.
diretorioempresa :=diretoriogeral+´ARQ´+StrZero(StrToInt(Dbcodigoemp),3);
//aqui e excluido o diretorio do BDE
Session.DeleteAlias(´Folha´+StrZero(StrToInt(Dbcodigoemp),3));
Session.SaveConfigFile;
//aqui e criado novamente o Alias no BDE
Session.DeleteAlias(´Folha´+StrZero(StrToInt(Dbcodigoemp),3));
Session.AddStandardAlias(´Folha´+StrZero(StrToInt(Dbcodigoemp),3),diretorioempresa, ´PARADOX´);
Session.SaveConfigFile;
na clausula uses declare esta a unit:
uses
IniFiles;
caso tenha duvida basta posta...
ok.
fabio
Faço desta forma em meu sistema...utilizo paradox...
onde a variavel diretoriogeral é :
diretoriogeral:= ´O:\Sistema\Folha´;
Dbcodigoemp:= ´001´ ou ´002´ depende do codigo do cliente.
diretorioempresa :=diretoriogeral+´ARQ´+StrZero(StrToInt(Dbcodigoemp),3);
//aqui e excluido o diretorio do BDE
Session.DeleteAlias(´Folha´+StrZero(StrToInt(Dbcodigoemp),3));
Session.SaveConfigFile;
//aqui e criado novamente o Alias no BDE
Session.DeleteAlias(´Folha´+StrZero(StrToInt(Dbcodigoemp),3));
Session.AddStandardAlias(´Folha´+StrZero(StrToInt(Dbcodigoemp),3),diretorioempresa, ´PARADOX´);
Session.SaveConfigFile;
na clausula uses declare esta a unit:
uses
IniFiles;
caso tenha duvida basta posta...
ok.
fabio
Responder
08/12/2005
Amarildo
Fabio, agradeço pela sua atenção a minha dúvida, vou estar inserindo o quanto antes, pois minha necessidade é fundamental, obrg, por estar me ajudando, um forte abraço e sucesso
Responder
Clique aqui para fazer login e interagir na Comunidade :)