grant a nivel de campo

[ecfisa]

Hola mRoman.

También podes crear roles, darles privilegios y luego asignárselo a uno o mas usuarios. Todos los usuarios pertenecientes al mismo rol, heredan los privilegios del mismo.

Ejemplo:

Código SQL [-]
CREATE ROLE CAJEROS;
GRANT SELECT, INSERT, DELETE, UPDATE(CODIGO, CANTIDAD) ON VENTAS TO CAJEROS;

Luego:

Código SQL [-]
CREATE USER PEREZ PASSWORD '123';
ALTER USER PEREZ FIRSTNAME 'JUAN' MIDDLENAME 'M.' LASTNAME 'PEREZ';
GRANT CAJEROS TO PEREZ;

CREATE USER DITULIO PASSWORD '123';
ALTER USER DITULIO FIRSTNAME 'GUSTAVO' MIDDLENAME 'ANTONIO' LASTNAME 'DITULIO';
GRANT CAJEROS TO DITULIO;
...

Saludos

[mRoman]

Gracias ecfisa.

Probe con la versión 2.5 y no hace lo que quiero. Mejor explico el "ambiente" en el cual estoy trabajando (Creo que por aqui debí haber empezado):

Tengo un DATASET ligado a un DbGRID, aqui tengo algunas columnas habilitadas y otras no, pero es aqui donde NO QUIERO que el usuario modifque el campo en cuestion.

Ejecuto la siguiente sentencia SQL en el ScripExecutive del IbExpert:

Código SQL [-]
grant update (campo1,campo3,campoN) on TABLA to USUARIO

(Omito el "campo2", porque ese quiero que NO tenga el privilegio UpDate)

Lo ejecuto y NO me marca ningún error....

Me voy a la aplicación, y trato de modificar en el DbGrid en el campo, pero al momento que habro el DataSet (DataSet1.Open), me envia el siguiente mensaje:

Código Delphi [-]
Project MI_EJECUTABLE.exe raised exception class EIBInterBaseRoleError with message 'no permission for update/write access to COLUMN MI_TABLA.MI_CAMPO'. Proccess stoped. Use step or Run to continue

El mensaje anterior me lo envia desde Delphi, porque ejecuto desde ahi la aplicación....y este otro mensaje ejecutando directamente desde el EXE:

Código Delphi [-]
Project MI_EJECUTABLE.exe raised exception class EIBClientError with message 'Cannot update. (No update query)'. Proccess stopped. Use step or Run to continue

En otras palabras, parece ser que TODA la tabla no la puedo modificar !!!....y de hecho si, no puedo modificar otras columnas del grid, que obviamente están habilitadas para ser modificadas directamente....

Creen que hace falta algo ?.....

Saludos.

[ecfisa]

Hola mRoman.

En este caso el problema no lo ocasiona Firebird sino el componente, que cuando aplica el update lo hace sobre todo el registro. De ese modo incluye aquellos campos sobre los que el usuario no posee el privilegio de la acción y de allí que se eleva la excepción.

Saludos

[ecfisa]

Hola de nuevo.

Para demostrar con un ejemplo lo que te menciono arriba, supongamos una hipotética tabla:

Código SQL [-]
CREATE TABLE VENTAS (
    ID         INTEGER,
    PRODUCTO   VARCHAR(30),
    CANTIDAD   INTEGER,
    PRECIO     NUMERIC(18, 6),
    FECHA      DATE,
    FECHAHORA  TIMESTAMP
);

y que el excelente y nunca bién ponderado empleado "PEREZ", ha iniciado sesión con estos privilegios:

Código SQL [-]
GRANT SELECT, INSERT, UPDATE(CANTIDAD) ON VENTAS TO PEREZ;

Si ejecuta esta consulta:

Código Delphi [-]
...
begin
  with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE VENTAS SET CANTIDAD = :PCANT');
    SQL.Add('WHERE ID = 1');  // una condición de ejemplo
    IBQuery1.ParamByName('PCANT').AsInteger := StrToInt(Edit1.text);
    ExecSQL;
  end;
end;

No va a tener ningun problema.

pero si intenta hacer:

Código Delphi [-]
...
begin
  with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE VENTAS SET PRECIO = :PPREC');
    SQL.Add('WHERE ID = 1'); // una condición de ejemplo
    IBQuery1.ParamByName('PPREC').AsCurrency:= StrToFloat(Edit1.text);
    ExecSQL;
  end;
end;

va a obtener un bonito mensaje: "No permission for update/write access to column VENTAS.PRECIO"

Saludos

[mRoman]

Gracias ecfisa por tus respuestas y una disculpa por no haber contestado antes tus post.

Me queda claro con tus ejemplos lo que esta pasando. Entonces quiere decir que si a tu primer query (el cual lo reescribo nuevamente), le agrego el campo de PRECIO....que pasaria?

Si ejecuta esta consulta:

Código Delphi [-]
...
begin
  with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE VENTAS SET CANTIDAD = :PCANT, PRECIO = :PPREC');
    SQL.Add('WHERE ID = 1');  // una condición de ejemplo
    IBQuery1.ParamByName('PCANT').AsInteger := StrToInt(Edit1.text);
    IBQuery1.ParamByName('PPREC').AsInteger:=StrToInt(Edit2.text);
    ExecSQL;
  end;
end;

AHORA SI HABRÁ PROBLEMA!?...QUE OTRA SOLUCION PUDIERA EXISTIR....un componente IBQuery por cada campo?....ups....