ADOConnection solo lectura
 

Hola:

Estoy tratando que los datos de una aplicación -almacenados en una DB MSAccess- sólo sean accesibles en modo lectura en función del usuario que acceda.
Todos los procesos sobre las diversas tablas de la base de datos se realizan con componentes ADO, que emplean la misma conexión.
En principo he asignado a Mi_ADOConnection.Mode el valor Read, pero al realizar el primer acceso a una tabla cambia a ShareDenyNone.

Código Delphi [-]
procedure TList_tbl_users.Load(sql: string; Conexion: TADOConnection);
var
  Q: TADOQuery;
  W: Ttbl_users;
begin
  Q:= TADOQuery.Create(nil);
  try
    Q.SQL.Text:= Sql;
    Q.Connection:= Conexion;  ==>  [Al consultar el valor de Conexion.Mode devuelve Read]
    Q.Open;
    Q.First;   ==>  [Al consultar el valor de Conexion.Mode devuelve ShareDenyNone]
    while not Q.Eof do
    begin
      W:= Ttbl_users.Crear(Conexion);
      W.Load(Q.Fields[0].AsInteger);
      Self.Add(W);
      Q.Next;
    end;
  finally
    Q.Free;
  end;
end;

Es el método Open quien lo modifica.

¿Dónde está el error?


Uso:
.- Delphi 7
.- Microsoft.Jet.OLEDB.4.0
.- MSAcces 97

Muchas gracias de antemano.
Un Saludo

Permisos y privilegios, ahí tienes tu respuesta. Ahora que si te quieres poner a programar, no hay poder humano ni divino que evite que cambie el modo de lectura, POR QUE EN ÉSO SE BASA EL USO DEL MOTOR DE BASE DE DATOS.

Otra historia es cuando usas una serie de sentencias SQL para añadir, cambiar o eliminar registros.

Hola:

¿De Microsoft.Jet.OLEDB.4.0, o de todos en general?


Entre mi ignorancia y que ando "espeso", como el día, no logro entender que quieres decir con esta frase.

Hola:

He continuado probando, y he conseguido solucionar mi problema :).

En primer lugar he de decir -no lo mencione en el primer post- que todos los accesos a las tablas se realizan con TADOQuery y con TADOCommand.

He comprobado que el valor asignado a ADOConnection.Mode es "irrelevante", no sé cuál es su finalidad.

Sin embargo, el valor asigando en ADOConnection.ConnectionString si que afecta al modo en el que comporta la conexión. Hace lo esperado.

En valor por defecto -Share Deny None- permite la edición.

El valor Read, premite leer pero impide la insercción, edición y eliminación.
Cuando se configura ConnectionSgring de esta forma, TADOQuery y TADOCommand no realizan modicaciones en el estado de la conexión. Cuando se intenta hacer un INSERT, UPDATE o DELETE se genera un error, que nos dice algo así como que se debe utilizar una consulta actualizable.

Un Saludo.