Criar campo na tebela por programação

Delphi

10/03/2004

[b:37184b526a]Algem pode me mandar um EXEMPLO, de como criar um campo na tabela via programação e criar indice[/b:37184b526a].


Uso dBase IV / extenção DBF


Aguardo resposta, obrigado

___________
p_lima. :?:


P_lima

P_lima

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

10/03/2004

Tenta o comando alter table...

ALTER TABLE TABELA ADD CAMPO1 INTEGER;

por ex:


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

10/03/2004

Colega,

Encontrei um exemplo para criação do DBF, basta instanciar um objeto da classe TTable e utilizar o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);
var Table1: TTable;
begin

  Table1 := TTable.Create(Self);

  with Table1 do
  begin
    DatabaseName := ´C:\´;
    TableName := ´Test.DBF´;
    TableType := ttDbase;
    TableLevel := 3;
  end;
  with Table1.FieldDefs do
  begin
    Clear;
    Add(´CharField1´,ftString, 15, False);
    Add(´NumField1´, ftBCD, 0, False);
    Items[Count - 1].Precision := 2;
    Add(´NumField2´, ftBCD, 6, False);
    Items[Count - 1].Precision := 10;
    Add(´DateField1´, ftDate, 0, False);
    Add(´LogField1´, ftBoolean, 0, False);
    Add(´MemoField1´, ftMemo, 0, False);
  end;
  Table1.CreateTable;
  Table1.Free;
end;


Não se esqueça de declarar [b:8a17ce18a4]db, dbTables[/b:8a17ce18a4] na lista de uses.


GOSTEI 0
POSTAR