Buscar por:

Criando alias de banco de dados no código

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 'STANDART' 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: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;