Fórum Criair nova tabela( com um clique no botao) #240786
01/07/2004
0
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 :)
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
Curtir tópico
+ 0
Responder
Posts
01/07/2004
Reginaldo174
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)