Fórum Criar tabela paradox via programaçao #251488

CREATE Table "nome.db"(campo1 Varchar(100), campo2 SmallInt)

var
Field2: TField;{campo que vai conter o valor padrao, vc pode colocar mais de um campo separando por virgula assim: Field1, Field2, Field3: TField;}
begin
if not Table1.Exists then  //checar se a tabela ja existe
begin
  with Table1 do
  begin
    Active := False;  //a tabela não pode estar ativa
    //primeiro configure o tipo de tabela e o nome:
    DatabaseName := ´DEMO´;{alias do db, mais em baixo eu coloquei como vc pode criar um alias por codigo}
    TableType := ttParadox;
    TableName := ´CustInfo´;
    //inserir campos na tabela
    with FieldDefs do
    begin
      Clear;
      Add(´Field1´, ftInteger, 0, True);//Nome do campo, tipo, tamanho e se 
      Add(´Field2´, ftString, 30, False);{é obrigatório (True) ou se pode ser  nulo (False)}
    end;
   //agora para colocar indices
    with IndexDefs do
    begin
      Clear;
      //o primeiro indice não pode ter nome pq é o primário
      Add(´´, ´Field1´, [ixPrimary, ixUnique]);
      Add(´Fld2Indx´, ´Field2´, [ixCaseInsensitive]);
    end;
    Field2.DefaultExpression:=´10´; {valor padrao do campo, isso fui eu que acrescentei, não se esqueça de declarar cada campo(pelo nome) em var como TField, so pra garantir...}
    CreateTable;
  end;
end;

// se o alias não existir... 
begin
if not Session.IsAlias(´DEMO´) then
begin
Session.AddStandardAlias(´DEMO´,ExtractFilePath(ParamStr(0)), ´PARADOX´);// Adiciona o alias
Session.SaveConfigFile; // Salva o arquivo de configuração do BDE
end;
end;