Fórum Criar tabelas em tempo de execução... #138369

Segue um exemplo Glaucia, espero ter ajudado


table1.active:=false;
with table1 do
begin
active:=false;
DataBaseName:=´´; // aqui o nome do alias
TableName:=´Tabela.db´;
TableType:=ttParadox;
with FieldDefs do
begin
clear;
add(´campo1´,ftString,15,true);
add(´campo2´,ftInteger,0,false);
add(´campo3´,ftFloat,0,false);
add(´campo4´,ftBoolean,0,false);
add(´campo5´,ftMemo,100,false);
end;
CreateTable;
addIndex(´´,´Campo1´,[ixPrimary,ixUnique]); // chave primária
addIndex(´iCampo2´,´Campo2´,[ixCaseInsensitive]);
end;

Estou lhe mandando via email a rotina....

Aguarde...