Criair nova tabela( com um clique no botao)

Delphi

01/07/2004

oi colegas...
gostaria de saber como faço para criar uma tabela nova no meu programa.
* a tabela deve ser em Acces
* e na hr que criar quero que apareça uma janela pedindo o nome da tabela e o local onde sera salva!
(como se fosse ir em Arquivo, novo e salvar)

muito obrigada ... abraçosss :)


Fernanda Fonseca

Fernanda Fonseca

Curtidas 0

Respostas

Reginaldo174

Reginaldo174

01/07/2004

if FileExists(´c:\contatos\contatos.mdb´)=false then
begin
TableContatos.Close;
TableContatos.DatabaseName:=´c:\contatos´;
TableContatos.TableName:=´Contatos´;
TableContatos.TableType:= ttDefault;
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(´As tabelas foram criadas com êxito!´);
end
else
begin
TableContatos.Close;
TableContatos.DataBaseName:=´C:\contatos´;
TableContatos.TableName:=´contatos.mdb´;
TableContatos.Open;
end;


GOSTEI 0
POSTAR