Fórum Retornar tabelas do Access #240461

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;