mostrar las tablas de una bd

[andres1569]

Hola:

El siguiente método de un objeto TSession devuelve en una lista todas las tablas de una base de datos, sin importar que tipo de SGBD sea:

GetTableNames(const DatabaseName, Pattern: string; Extensions, SystemTables: Boolean; List: TStrings);

En la ayuda de Delphi viene explicado su funcionamiento y un ejemplo.

Si rellenas un ComboBox con esas tablas, para que el Grid te muestre los datos de cada tabla, puedes enlazar el DBGrid a un DataSource y éste a un TTable cuyo DatabaseName apunte a esa base de datos. En el OnChange del ComboBox puedes escribir algo así:

procedure FMainComboBox1Change (Sender: TObject);
begin
  with Table1 do
  begin
    DisableControls;
    try
      Close;
      with TComboBox(Sender) do TableName := Items[ItemIndex];
      Open;   
    finally
      EnableControls;
    end;
  end;
end;

Un saludo