permisos de usuarios
 

hola!
queria saber si hay alguna forma de darle a todos los usuarios (es decir al PUBLIC) permiso de select para TODAS las tablas, sin tener que hacerlo de a una.

A esperas de una mejor solución (aportada por otro compañero), puedes hacer un bucle en delphi y enviar los resultados a un IBScript, algo así:

El TDatabase tiene un método GetTableNames, o bien TableNames:

Código Delphi [-]
var s:TSTringlist;
BEGIN
  s := Tstringlist.create;
  database1.GetTableNames(s);
  for i:= 0 to s.count-1 do
    ibScript1.Script.Add('Grant SELECT ' + s[i] + ' to public;');
  s.free;
  ibscript1.Execute;
end;

.. hecho de memoria, pero pillas la idea.

Saludos

gracias, pero yo estoy trabajando con ibexpert y no desde delphi.
Pero igual esta buena tu opcion...

Hace poco se vió en un hilo como buscar los nombres de las tablas en Firebird.

Después puede usar Execute Statetement para crear la sql al vuelo con un string y ejecutarla, (sería mejor crear un Store Procedure ;)):

Código SQL [-]
declare variable strSql varchar (80)
as
for select ....< es sql larga > 
into :NombreTabla do
begin 
   strsql = 'grant select ' || :NombreTabla || ' to public';
   execute statement strsql
end;