Criar tabelas em tempo de execução...
Preciso saber como é que se criam tabelas em tempo de execução de programa.
Por favor, quem puder ajudar!!!
Por favor, quem puder ajudar!!!
Glaucia Keidann
Curtidas 0
Respostas
Osvaldo
19/02/2003
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;
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;
GOSTEI 0
Dor_poa
19/02/2003
Estou lhe mandando via email a rotina....
Aguarde...
Aguarde...
GOSTEI 0