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;
Criando Tabelas Tempo De Execução [delphi]
Started By proteus_adi, 08/06/2004, 09:12
Nenhuma resposta neste tópico
#1
Posted 08/06/2004, 09:12
PROTEUS [ADSUMUS]
ETERNAL ########
---------------------------------------------------------------
"Já dizia o mestre: PROGRAMAR é diferente de CODIFICAR"...
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)