Cargar nombres de tablas en un ComboBox

[ecfisa]

Hola Paulao.

Haciendo pié en la sugerencia de roman, podrías hacerte una función que te devuelva los nombres para los distintos tipos de componentes de conección que lo permiten.

Algo como:

Código Delphi [-]
function GetTableNames(BD: TCustomConnection): TStrings;
begin
  Result:= TStringList.Create;
  if BD is TIBDatabase then
    TIBDatabase(BD).GetTableNames(Result);
  if BD is TADOConnection then
    TADOConnection(BD).GetTableNames(Result);
  ...
end;

Y para llamarla, por ejemplo:

Código Delphi [-]
   ComboBox1.Items:= GetTableNames(IBDatabase1);
   ComboBox2.Items:= GetTableNames(ADoconnection1);
   ...

Saludos.