Ésta puede ser la idea, pero no sé si funcionará con IbTables.
Código Delphi
[-]function HazSqlTabla(Dataset: TTable): string;
var
i: Integer;
str: string;
begin
try
Str:='Select ';
for i := 0 to DataSet.FieldCount-1 do
begin
str := str + ' ' + DataSet.Fields[i].FieldName;
if i < DataSet.FieldCount-1 then
Str:= Str+',';
end;
Str:=Str+(' FROM ' + DataSet.TableName);
Result:=str;
except
ShowMessage('Se ha producido un Error');
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
begin
ShowMessage(HazSqlTabla(Table1));
end;
Un Saludo.