Crear, modificar, borrar usuarios y asignar privilegios en Firebird

[Casimiro Noteví]

Gracias por el aporte


Una puntualización:

El .Clear no hace falta porque al asignar la sentencia con .Text estás 'limpiando' lo que hubiese escrito antes.
Lo que sí estaría bien es cerrar antes de asignar una nueva sentencia y ejecutarla, por lo que yo lo dejaría así:

Código Delphi [-]
fconectar.zquery1.SQL.Close;     // fconectar.zquery1.SQL.Clear;
fconectar.ZQuery1.SQL.Text:='GRANT SELECT ON productos TO '+nombre.Text;
fconectar.zquery1.ExecSQL;