Jump to content
Fórum Script Brasil
  • 0

Alias Bdb E Dbe Delphi


Guest --Junior --

Question

Guest --Junior --

alguém pode me ajudar em relação a criação de Alias no banco de dados nativo do Delhpi o BDB, pois quando tento criar um Alias coloco o nome do Alias e a pasta de trabalho onde vou salvar o Alias na pasta C:\Junior e aperto o botão OK o sistema mostra uma mensagem +ou- assim:

OKAY salve to C:\Arquivos de programas\BorlandShared\BDE....., ou seja, mostra que salvara o Alias em outro diretorio e em outro driver, quando vou no gerenciador (BDE) ele não me mostra nenhuma tabela vinculado ao Alias criado, apesar de ter feito a tabela logo apos a criação do Alias.

o que estou fazendo de ERRADO, por favor me ajudem!!!!!

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

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;

Para criar um alias do dBase troque a string 'PARADOX' por 'DBASE'. No caso acima usei como path o caminho "C:\DirProg", mas se você quiser poderá trocar este caminho por ExtractFilePath(ParamStr(0)) para que o alias seja direcionado para o local onde esta o programa executavel

outro exemplo

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 duplo clique no Tdatabase para entrar no Database propriety editor.

4. Configure o Database Name para 'MeuAlias' .

5. Selecione 'STANDARD' para Drive Name.

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

7. Configure o PATH= para C:\DELPHI\DEMOS\DATA.

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:\DELPHI\DEMOS\DATA');

Table1.DatabaseName := 'MeuALias';

Table1.TableName := "CUSTOMER'

Table1.Active := true;

DataSource1.Dataset := Table1;

DBGrid1.DataSource := Datasource1;

End;

abraço

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.6k
×
×
  • Create New...