Jump to content


Photo

Criando Tabelas Tempo De Execução [delphi]


  • Faça o login para participar
Nenhuma resposta neste tópico

#1 proteus_adi

proteus_adi

    @handle:=proteus;//>>>

  • Usuários
  • 309 posts
  • Sexo:Não informado
  • Localidade:Minas Gerais>> Belo Horizonte
  • Interesses:Programação e Web>>>

Posted 08/06/2004, 09:12

With TTable.Create(Self) Do
Begin
//adicionando os campos
//nome, tipo, tamanho e se eh obrigatório
FieldDefs.Add('CODIGO',ftString,6,FALSE);
FieldDefs.Add('NOME',ftString,60,FALSE);
FieldDefs.Add('IDADE',ftInteger,0,FALSE);
//.db
TableName:='Nome';
//criando os índices
IndexDefs.Add('','CODIGO',[ixPrimary]);
IndexDefs.Add('a','NOME',[ixCaseInsensitive]);
//criar
CreateTable;

Free;
End;
PROTEUS [ADSUMUS]
ETERNAL ########
---------------------------------------------------------------
"Já dizia o mestre: PROGRAMAR é diferente de CODIFICAR"...




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq