Buscar

Criando tabelas em tempo de execução

Código

{Use os metodos FieldDefs e CreateTable para isso. Veja como criar uma estrutura temporaria: }

with TTable.Create(Application) do
begin
Active := False;
DatabaseName := 'C:TEMP';
TableName := 'TESTE.TMP';
TableType := ttDefault;
FieldDefs.Add('CODCLI', ftString, 5, False);
FieldDefs.Add('NOMCLI', ftString, 40, False);
FieldDefs.Add('DATCAD', ftDate, 0, False);
CreateTable;
Free;
end; 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 11/06/03
Por: Felipe Monteiro
Visualizada: 3468 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009