Buscar por:

Criando alias - varias formas

Código

Criando Alias via programação 

Inclua na seção uses: DB 

{ se o alias não existir... } 

if not Session.IsAlias('MeuAlias') then 

begin 

{ Adiciona o alias } 

Session.AddStandardAlias('MeuAlias', 'C:DirProg', 'PARADOX'); 

{ Salva o arquivo de configuração do BDE } 

Session.SaveConfigFile; 

end; 

========================================================================================

Criando Alias de Banco de Dados no Código 

Exemplo para arquivo .dbf e .db :

1. Crie um novo projeto.

2. Coloque os seguintes comoponentes no form: Tdatabase, Ttable, Tdatasource, Tdbgride Tbutton.

3. Dê um double-click no Tdatabase para entrar no Database propriety editor.

4. Configure o Database Name para 'MeuAlias' .

5. Selecione 'STANDART' para Drive Name.

6. Clique no botão Default. Ele automaticamente adicionará um PATH= na área de parametros.

7. Configure o PATH= para C:DELPHIDEMOSDATA.

8. Clique no botão OK para fechar a caixa de diálogo.

9. Configure a proporiedade DatabaseName do Ttable para 'MeuAlias'.

10.Configure a proporiedade Dataset do TDatasource para 'Table1'.

11.Configure a proporiedade DataSource do Tdbgrid para 'Datasource1'.

12.Coloque o seguinte código no evento Onclick do TButton:

Procedure TForm1.Button1Click(Sender:Tobjetc);

 begin

        Table1.TableName := 'CUSTOMER';

        Table1.Active := true;

End;

Uma alternativa para os passos 1-11: Coloque o seguinte código no evento OnClick do TButton:

Procedure TForm1.Button1Click(Sender:Tobjetc);

 begin

        Database1.DataBaseName := 'MeuAlias';

        Database1.DriverName := 'STANDART';

        Database1.Params.Clear;

        Database1.Params.Add('PATH=C:DELPHIDEMOSDATA');

        Table1.DatabaseName := 'MeuALias';

        Table1.TableName := "CUSTOMER'

        Table1.Active := true;

        DataSource1.Dataset := Table1;

        DBGrid1.DataSource := Datasource1;

End;

==============================================================================================

Criar um alias dinamicamente na memória 

procedure TForm1.FormCreate(Sender: TObject);

begin

if not Session.IsAlias(‘Teste’) then

session.AddStandardAlias(‘Teste’,ExtractFilePath(Application.ExeName),’PARADOX’);

end;