Buscar por:

Como criar aliases automáticamente

Código

OBS: 

  Se Você é um programador Experiente Pule para a parte 2

Parte 1 - Explicação: 

para quem é novato em Delphi é meio complicado entender oque é um ALIAS, bom o ALIAS é um "apelido" para o banco de dados, todo o programa que acessa banco de dados (tabelas com informações para sua execução) necessita de um ALIAS. Para criar manualmente você precisa seguir os seguintes passos:

1 - Abra o Painel de Controle;

2 - Abra o BDE Administrator;

3 - No menu OBJECT clique na opção NEW...;

4 - Irá aparecer um novo ícone no Tree View (Estrutura) do BDE ;

5 - Digite o nome para o ALIAS (é como nomear uma pasta)

6 - No lado direito na opção PATH digite o endereço da pasta que contém as tabelas do Banco de Dados

7 - Clique no Menu Object e selecione o opção APPLY

****Pronto Você Criou seu Primeiro Alias****

Parte 2 - Criar Alias Automaticamente;

1 - No Formulálio Principal (aqui será chamado de Princ) na área de PUBLIC digite o seguinte texto:

procedure CriaAlias;

2 - Tecle Ctrl+Shift+C (ele irá criar uma chamada para a função CriaAlias na IMPLEMENTATION);

3 - Dentro do bloco BEGIN .. END digite:

 If not (session.IsAlias('NOME_DO_ALIAS')) then

  begin

    //Testa se o Alias já existe

    session.AddStandardAlias('Nome_do_alias','Endereço_do  Alias','Paradox');

    ShowMessage('Alias Criado Com Sucesso!!!');

    end;

4 - Clique no Menu Project na opção View Source depois do BEGIN e antes do comando Application.Initialize digite o seguinte texto:

Princ.CriaAlias;

Prontinho.

Espero Ajudar....

Dyego Fernandes de Sousa

www.dyegofern.cjb.net