adicionar campo na tabela paradox em tempo de execução

[gilsoftware]

ola

 

alguém sabe adicionar campo na tabela paradox, em tempo de execução, com o mesmo já definido em ttable?

Editado 23 Agosto, 2016 por gilsoftware
nome do componente ttable errado

[Sérgio Assunção]

6 horas atrás, gilsoftware disse:

ola

 

alguém sabe adicionar campo na tabela paradox, em tempo de execução, com o mesmo já definido em ttable?

http://www.edudelphipage.com.br/dicas_texto.php?cod=000094&categoria=3&busca=

[gilsoftware]

Ola amigo, obrigado pela ajuda, mas minha intenção não é criar um tfield e sim usar um tfield já definido em ttable para criar um campo novo na tabela paradox teste.db 

[EMBarbosa]

http://stackoverflow.com/a/10577143/460775

 

[gilsoftware]

Não é isto ainda. Queria a forma de fazer:

table1.field .create 

Assim adicionaria o campo com suas caracteristicas na tabela .db

[EMBarbosa]

Não entendi.

[BigWings]

Se a idéia é criar um novo campo fisicamente na tabela paradox, acredito que terá que:

- Mover os arquivos da tabela para um diretório temporário.

- Criar um novo TTable, adicionando os FieldDefs e IndexDefs, e incluindo o novo campo.

- Chamar o Table1.CreateTable para gerar os arquivos da tabela, ela estará vazia.

- Fazer o pump dos dados da tabela original para a nova tabela.

[gilsoftware]

23 horas atrás, BigWings disse:

Se a idéia é criar um novo campo fisicamente na tabela paradox, acredito que terá que:

- Mover os arquivos da tabela para um diretório temporário.

- Criar um novo TTable, adicionando os FieldDefs e IndexDefs, e incluindo o novo campo.

- Chamar o Table1.CreateTable para gerar os arquivos da tabela, ela estará vazia.

- Fazer o pump dos dados da tabela original para a nova tabela.

sim, a idéia é criar um novo campo fisicamente na tabela do paradox.

usei as formas abaixo, nao da erro e nao funciona. Será que somente no procedimento descrito por BigWings?

Table1.Fields.FindField('campo').Create(Table1);

Table1.Fields.FindField('campo').Create(nil);

[BigWings]

34 minutos atrás, gilsoftware disse:

sim, a idéia é criar um novo campo fisicamente na tabela do paradox.

usei as formas abaixo, nao da erro e nao funciona. Será que somente no procedimento descrito por BigWings?

Table1.Fields.FindField('campo').Create(Table1);

Table1.Fields.FindField('campo').Create(nil);

Na verdade, depois que vi, achei a solução proposta pelo EMBarbosa bem menos trabalhosa.

Só executar um ALTER TABLE via TQuery e pronto.

[gilsoftware]

Tambem acho alter table melhor e realmente funciona bem, porem preciso ler as informações e criar fisicamente o campo na tabela.db a partir do conteúdo do componente ttable. O que será que está errado nos exemplos acima que não dão erros e nao criam os campos, mesmo ttable estando exclusivo?

 

Obrigado a todos