Array
(
)

criar uma tabela em tempo de execução

Lestatrj
   - 04 ago 2004

mas... tudo bem...eu peço mil desculpas...houve um engano ... mas ja foi esclarecido. :)


entao... voces poderia me responder .... fazendo favor... :)

como faço para criar uma tabela em tempo de execução ... ou me diguem um componente que faça isso ...


atenciosamente Leonardo



---------
:arrow: Título editado pelo moderador Nildo.
:arrow: Não utilize títulos que estejam fora do contexto da mensagem.
:idea: Leia as regras de conduta [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]aqui[/url]


Fabio.hc
   - 04 ago 2004

Tente assim:

#Código

if FileExists(´c:\contatos\contatos.db´)=false then
begin
TableContatos.Close;
TableContatos.DatabaseName:=´c:\contatos´;
TableContatos.TableName:=´Contatos´;
TableContatos.TableType:=ttParadox;
TableContatos.FieldDefs.Clear;
TableContatos.FieldDefs.Add(´Cod´,ftAutoInc,0,false);
TableContatos.FieldDefs.Add(´Contato´,ftString,50,false);
TableContatos.FieldDefs.Add(´Telefone´,ftString,12,false);
TableContatos.FieldDefs.Add(´Curso´,ftString,20,false);
TableContatos.FieldDefs.Add(´Observacao´,ftMemo,100,false);
TableContatos.IndexDefs.Clear;
TableContatos.IndexDefs.Add(´iCod´,´Cod´,[ixPrimary,ixUnique]);
TableContatos.IndexDefs.Add(´iContato´,´Contato´,[ixUnique]);
TableContatos.CreateTable;
TableContatos.Open;
ShowMessage(´A tabela foi criada com êxito!´);
end
else
begin
TableContatos.Close;
TableContatos.DataBaseName:=´C:\contatos´;
TableContatos.TableName:=´contatos.db´;
TableContatos.Open;
end;