Ver Mensaje Individual
  #2  
Antiguo 14-12-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
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
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita