Extraer lista de tablas contenidas en bd access

[JoysticK]

Alguien me puede indicar el codigo para extraer la lista de tablas contenida en una base de datos Access ? Estoy utilizando una TADOTable para acceder a la table pero necesito saber cuantas tablas existen en una base datos...

[[Delphius]]

Empezado por JoysticK

Alguien me puede indicar el codigo para extraer la lista de tablas contenida en una base de datos Access ? Estoy utilizando una TADOTable para acceder a la table pero necesito saber cuantas tablas existen en una base datos...

Hola JoysticK,
El TADOConnection tiene un método que te permite obtener la lista de tablas.
Concretamente el método es GetTableName.

Un ejemplo de su uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var lista: TStringList;
    i: integer;
begin
  lista := TstringList.Create;
  Adoconnection1.GetTableNames(lista);
  for i := 0 to lista.Count - 1 do
    ShowMessage(lista[i]);
  lista.Free;
end;

Saludos,

[JoysticK]

Gracias Delphius, esto era exactamente lo que estababa buscando

[barakuda]

Hola,

gracias por el codigo Delphius e podido aprender algo mas.

Mi duda es si se puede hacer lo mismo pero solo para las consultas es decir excluir de hay las tablas y solo reportar las consultas

gracias de ante mano y un saludo!!