Retornar tabelas do Access

Delphi

30/06/2004

Por favor, alguém sabe como posso retornar as tabelas de um banco de dados Access, na verdade gostaria de uma coisa genérica (para qq banco) mas não sei se é possível.

Obrigado

Luiz Fernando


Tuca@ctgeo.com.br

Tuca@ctgeo.com.br

Curtidas 0

Respostas

Dataclass

Dataclass

30/06/2004

Luiz,

Isso aqui eu fiz pra tirar uma dúvida parecida de outro colega do fórum.
Para Oracle e outros podes usar o SQLConnection eu creio.

Utilizamos um componente TADOConnection(configuramos ele para que apontasse para um banco de dados qualquer), nele existe o método GetTableNames que retorna uma lista com as tabelas,daí armazenamos esta lista numa StringList e depois fizemos um loop para carregar o ListBox.Funcionou Redondinho!Tudo isso foi feito no click de um botão. Código: 
procedure TForm1.btnCarregaTabelasClick(Sender: TObject); 
var listaNomesTabelas:TStringList;// guardará os nomes das tabelas 
    i:integer;  //índice 
begin 

  {Conectando o banco} 
  ADOConnection1.Connected := True; 
  {instanciando o objeto} 
  listaNomesTabelas := TStringList.Create; 
  {armazenando nomes das tabelas} 
  ADOConnection1.GetTableNames(listaNomesTabelas); 

  {carregando listBox com os nomes das tabelas} 
  for i:=0 to listaNomesTabelas.Count-1 do 
  begin 
    listBoxTabelas.Items.add(listaNomesTabelas.Strings[i]); 
  end; 

  {Desconectando o banco} 
  ADOConnection1.Connected := False; 
  {liberando a lista} 
  listaNomesTabelas.Free; 



end;
OBS: numa aplicação normalmente não é interessante conectar e desconectar o banco como fizemos,isso foi meramente ilustrativo


Qualquer coisa estamos aqui pra ajudar no que for possível!

Hugo Rodrigues / J. Reinaldo


GOSTEI 0
POSTAR