Table em Tempo de Execução

Delphi

03/04/2003

[b:1ad30ba6b8]Galera, preciso de três coisas em tempo de execução:
---> criar o meu Table
---> configurar o nome do Alias pra esse table
---> configurar o nome da Tabela pra ele[/b:1ad30ba6b8]


Muito Obrigado Mesmo!!!! :wink:

Willian


Anonymous

Anonymous

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

03/04/2003

[b:1176acb595]Galera, preciso de três coisas em tempo de execução: ---> criar o meu Table ---> configurar o nome do Alias pra esse table ---> configurar o nome da Tabela pra ele[/b:1176acb595] Muito Obrigado Mesmo!!!! :wink: Willian


var Tabela: TTable;
begin
  Tabela := TTable.Create(Self);
  Tabela.DatabaseName := ´ALIAS´;
  Tabela.TableName:= ´NOME_DA_TABELA´;
end;



GOSTEI 0
Aroldo Zanela

Aroldo Zanela

03/04/2003

Desculpem, fui no ´embalo´ e esqueci dos campos:

var TempTable: TTable;
begin
  TempTable:= TTable.Create(Self);
  With TempTable do
  begin
    DatabaseName := ´C:\WINDOWS\TEMP´;
    TableName := ´TESTE.DB´;
    TableType := ttDefault;
    FieldDefs.Add(´CLI_CODIGO´, ftString, 5, False);
    FieldDefs.Add(´CLI_NOME´, ftString,  40, False);
    FieldDefs.Add(´CLI_CADASTRO´, ftDate, 0, False);
    CreateTable;
  end;
  TempTable.Open;
  DataSource1.DataSet := TempTable;
end;



GOSTEI 0
POSTAR